<html><head></head><body bgcolor="#FFFFFF"><div>Sim, o problema é num modulo maduro. E não num idiota que mal sabe escrever português.<br><br>Sent from my iPhone</div><div><br>On 20 Apr 2012, at 20:39, Aureliano Guedes <<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>> wrote:<br><br></div><div></div><blockquote type="cite"><div>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
<div dir="ltr">
Desculpe, Bruno (agora certo). Veja, <span></span><span>$self->{PORT}</span> esta dentro de &port, por isso chamar &port.<br>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. ".<br><br>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.<br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: <a href="mailto:bruno.buss@gmail.com">bruno.buss@gmail.com</a><br>Date: Fri, 20 Apr 2012 20:32:44 -0300<br>To: <a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a><br>Subject: Re: [Rio-pm] Problemas com rawsocket<br><br><div class="ecxgmail_quote">Olá Aureliano,</div><div class="ecxgmail_quote"><br></div><div class="ecxgmail_quote">2012/4/20 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br>
<blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Sim, como root, retorna o erro:<br><br>Use of uninitialized value in subroutine entry at /usr/lib/perl5/Net/RawIP.pm line 626, <> line 1.<br><br>Pouco diferente... Mas ainda não deixa de ser um problema com o Net::RawIP.<br>
</div></div></blockquote><div><br></div><div>Não, muito diferente ;)</div><div><br></div><div>Eu não executei seu código (muitos arquivos para serem criados), mas acredito que o problema esteja na linha</div><div>"<span> dest => &port,</span>"</div>
<div>do seu código (na parte onde você chama <span>Net::RawIP->new)</span></div><div><br></div><div>Provavelmente você queria dizer:</div><div>"<span> dest => </span><span>$self->{PORT}</span><span>,</span>"</div>
<div><br></div><div>[ ]'s</div><div>PS: BTW, meu nome é Bruno e não Gabriel ;)</div></div><div>-- </div>Bruno C. Buss<br><a href="http://www.brunobuss.net" target="_blank">http://www.brunobuss.net</a><br>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a></div> </div>
</div></blockquote><blockquote type="cite"><div><span>_______________________________________________</span><br><span>Rio-pm mailing list</span><br><span><a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a></span><br><span><a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a></span></div></blockquote></body></html>