Portál AbcLinuxu, 4. května 2025 22:58
#!/usr/bin/perl use Net::Ping; my $ping_target = "192.168.2.8"; my $patience = 6; my $timeout = 1; my $num_timeouts = 0; #my $p = Net::Ping->new(); my $p = Net::Ping->new("icmp",$timeout); while (1) { if ($p->ping($ping_target)) { #print "okay, reachable\n"; } else { #print "unreachable!\n"; $num_timeouts++; } if ($num_timeouts == $patience) { print "Going to reset eth0: "; system("LANG=en_US date"); system("ethtool -r eth0"); $num_timeouts = 0; sleep(6); } else { sleep(1); } }
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.