use strict; use Net::Ping::External qw(ping); my ($server); open (SERVERS, "<serverlist.txt"); my @srvlist = <SERVERS>; foreach $server (@srvlist) { # chop; my $alive = ping(host => "\${server}"); print "$server is online" if $alive; } close(SERVERS);
In reply to Net::Ping:External by wahoowa
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |