Archive for outubro, 2007

moo

outubro 20, 2007

debian-casa:~# aptitude  moo
Não existem Ovos de Páscoa neste programa.
debian-casa:~# aptitude -v moo
Realmente não existem Ovos de Páscoa neste programa.
debian-casa:~# aptitude -v -v moo
Eu já não lhe disse que não existem Ovos de Páscoa neste programa ?
debian-casa:~# aptitude -v -v -v moo
Pare com isso !
debian-casa:~# aptitude -v -v -v -v moo
Ok, ok, se eu lhe der um Ovo de Páscoa você irá embora?
debian-casa:~# aptitude -v -v -v -v -v moo
Tudo bem, você ganhou.

/—-\
——-/      \
/               \
/                |
—————–/                  ——–\
———————————————-

Anúncios

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.