[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