Help for this page

Select Code to Download


  1. or download this
    $ perl -E '
    say join q{.}, map { int rand 256 } 1 .. 4
       for 1 .. 1500;' > spw1112250.dat
    $
    
  2. or download this
    use strict;
    use warnings;
    ...
       qq{found in $inFile};
    
    say qq{Process took @{ [ tv_interval( $startTV, [ gettimeofday() ] ) ]
    + } seconds};
    
  3. or download this
    17.23.213 not found in spw1112250.dat
    Process took 0.002678 seconds