http://qs1969.pair.com?node_id=904578


in reply to How to read every 16 line of file ?

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

$., %

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.
      FWIW, if reading from STDIN, there are no file boundaries :)

        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.


        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);