Help for this page

Select Code to Download

Select or download this

#!/perl/bin/perl
use warnings;
use strict;
...
for (sort keys %host_result) {
  print "$_ is ", ($host_result{$_} ? "good" : "bad"), "\n";
}

Select or download this

C:\Scripts\Parallel>ping_parallel.pl
-3676 is processing 10.0.1.025
-3072 is processing 10.0.1.026