Certo de que você tenha a solução para ser tão gentil assim!

Obrigado por ajudar.

Sei que aqui tem muitas pessoas gentis, mas abro mão e não desejo mais ajuda, 
pois percebo que estou incomodando pessoas tão bem instruidas como Mantovani.
Aos demais, Bruno, Junior muito obrigado pela ajuda.

Ainda me retornou o erro:

Use of uninitialized value $daddr in pattern match (m//) at 
/usr/lib/perl5/Net/RawIP.pm line 481, <> line 1.
Use of uninitialized value in subroutine entry at /usr/lib/perl5/Net/RawIP.pm 
line 626, <> line 1.
Use of uninitialized value in subroutine entry at /usr/lib/perl5/Net/RawIP.pm 
line 626, <> line 1.

fazendo da forma recomendade pelo Bruno.

CC: [email protected]
From: [email protected]
Date: Fri, 20 Apr 2012 20:44:30 -0300
To: [email protected]
Subject: Re: [Rio-pm] Problemas com rawsocket

Sim, o problema é num modulo maduro. E não num idiota que mal sabe escrever 
português.

Sent from my iPhone
On 20 Apr 2012, at 20:39, Aureliano Guedes <[email protected]> wrote:





Desculpe, Bruno (agora certo). Veja, $self->{PORT} esta dentro de &port, por 
isso chamar &port.
Não acho que o caso seja este, assim mesmo acabei de testar segundo a sua dica 
e a IDE reclamou o erro, " Global symbol "$self" requires explicit package name 
at Packs.pm line 40. ".

Ainda acho que o erro não esta no meu código e sim algum problema em o 
Net::RawIP controlar de alguma forma o pcap.

From: [email protected]
Date: Fri, 20 Apr 2012 20:32:44 -0300
To: [email protected]
Subject: Re: [Rio-pm] Problemas com rawsocket

Olá Aureliano,
2012/4/20 Aureliano Guedes <[email protected]>






Sim, como root, retorna o erro:

Use of uninitialized value in subroutine entry at /usr/lib/perl5/Net/RawIP.pm 
line 626, <> line 1.

Pouco diferente... Mas ainda não deixa de ser um problema com o Net::RawIP.



Não, muito diferente ;)
Eu não executei seu código (muitos arquivos para serem criados), mas acredito 
que o problema esteja na linha"            dest => &port,"

do seu código (na parte onde você chama Net::RawIP->new)
Provavelmente você queria dizer:"            dest => $self->{PORT},"


[ ]'sPS: BTW, meu nome é Bruno e não Gabriel ;)-- Bruno C. Buss
http://www.brunobuss.net


_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm                                      
  
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm                                      
  
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm

Responder a