Artem Koutchine wrote:
> > > open (A, "| /bin/cat |");
> >
> > Такого в Перле нет -
>
> Как нет?
Прочти perldoc perlfaq8 и perldoc perlipc (раздел
"Bidirectional Communication with Another Process")
> Я не знал, если бы я знал, я бы не пользовался этим
> с 97 года в туче скриптов для cron и shell, но я не знал. Поэтому
> я этим пользовался с 97-го года и никаких проблем не испытывал.
Твои скрипты 1997 года "почти работали", потому что в
open (A, "| /bin/cat |");
последние 2 знака игнорируются, а /bin/cat пишет на STDOUT.
Но читать из file handle A ты не можешь. Вот пример:
perl -e 'open PIPE, "|/bin/cat|"; print PIPE "test\n"; print uc while
(<PIPE>);'
=============================================================================
= Apache-Talk@lists.lexa.ru mailing list =
Mail "unsubscribe apache-talk" to majordomo@lists.lexa.ru if you want to quit.
= Archive avaliable at =
