Сообщество Чайников

Вопрос

Как переменной в Perl назначить число, равное количеству строк в каком-либо файле?

Ответ

1. В некоторых системах (проще говоря, в Юникс) есть программка wc, которая считает строки в файле:

$count = 'wc -l < $file'; die "wc failed: $?" if $?; chomp($count);

2. open (FILE,"< $file") or die "Can't open $file: #!"; $count++ while <FILE>;

3. Если работаете одновременно только с одним файлом. Переменная $. содержит количество прочитанных строк с момента последнего явного вызова close

open (FILE,"< $file") or die "Can't open $file: #!"; 1 while <FILE&glt;; $count = $.;

A.Z.