Исходное сообщение
"Число строк в файле Perl" Отправлено seller, 20-Апр-07 15:31
>Как узнать число строк в файле на Perl? Неужели у такого мощного языка работы с текстом нет такой функции, (даже в PHP это делается одной функцией), не прибегая к полному считыванию файла в массив @content=<F> а далее число строк = $#content + 1; > >Никакой памяти не хватит при работе с большими файлами. а сис.вызов не поможет? my $lines = `wc -l $filename`; $lines =~ s/[^0-9]//g; Для пояснения: $ wc -l /etc/rc.conf       36 /etc/rc.conf $ cat /etc/rc.conf | wc -l       36