Help for this page

Select Code to Download


  1. or download this
    C:\test>dir junk.dat
    30/03/2012  17:39        53,777,008 junk.dat
    ...
    Some random junk 835571 146942 some more random junk
    Some random junk 783477 720062 some more random junk
    Some random junk 197540 926361 some more random junk
    
  2. or download this
    #! perl -slw
    use strict;
    ...
    substr( $_, 0, 8, '') for @a;
    
    printf "Took %.6f seconds; check memory? ", time()- $start; <STDIN>;
    
  3. or download this
    C:\test>t-GRT junk.dat
    1000001 records
    Took 6.704649 seconds; check memory? 274.1MB
    
  4. or download this
    #! perl -slw
    use strict;
    ...
    ];
    
    printf "Took %.6f seconds; check memory? ", time()- $start; <STDIN>;
    
  5. or download this
    C:\test>t-TYE junk.dat
    1000001 records; check memory 143.8MB
    Took 228.533225 seconds; check memory? 649.0 MB