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