Re: ÐÏÔÒÅÂÌÅÎÉÅ ÐÁÍ
Greg Belenky
greg на webzavod.ru
Сб Сен 27 19:01:23 CDT 2003
> есть файл, большой. например, в нем 2 миллиона строк и 300 метров.
логи?
> open(AAA, "<file");
> foreach (<AAA>) {
foreach в данном случае не канает - по одной простой причине, что _ДО_
начала цикла весь файл считывается и создается _СПИСОК_ строк, по которым
потом и организуется цикл.
попробуй так:
while (my $line = <AAA>) {
my @line = split ' ', $line;
...
}
по идее после конца цикла переменные $line и @line должны высвыбождаться,
т.к. они вышли за пределы блока.
p.s.
use strict;
--
Григорий "Grishace" Беленький
http://search.cpan.org/author/GRISHACE/
Подробная информация о списке рассылки Samara-pm