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@xxxxxxxxxxxxx mailing list =
Mail "unsubscribe apache-talk" to majordomo@xxxxxxxxxxxxx if you want to quit.
= Archive avaliable at http://www.lexa.ru/apache-talk =
"Russian Apache" includes software developed
by the Apache Group for use in the Apache HTTP server project
(http://www.apache.org/) See
Apache LICENSE.
Copyright (C) 1995-2001 The Apache Group. All rights reserved.
Copyright (C) 1996 Dm. Kryukov; Copyright (C)
1997-2009 Alex Tutubalin. Design (C) 1998 Max Smolev.