[perl] чтение из дописываемового файла...

0

0

Нужно обрабатывать вывод программы по мере его поступления. Добиться надо приблизительно следующего эффекта:

$ ping ya.ru|sed -ne 's/.*/1/p'

Такой скрипт

#!/usr/bin/perl

while (1)
{
    $line = readline *STDIN;
    print 1;
}

того же самого не делает. Подозреваю потому что ждёт когда ping закончит вывод (чего само собой не произойдёт). Никак не возьму в толк как это победить.

Ссылка

←

sed+shell

[sofia-sip] Указать используемый транспорт.

→

google говорит, что есть File::Tail или

open(INFILE,"tail -0f $in |") || die "Failed!\n";
while(my $line = <INFILE>)
{
  do whatever to $line;
};
close(INFILE)

ЗЫ сам не пробовал, просто делать нечего :)

SOmni ★★
(01.12.09 05:40:45 MSK)

Ссылка

[code] #!/usr/bin/perl $| = 1;

while (1) { $line = readline *STDIN; print 1; } [/code]

anonymous
(01.12.09 05:46:46 MSK)

Ответ на: комментарий от anonymous 01.12.09 05:46:46 MSK

#!/usr/bin/perl 
 
$| = 1; # включаем Autoflush

while (1) 
{ 
    $line = readline *STDIN; 
    print 1; 
}

anonymous
(01.12.09 05:48:05 MSK)

Ответ на: комментарий от anonymous 01.12.09 05:48:05 MSK

Спасибо тебе anonymous, похоже то что надо.

KblCb ★★★★★
(01.12.09 05:50:32 MSK) автор топика

Ссылка

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.

←

sed+shell

Development

[sofia-sip] Указать используемый транспорт.

→

Похожие темы