ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Nikolaev                        2:5030/266     13 Jul 2000  19:57:19
 To : Dmitry Morozov
 Subject : Re: нРОПЮБХРЭ ЯРПHЙС МЮ БУHД Х ОHКСВХРЭ Я БШУHДЮ.
 -------------------------------------------------------------------------------- 
 

 Dmitry Morozov <moroz@may.krid.crimea.ua> wrote:
 
 > Есть-ли способ (наверняка ведь есть) отправить строку (массив) 
 > на вход внешней программы и затем сохранить результат работы 
 
 Вот работающий кусок, занимается выяснением того,
 какие интерфейсы есть на роутере под gated путём
 пинания локального ospf_monitor'а.
 
 use FileHandle;
 use IPC::Open2;
 my $om = '/usr/local/bin/ospf_monitor';
 my %IntList;    # interface list
 ...
 sub GetIntList {
   my $ip = shift;
   my $pid = open2 ( $RDR, $WTR, $om );
   print $WTR "$ip h\nquit\n";     # ospf query
   close $WTR;
   while ( <$RDR> ) { last if /^---/; } # skip header
   while ( <$RDR> ) {
     last if /^done/;
     my ( $type, $intname ) = ( split ) [1,4];
     next if $type ne 'Direct';
     $IntList { $intname } = $interface;
   }
   close $RDR;
 }
 
 -- 
 И
 --- ifmail v.2.12.os.sensi
  * Origin: http://noc.pu.ru (2:5030/266@fidonet)
 
 

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