What's this mean? 
sub sub1    {   my $fh;
                    open $fh, 'vsfull.csv';
                    binmode $fh;

                    my @lines;

                    my $block; my $left = '';
                    while( read $fh, $block, 8192 ){

                        $block = $left . $block;

                        my $i = index $block, "\n";
                        while($i > 0){

                            push @lines, substr($block,0,$i);
                            substr($block,0,$i+1,'');
                            $i = index $block, "\n";

                        }

                        $left = $block;

                    }

                }

    sub sub2    {   my $fh;
                    my @lines;
                    open $fh, 'vsfull.csv';

                    while(<$fh>){ push @lines, $_ };

                }
sub sub3 { my $fh; open $fh, 'vsfull.csv'; my @lines = <$fh>; }
sub sub4 { my $fh; open $fh,'vsfull.csv';my @lines = readline($fh); }

#Hmark::
use Benchmark 'cmpthese';

cmpthese(
-3,
{ readbig => \&sub1,
  whilelp => \&sub2,
  better => \&sub3,
  butter => \&sub4,
});

__END__



Benchmark: running better, butter, readbig, whilelp, each for at least
+ 3 CPU seconds...
    better:  3 wallclock secs ( 2.20 usr +  1.02 sys =  3.22 CPU) @ 37
+2.36/s (n=1199)
    butter:  3 wallclock secs ( 2.17 usr +  1.04 sys =  3.21 CPU) @ 37
+3.52/s (n=1199)
   readbig:  3 wallclock secs ( 3.01 usr +  0.12 sys =  3.13 CPU) @ 52
+.72/s (n=165)
   whilelp:  3 wallclock secs ( 2.17 usr +  1.02 sys =  3.19 CPU) @ 27
+2.10/s (n=868)
          Rate readbig whilelp  better  butter
readbig 52.7/s      --    -81%    -86%    -86%
whilelp  272/s    416%      --    -27%    -27%
better   372/s    606%     37%      --     -0%
butter   374/s    609%     37%      0%      --

[download]

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

In reply to Re: Why use <$fh> at all? by PodMaster
in thread Why use <$fh> at all? by cluka

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.