Re: reading several lines in a gulp

$. and eof should help

my $count=3;
 
while (<DATA>) {
  next if ($.-1) % $count and  ! eof;
 
  print @gulp;
  print "-----\n";
  @gulp=();
   
} continue {
  push @gulp,$_
}
__DATA__
a
b  
c 
d
e
f
g
h
[download]

I'm sure there are more elegant solutions...

Cheers Rolf

Comment on Re: reading several lines in a gulp Download Code

Replies are listed 'Best First'.
Re^2: reading several lines in a gulp (iterator) by LanX (Saint) on May 01, 2011 at 13:06 UTC
> I'm sure there are more elegant solutions... indeed, iterators are easier to maintain! `sub readlines { my ($fh, $count) = @_; my @gulp; push @gulp, scalar <$fh> while $count-- and ! eof $fh; return @gulp; } while ( @lines = readlines(DATA,3) ) { print @lines,"----\n"; } __DATA__ a b c d e` [download] prints `a b c ---- d e ----` [download] alternative iterator: `sub readlines { my ($fh, $count) = @_; my @gulp; while (<$fh>) { push @gulp,$_; last unless --$count; } return @gulp; }` [download] Cheers Rolf UPDATE: Handling of edge cases like missing $count parameter could be added to the iterators: `$count=1 unless $count;` Maybe `$count<=0` should be handled differently... 0 => no iteration -1 => slurp whole file -2 .. => warning	[reply] [d/l] [select]
Re^3: reading several lines in a gulp (iterator) by John M. Dlugosz (Monsignor) on May 01, 2011 at 13:25 UTC
I like it! Thanks.	[reply]