ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anton Berezin                        2:5020/400     22 Jul 2001  03:01:45
 To : All
 Subject : Re: IPC::Open3 and exit value
 -------------------------------------------------------------------------------- 
 

 Hi,
 
 On Sat, Jul 21, 2001 at 05:41:33PM +0000, Michael Smirnov wrote:
 
 > Требуется запустить из Perl shell-скрипт на FreeBSD 4.2, написав ему
 > на STDIN и прочитав STDOUT, и получить его exit value.  И вывод STDERR
 > нужно засунуть в переменную.  В простом случае exit value можно было
 > бы получить из system(), но он не может делать "bidirectional pipe".
 
 > Для IPC::Open3 ничего не сказано про exit value, а $? в этом случае
 > всегда возвращает  0   ;-(((((
 
 Зато там сказано про waitpid.  $? будет содержать правильный код
 возврата после того, как процесс и в самом деле завершится.
 
   $pid = open3(...);
   ... пишем ...
   ... читаем ....
   waitpid($pid, ...);  # ждём
   if (($? >> 8) != 0) {
     # лажа
   }
 
 > Это вообще возможно?
 
 Угу.
 
 Cheers,
 *Anton.
 -- 
 May the tuna salad be with you.
 --- ifmail v.2.15dev5
  * Origin: The Protein Laboratory (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    IPC::Open3 and exit value   Michael Smirnov   21 Jul 2001 21:41:33   Re: IPC::Open3 and exit value   Anton Berezin   22 Jul 2001 03:01:45