Help for this page

Select Code to Download


  1. or download this
    $ time ./gfather.pl
dump.1167332700 McDarren 71
...
dump.1167332700 McDarren 71
Processed 9098 files (total files:57912)
       51.58 real         4.15 user         0.91 sys
  2. or download this
    ...
    undef $/;
...
#   chomp(my $line = <IN>);
    my ($user,$level) = (split /\t/, substr $data, $pos)[0,3];
...
  3. or download this
    my ($user,$level) = (split /\t/, (substr $data, $pos),5)[0,3];

...
dump.1167332700 McDarren 71
Processed 9100 files (total files:57914)
       47.50 real         0.79 user         0.80 sys