Sometimes it is handy to check to see if you’ve got connectivity through an ethernet interface, especially a wireless one. This Perl program does a ping to see if the router answers and tells HCA the results.<\/p>\n\n\n\n\n\n\n\n
use Net::Ping;
my $p = Net::Ping->new;
my $outfile = “perl-flags.txt”;
my $outline = “”;
open OUTPUT, “> $outfile” or die “Output file open error: $!”;<\/p>\n\n\n\n
if ($p->ping(“192.168.2.1”)){
$outline = “router2conn=yes”
}
else{
$outline = “router2conn=no”
}
print OUTPUT $outline;
close OUTPUT;<\/p>\n","protected":false},"excerpt":{"rendered":"
Sometimes it is handy to check to see if you’ve got connectivity through an ethernet interface, especially a wireless one. This Perl program does a ping to see if the router answers and tells HCA the results.<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":352,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-362","page","type-page","status-publish","hentry"],"yoast_head":"\n