Stories
Slash Boxes
Comments

NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

use Perl

All the Perl that's Practical to Extract and Report

use Perl Log In

[ Create a new account ]

cog (4665)

cog
{cog} {at} {cpan.org}
http://jose-castro.org/
Yahoo! ID: jose_alves_castro (Add User, Send Message)

Internacional Man of Mystery.

Journal of cog (4665)

Friday April 30, 2004

11:44 AM

$/ to read 100 lines at a time

[ #18563 ]

If I wanted to read X lines at a time (say 100), how should I do that using $/ ?

Some regex with a look behind to find 100 \n's would do the trick, probably... but isn't there an easier way? :-|

List all Journal entries

$/ to read 100 lines at a time More | Login | Reply

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

Without JavaScript enabled, you might want to use the classic discussion system instead. If you login, you can remember this preference.

Uh, no. (Score:1)

by Mr. Muskrat (4572)

From perlvar:
Remember: the value of $/ is a string, not a regex. awk has to be better for something. :-)
Inline (Score:1)

by mary.poppins (3530)

Using Inline::C, of course! :)
Don't do too much work (Score:2)

by brian_d_foy (44)

Instead of something complicated, just write a routine that reads the right number of lines and returns them.
my @lines = read_lines( $fh, 100 );
That routine can be as simple as a for() loop. Once you code those five or six lines, relax, put your feet up on the table, and get on with life. :)
- Re:Don't do too much work (Score:1)
  
  by cog (4665)
  
  What do you mean, five or six lines? :-)
  while (@_ = map eof() ? () : scalar , 1..$n) { # ... }
  Courtesy of the guys from the FWP list :-)

Get More Comments

Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.