ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     14 Mar 2002  05:36:48
 To : Alex Gain
 Subject : Re: Hужна помощь
 -------------------------------------------------------------------------------- 
 

 
 "Alex Gain" <AgainU@yahoo.com> wrote in message
 news:a6ou5k$6lr$1@host.talk.ru...
 
 > Использутся Net::Telnet perl module
 > Идем на сервак, регистрируемся, входим и стартуем что нибудь из юниховой
 > команды например:
 >  @lines = $t->cmd("/usr/local/sbin/vasya");
 >  print @lines;
 > а злобный сисадмин взял и удалил эту команду :(
 > хотелось бы проверить, если результат выдаст file not found или что-нибудь
 
 в
 
 > этом роде, то делаем шаг_1, если не выдаст, то шаг_2.
 > Подскажите пож. как это сделать?
 
 Hу проверь наличие этой строки в @lines.
 
 if (grep /command not found/, @lines) {
     # шаг_1
 } else {
     # шаг_2
 }
 
 Андрей
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Hужна помощь   Alex Gain   14 Mar 2002 05:26:39   Re: Hужна помощь   Andrey Sapozhnikov   14 Mar 2002 05:36:48   Re: Hужна помощь   Victor Wagner   14 Mar 2002 11:08:39   Re: Hужна помощь   Andrey Sapozhnikov   14 Mar 2002 15:35:08