[SP-pm] Sugestão
Joaquim SONGTKLP
test_071009 at hotmail.com
Tue Oct 6 21:28:01 PDT 2009
Amigos, boa noite
Está vulgar?
Grato, Joaquim.
#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;
my $url = "www.google.com.br";
my $gw1 = '10.10.10.1';
my $gw2 = '192.168.0.1';
my $p = Net::Ping->new( "icmp", 60, 64 );
if ( $p->ping($url) ) {
$p->close();
} elsif {
open( N, "route |") {
$_ = (<N>);
@_ = split(/s+/, $_);
qx(route del default gw $_[1]);
qx(route add default gw $gw1);
}
close(N);
} else {
open( N, "route |") {
$_ = (<N>);
@_ = split(/s+/, $_);
qx(route del default gw $_[1]);
qx(route add default gw $gw2);
}
close(N);
}
_________________________________________________________________
Você sabia que com o Hotmail você tem espaço ilimitado para guardar seus e-mails? Começe a usar já!
http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20091007/31814161/attachment.html>
More information about the SaoPaulo-pm
mailing list