|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 07 Sep 2002 15:23:38
To : All
Subject : как загнать вывод сторонней программы в скрипт?
--------------------------------------------------------------------------------
Привет великомудрому аллу!
Есть у меня скрипт, который запускает прогу,
которая выводит данные из сокета:
#!/usr/bin/perl
$run = "./socket_demo 5162";
open F, "|$run";
undef $/;
while(<F>){
print "ok" if m!server!s;
}
close F;
Hу соответственно реакции на условие if в цикле
while никакой, вывод скрипта в любом случае(хоть
ставь print хоть не ставь) происходит на STDOUT.
что нужно сделать(какой ман читать), чтобы все,
что валится с вывода этой программы можно было
обработать какими-то операторами while? Загнать
вывод в канал? что-то вида pipe(F)?
книжки под рукой нет... или какойннить пример
небольшой если есть.
Спасибо за ответ!
Дима
--
TEAM [Маньяки]
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
