Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Speeding up large file sorts

by orbital (Scribe)
on Nov 30, 2001 at 06:13 UTC ( [id://128532] : perlquestion . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    CD1\01100809.pdf(1) - [Account Number] Indexed key "654546654".
    CD1\01100813.pdf(1) - [Account Number] Indexed key "654546654".
    CD1\01100809.pdf(1) - [Name] Indexed key "Bob".
    
  2. or download this
    open(IN, $infile ) || die "can't open logfile: $infile\n";
    open(OUT, ">$outfile" ) || die "can't create datfile: $outfile\n";
    ...
              print OUT scalar(<IN>);
            }
       }