# Применение

Решение

Простейший выход - читать строки до обнаружения нужной:

# Выборка строки с номером $DESIRED LINE NUMBER $ = О

do { $LINE = <HANOLE> } until $ == $OESIRED LINE NUMBER eof,

Если подобная операция должна выполняться многократно, а файл занимает не слишком много места в памяти, прочитайте его в массив:

(alines = <HANDLE>

SLINE = $lines[$DESIRED LINE NUMBER],

Если вы собираетесь многократно извлекать строки по номеру, а файл не помещается в памяти, постройте индекс смещений для отдельных строк и переходите к началу строки функцией seek:

П Применение build index(*MAHHnyflflTOP flAHHblX, *МАНИПУЛЯТОР ИНДЕКСА) sub build index {

my Sdata file = shift

my $index file = shift,

my Soffset = 0,

while (<$data file>) {

print $index file pack( N Soffset), Soffset = tell($data file)

# Применение line with index(.HAHMnyflqTOP flAHHblX .МАНИПУЛЯТОР ИНДЕКСА,

$НОМЕР СТРОКИ)

# Возвращает строку или undef, если НОМЕР СТРОКИ выходит за пределы файла sub line with index {

my Sdata file = shift my $index file = shift, my $line number = shift,

my Ssize, # Размер элемента индекса

my $i offset, # Смещение элемента в индексе

my Sentry # Элемент индекса

my $d offset, й Смещение в файле данных

Ssize = length(pack( N 0)), $i offset = Ssize • ($line number-1), seek($index file, $i offset, 0) or return read($index file. Sentry, $size), $d offset = unpack( N , Sentry), seek(Sdata file, $d offset, 0), return scalar(<Sdata file>),

8.8. Чтение строки с конкретным номером 303

open(FILE, < $file ) or die Can t open Sfile for reading $\n ,

open(INDEX, +>Sfile idx )

or die Can t open Sfile idx for read/write $\n , build index(.FILE, .INDEX),

Sline = line with index(.FILE, .INDEX, Sseeking),

При наличии модуля DB File можно воспользоваться методом DB RECNO, который связывает массив с файлом (по строке на элемент массива):

use DB File, use Fcntl,

Stie = tie((alines SFILE, 0 R0WR 0666, $DB RECNO) or die

Cannot open file SFILE $i\n # Извлечь строку Sline = Slines[Ssought-1]

Комментарий

Каждый вариант имеет свои особенности и может пригодиться в конкретной ситуации. Линейное чтение легко программируется и идеально подходит для коротких файлов. Индексный метод обеспечивает ускоренную выборку, но требует предварительного построения индекса. Он применяется в случаях, когда индексируемый файл редко изменяется по сравнению с количеством просмотров. Механизму DB File присущи некоторые начальные издержки, зато последующая выборка строк выполняется намного быстрее, чем при линейном чтении. Обычно он применяется для многократных обращений к большим файлам.

Необходимо знать, с какого числа начинается нумерация строк - с О или 1. Переменной $ присваивается 1 после чтения первой строки, поэтому при линейном чтении нумерацию желательно начинать с 1. В индексном механизме широко применяются смещения, и нумерацию лучше начать с 0. DB File интерпретирует записи файла как элементы массива, индексируемого с О, поэтому строки также следует нумеровать с 0.

Ниже показаны три реализации одной и той же программы, print line. Программа получает два аргумента - имя файла и номер извлекаемой строки.

Версия print line из примера 8.1 просто читает строки файла до тех пор, пока не найдет нужную.

Пример 8.1. printjine-vl

#1/usr/bin/perl -w

П print line-v1 - линейное чтение

(aARGV == 2 or die usage print line FILENAME LINE NUMBER\n , (Sfilename, $line number) = (aARGV,

opendNFILE, < Sfilename ) or die Can t open Sfilename for reading S\n , while (<INFILE>) { Sline = S ,

last if S == $line number, продолжение #

Пример 8.1 (продолжение)

if ($. != $line number) {

die "Didnt find line $line number in $filenarae\n";

print;

Версия из примера 8.2 сначала строит индекс. При большом количестве обращений индекс строится один раз, а затем используется во всех последующих чтениях.

Пример 8.2. printjine-v2

«!/usr/bin/perl -w

П print line-v2 - построение индекса

tt Функции build index и line with index приведены выше.

(SARGV == 2 or

die "usage; print line FILENAME LINE NUMBER";

(Sfilename, $line number) = (aARGV; open(ORlG, "< Sfilename")

or die "Cant open Sfilename for reading: $!";

# Открыть индекс и при необходимости построить его

tt Если две копии программы замечают, что индекс не существует, О они могут одновременно попытаться построить его.

# Проблема легко решается с применением блокировки. Sindexname = "Sfilename,index";

sysopendDX, Sindexname, 0 CREAT0RDWR)

or die "Cant open Sindexname for read/write: $!"; build index(.ORIG, -IDX) if -z Sindexname;

Sline = line with index(.ORIG, -IDX, Sline number);

die "Didnt find line $line number in Sfilename" unless defined Sline;

print Sline;

Версия с модулем DB File из примера 8.3 похожа на волшебство. Пример 8.3. printjine-v3

#!/usr/bin/perl -w

# print line-v3 - решение с применением OB File use DB File;

use Fcntl;

(aARGV == 2 or

die "usage; printjine FILENAME LINEJUMBER\n";

(Sfilename, $line number) = (aARGV;

$tie = tie((alines, "DB File", Sfilename, 0 RDWR, 0666, S0B RECN0) or die "Cannot open file Sfilename; $!\n";

unless ($line number < $tie->length) {