Help for this page

Select Code to Download


  1. or download this
    time perl -e '$_=[];{$/=\000,@$_=<>}; my $count=@$_;print $count, " li
+nes\n";' </tmp/16   
1 lines
0.47sec 0.28usr 0.18sys (99.77% cpu)
  2. or download this
    time perl -e '{$/=undef, $_=<>} my $count=split /\000/,$_; print $coun
+t, " lines\n";' </tmp/16
4118704 lines
0.47sec 0.28usr 0.18sys (99.77% cpu)