по нескольку строк за раз:
open F,"file" or die $!;
while (my @ary = map { <F> } 1..5) {
# process @ary
}
close F;
> cat > test
aaa
bbb
ccc
^C
> perl -e "open F,$ARGV[0]; while (my @a = map { <F> } 1..5) { chomp @a; printf ""[%s]\n""",join '+',@a; }" test
[aaa+bbb+ccc]
>
no subject
Date: 2007-02-08 06:56 am (UTC)no subject
Date: 2007-02-08 07:09 am (UTC)Шпиён!!!
Date: 2007-02-08 07:13 am (UTC)Re: Шпиён!!!
Date: 2007-02-08 07:21 am (UTC)no subject
Date: 2007-02-08 10:50 am (UTC)no subject
Date: 2007-02-08 11:50 am (UTC)просто для памяти, в ожидании склероза.
"опавшие листья, короб первый" -- "перлопесок, высыпавшийся из меня" :)