1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

...
$SIG{__DIE__} = \&dieerr;
$SIG{__WARN__} = \&warnerr;

sub warnerr{
my $msg = shift;
print $msg;
}

sub dieerr{
my $msg = shift;
print $msg;
}

my $s_count=0;
while(1) {
  $s_count++;
  foreach my $akt_dev (keys %h_dev) {
    my $object1  = $h_dev{$akt_dev}{"object"};
    my $netaddr1 = $h_dev{$akt_dev}{"netaddr"};
    my $netmask1 = $h_dev{$akt_dev}{"netmask"};

    print "\nvor Net::Pcap:loop: $s_count bearbeite device: $akt_dev --";
    my $error = Net::Pcap::loop( $object1, 1, \&callback, [ $netaddr1, $netmask1 ] )||warn ("Fehler: > $! <");
    print "dahinter > $error <\n";
  }
}

Quote

vor Net::Pcap:loop: 1 bearbeite device: eth2 --Invalid offset: Berlin
Can't locate Math/BigInt/FastCalc.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at (eval 958) line 1.
Can't locate Math/BigInt/FastCalc.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at (eval 958) line 1.
BEGIN failed--compilation aborted at (eval 958) line 1.
Can't locate Math/BigInt/FastCalc.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at (eval 959) line 1.
Can't locate Math/BigInt/FastCalc.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at (eval 959) line 1.
BEGIN failed--compilation aborted at (eval 959) line 1.
Invalid offset: Berlin
Invalid offset: Berlin