in reply to Re^2: Net::Ping and STDOUT
in thread Net::Ping and STDOUT
And while it's very clear and immediate to me I understand that others' opinion may vary, and expressive variable name like $host may be preferable for maintainability resons.for my $net (@net) { for (16..250) { local $_="$net.$_"; warn "$_ not responding!\n" and next if !$p->ping($_); print; } }
Also, if the script were only just a bunch of lines longer, I would have never used the -l switch. Of course I'm eagerly waiting for (Perl6's) say().
|
|---|