ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ura Bulatevich                       2:451/16.66    12 Feb 2003  18:16:36
 To : All
 Subject : улушшение требуется ...
 -------------------------------------------------------------------------------- 
 

 Помогите пожалуйста оптимизировать слудующий код или
 как можно получить МАС иначе:
 
 $ip="181.1.31.13";
 system('@ping -n 1 '.$ip.' >nul');
 system('@arp -a '.$ip.' >'.$ip.'.txt');
 
 open(FILE,"$ip.txt") || die "Can`t";
 @Data=<FILE>;
 
 foreach (@Data)
 {
  if (m/$ip/g)
   {
    $_=substr($_,0,rindex($_," "));
    s/\s+/ /g;
    ($_,$ip,$mac)=split (/ /,$_);
    print "$mac\n"
   }
 };
 close(FILE);
 system('@del '.$ip.'.txt')
 Заранее большое 4nks.
 
 WBR
 Ura
 
 --- Все, что ни делается - к худшему !
  * Origin: It`s a good ? (2:451/16.66)
 
 

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

Тема:    Автор:    Дата:    улушшение требуется ...   Ura Bulatevich   12 Feb 2003 18:16:36   Re: улушшение требуется ...   Artem Chuprina   13 Feb 2003 16:07:09