use strict; use Net::Pcap; $|++; my $err; print "pcap version " . Net::Pcap::lib_version() . "\n"; my %devinfo; my @devs = Net::Pcap::findalldevs(\$err, \%devinfo); if (defined $err) { die 'Unable to determine network device for monitoring - ', $err; } my $choice; do { print "Please choose a device to monitor:\n"; my $i = 0; for my $dev (@devs) { print ++$i . " - $dev : $devinfo{$dev}\n" } print "Choice: "; $choice = <>; } while ($choice<1 or $choice>scalar(@devs));
In reply to Net::Pcap lookupdev problem by gri6507
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |