Re: Reading X lines at a time

On Mon, May 03, 2004 at 02:07:42PM +0200, Georg Moritz wrote:
> Hello Jose,
> 
> > @_=map{scalar(<>)}(1..$X)
> 
> inside a loop testing for eof is necessary:
> 
> while(!eof()&&(@_=map{scalar(<>)}(1..$X)){
>     &foo; # gets @_
> }

The eof() must be inside the map or things will be messed up when you
don't have an exact multiple of $X lines.

    while (my @a = map { eof() ? () : scalar <> } 1 .. $n) {
        print @a;
        print "SEPARATOR\n";
    }


-- 
Rick Delaney
[email protected]