Re: How to read every 16 line of file ?

while (<>) {
   say if $. % 16 == 0;
}
[download]

$., %

Comment on Re: How to read every 16 line of file ? Download Code

Replies are listed 'Best First'.
Re^2: How to read every 16 line of file ? by tchrist (Pilgrim) on May 13, 2011 at 03:12 UTC
You forgot to reset line numbers across file boundaries.	[reply]
Re^3: How to read every 16 line of file ? by Anonymous Monk on May 13, 2011 at 03:42 UTC
FWIW, if reading from STDIN, there are no file boundaries :)	[reply]
Re^4: How to read every 16 line of file ? by ikegami (Patriarch) on May 13, 2011 at 06:28 UTC
My code reads from ARGV, not STDIN, so his comment does apply. Mind you, the OP said "file" singular, so resetting shouldn't be necessary. See eof to reset the counter between files when using ARGV.	[reply]
Re^4: How to read every 16 line of file ? by bh_perl (Monk) on May 13, 2011 at 04:04 UTC
This is my sample code to be execute but this is sample only.. `#!/usr/bin/perl -w open (FILE, "/tmp/test.txt"); while ($line = <FILE>) { ... READ EVERY 16 LINE... } close(FILE);` [download]	[reply] [d/l]
Re^5: How to read every 16 line of file ? by ikegami (Patriarch) on May 13, 2011 at 06:29 UTC