Select Code to Download

This is perl, version 5.005_03 built for aix
AIX pbsxdr00041 2 5 000258CA4C00
>perl   sort.pudge     h2z.prod.400987aa  > h2z.prod1a  
Use of uninitialized value at sort.pudge line 266.

20040623CC255533          3130              268713110       3       20
+040623    
    8.96        1.000

>perl -w  sort.pudge -d    h2z.prod.400987aa  > h2z.prod1a
Out of memory!

"perl_sort.pl" 7 lines, 301 characters 
#/usr/bin/perl
...
my($line);foreach $line (@lines) # loop thru list
{   print "$line";                  # print in sort order
} close(MYINPUTFILE);

/opt/vrs/files/PROD_8 PBN2I]
>perl -w   perl_sort.pl 
Out of memory!

#!/usr/bin/perl
open (ORIGFILE,
...
sort(<origfile>);
close (FINALFILE);
close (ORIGFILE);

$ perldoc -t -f sort
   sort SUBNAME LIST
...
           from the input.

               @result = sort { $a <=> $b } grep { $_ == $_ } @input;