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]
