Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Gans Гость
|
Добавлено: Пт Июн 27 2003 14:11 Заголовок сообщения: ЛОХИ интересуются Perl-ом подскажите !! |
|
|
Есть такая заковырка. Не знаю как быть ...
Есть файл мегов на 20 (текстовый). Его надо читать (выгреплевать некую запись) Действия с этим файлом производятся через определенные интервалы. Хитрость в том, что к файлу постоянно добавляются новые записи. Именно новые записи и нужно обрабатывать, а старые не надо. Как решить эту проблему?
Я делаю так ...
$last_pos = ... ей номер последней считанной строчки при прошлом опросе
my $counter = 0; while ( defined (my $line = $fh->getline)) { if ($counter > $last_pos) { if (grep(/^avr/,$line)) { print ($line); } } $counter++; } $last_pos = $counter .... итд ..
Может быть есть какой-нрибудь метод типа seek($last_pos) чтобы сразу перейти в нужное место текстового файла ?
ЛЮДИ, помогите советом ... |
|
Вернуться к началу |
|
|
BusTeR
Зарегистрирован: 27.02.2003 Сообщения: 318 Откуда: Lugansk
|
Добавлено: Пт Июн 27 2003 14:53 Заголовок сообщения: Re: ЛОХИ интересуются Perl-ом подскажите !! |
|
|
Как вариант...system("tail -f") |
|
Вернуться к началу |
|
|
xt
Зарегистрирован: 17.12.2002 Сообщения: 557 Откуда: Донецк, UA
|
Добавлено: Пт Июн 27 2003 15:44 Заголовок сообщения: Ну так запоминай последнюю прочитаную строку (-) |
|
|
- |
|
Вернуться к началу |
|
|
:-) Гость
|
Добавлено: Пт Июн 27 2003 16:57 Заголовок сообщения: а если в файле несколько одинаковых строк? (-) |
|
|
- |
|
Вернуться к началу |
|
|
|