Obtendo o IP

outubro 4, 2007

Esse é um pequeno script em perl que me informa qual é meu ip, ele acessa o site www.meuip.com.br, e depois com a saída me envia um e-mail usando o comando mail.

#!/usr/bin/perl
use strict;
use IO::Socket::INET;
use Time::localtime;
use warnings;

my $ip;

my $sock = IO::Socket::INET->new(PeerAddr => ‘www.meuip.com.br:tcp(80)’)
or die “Erro ao Conectar $! \n”;

$sock->send(“GET / HTTP/1.0\r\nHost: http://www.meuip.com.br\r\n\r\n”);

while ( <$sock> )
{
$ip = $& if $_ =~ /[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}/;
}

print “IP em  ” . ctime . ” é : ” . $ip . ” :\n”;

close ( $sock );
Quem sabe é útil para mais alguém.

Anúncios

Uma resposta to “Obtendo o IP”


Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: