чтение кусками

[ocehb]

по нескольку строк за раз:

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]
>

Comments

[sandra77.livejournal.com]

Артурчик! Читая твои посты, мне кажется что ты с другой планеты!:)

[ocehb]

понаехавший :)

Шпиён!!!

[sandra77.livejournal.com]

Всё! Раскусила тебя! Ты не в Питер на вых. ездишь, а к своим летаешь с докладом! А данными постами сообщаешь обстановку "он лайн"!

Re: Шпиён!!!

[ocehb]

а потом дышу перегаром :)

[umbu-travoso.livejournal.com]

Еженедневная журнальная колонка "Perl Cookbook-2"?

[ocehb]

для ежедневности слишком ленив.
просто для памяти, в ожидании склероза.

"опавшие листья, короб первый" -- "перлопесок, высыпавшийся из меня" :)