On Monday 12 July 2004 12:20, John W. Krahn wrote:
>
> open SINK, '>>newFile.dat' or die "can't open the newFile.dat: $!";
> for my $id ( sort { $control_ids{ $a }{ order } <=> $control_ids{ $a }{ order } }
> keys %control_ids ) {
Oops, that _should_ be:
for my $id ( sort { $control_ids{ $a }{ order } <=> $control_ids{ $b }{ order } } keys
%control_ids ) {
> print SINK $id, @{ $control_ids{ $id }{ field } }, $control_ids{ $id }{ weight };
> }
> close SINK or die "can't close newFile.dat: $!\n";
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
