ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Volodymyr G. Mosiychuk               2:5020/400     27 Jul 2004  00:10:18
 To : All
 Subject : Script...
 -------------------------------------------------------------------------------- 
 

 
 Доброго времени суток уважаемый Алл!!
 
 Я в перле вообще новичок, помогите со скриптом:
 
 Поток в виде
 
 ==========================
    Source           Destination         Packets        Bytes     SrcPt
 DstPt    Proto   IF
  10.1.0.3            255.255.255.255   2                    458         138
 138        17         ng1
  10.1.0.3            255.255.255.255   3                    234         137
 137        17         ng1
  194.44.214.41  10.1.0.2                 8                    5646       119
 1283      6           ng0
  10.1.0.2            194.44.214.41       6                    256
 1283     119        6           ng0
 ==========================
 
 Скрипт
 
 ============================================================================
 ========
 
 #!/usr/bin/perl
 
 use strict;
 
 system("/usr/bin/rsh localhost -l root clear ip accounting");
 
 open (IPCAD_STREAM, "rsh localhost -l root show ip accounting checkpoint")
 || die "Error rsh'ing to localhost";
 
 while ($line=<IPCAD_STREAM>)
 
 {
 
 if (!(($line =~ /^Accounting/) or ($line =~ /^Source/)) and ($line != ""))
 
 {
 
 ($src, $dst, $pkts, $bytes) = split (' ', $line);
 
 print $src;
 
 };
 
 };
 
 close IPCAD_STREAM;
 
 ============================================================================
 ===========
 Ошибка
 
 ===================
 
 # ./1.pl
 Global symbol "$line" requires explicit package name at ./1.pl line 9.
 Global symbol "$line" requires explicit package name at ./1.pl line 11.
 Global symbol "$line" requires explicit package name at ./1.pl line 11.
 Global symbol "$line" requires explicit package name at ./1.pl line 11.
 Global symbol "$src" requires explicit package name at ./1.pl line 13.
 Global symbol "$dst" requires explicit package name at ./1.pl line 13.
 Global symbol "$pkts" requires explicit package name at ./1.pl line 13.
 Global symbol "$bytes" requires explicit package name at ./1.pl line 13.
 Global symbol "$line" requires explicit package name at ./1.pl line 13.
 Global symbol "$src" requires explicit package name at ./1.pl line 15.
 Execution of ./1.pl aborted due to compilation errors.
 ===================
 Заранее благодарен, Владимир.
 --- ifmail v.2.15dev5.3
  * Origin: Ukranian Academic Research Network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Script...   Volodymyr G. Mosiychuk   27 Jul 2004 00:10:18   Hа: Script...   Alexander V. Gaiduk   27 Jul 2004 09:09:49