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

Вопрос

Как в Perl произвести чтение заданной строки (заданной по номеру) из какого-либо файла?

Ответ

1. Читать все строки до обнаружения нужной (open я опущу):

$.=0;
do {$line = <FILE> } until $. == $index || eof;

2. Если файл небольшой — загнать в массив

@lines = <FILE>; $line = $lines[$index];

3. Если есть модуль DB_File, можно связать массив с файлом:

use DB_File; use Fcntl;
$tie = tie (@lines,$file,O_RDWR,0666,$DB_RECNO) or die
""Can't open file $file: $!\n";
$line = $line[$index-1];

A.Z.