Help for this page

Select Code to Download


  1. or download this
    C:\test>perl -MTime::HiRes=time  
-E"my @lines; $t=time; $lines[ @lines ] = tell *ARGV while <>; print t
+ime - $t;" sample.FastQ
5.8082218170166
  2. or download this
    C:\test>perl -MTime::HiRes=time -MTie::File -E"$t=time; tie my @lines,
+ 'Tie::File', 'sample.fastq'; say $#lines; say time-$t;"
9999999
60.3115701675415