CONNECTIVITY: Erweitertes ARP-Tool für Windows?

[迪拉斯]

  
#!perl  
use strict;  
use diagnostics;  
use Parallel::ForkManager;  
  
my $debug = 0;  
  
my $pm = Parallel::ForkManager->new(5);  
  
foreach my $broadcast (0..255) {  
  $pm->start and next;  
  warn "$broadcast\n" if $debug;  
  for (`arp -a 192.168.0.$broadcast`) {  
    print if /..-..-..-..-..-../;  
  };  
  $pm->finish;  
};