Re^3: Hmmm: while(), file handle and $

for my $cnt (0 .. 3) {
   print scalar(<DATA>);
}
[download]

Comment on Re^3: Hmmm: while(), file handle and $_ gotcha Download Code

Replies are listed 'Best First'.
Re^4: Hmmm: while(), file handle and $_ gotcha by hbm (Hermit) on Mar 06, 2009 at 14:12 UTC
Cool! And then perhaps: `while (<DATA>) { if ($. % 10 == 1) { print; print scalar(<DATA>) for(0..3); } }` [download]	[reply] [d/l]
Re^5: Hmmm: while(), file handle and $_ gotcha by ikegami (Patriarch) on Mar 06, 2009 at 16:15 UTC
Since we want to print the first 5 lines of each group of 10, `while (<DATA>) { print if ($. - 1) % 10 < 5; }` [download]	[reply] [d/l]