The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Как парсить текстовый файл в реальном времени?"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Как парсить текстовый файл в реальном времени?"
Сообщение от v3625 emailИскать по авторуВ закладки on 04-Мрт-04, 13:39  (MSK)
Одна программа с некоторой периодичностью дописывает данные в текстовый
файл. Нужно чтобы другая программа читала данные из этого файла по мере
того как они там появляются.

Делаю так:

#!/usr/bin/perl

open(f, "filename.txt");
while (true) {
  print <f>;     # или другие действия над очередной строкой
}

Работает, только глушит проц.
Как это грамотно сделать?

  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "Как парсить текстовый файл в реальном времени?"
Сообщение от alexora emailИскать по авторуВ закладки on 07-Мрт-04, 11:28  (MSK)
да очень просто :

#!/usr/bin/perl -w

use strict;

my $filename = $ARGV[1];
my $size = -s $filename;
my $predsize = $size;

while (1)
{
while ($predsize==$size)
{
$size= -s $filename;
sleep(60);
}
$predsize =  $size;
# open(F,"<$filename");
#       while (F)
# {
# print <F>;
# }
#
#
}


  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Как парсить текстовый файл в реальном времени?"
Сообщение от v3625 emailИскать по авторуВ закладки on 10-Мрт-04, 17:14  (MSK)
Большое спасибо.
  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру