<div class="gmail_quote">Aureliano,</div><div class="gmail_quote"><br></div><div class="gmail_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="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">


<div><div dir="ltr">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.<br></div></div></blockquote><div><br></div><div>

De boa cara... não vamos começar com drama aqui não.</div><div>Vamos resolver o problema...</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div dir="ltr">

Ainda me retornou o erro:<br><br>Use of uninitialized value $daddr in pattern match (m//) at /usr/lib/perl5/Net/RawIP.pm line 481, <> line 1.</div></div></blockquote><div><br></div><div>Essa é fácil! =P</div><div>Mesmo problema do caso anterior:</div>

<div><span style>"            daddr => &target,"</span></div><div><span style><br></span></div><div><span style>Troque por:</span></div><div><span style>"            daddr => $self->{TARGET},"</span></div>

<div> </div><div><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div dir="ltr"><div class="im"><br>Use of uninitialized value in subroutine entry at /usr/lib/perl5/Net/RawIP.pm line 626, <> line 1.<br>

Use of uninitialized value in subroutine entry at /usr/lib/perl5/Net/RawIP.pm line 626, <> line 1.<br></div></div></div></blockquote><div><br></div><div>Na sua sub send, logo depois de você fazer</div><div>"<span style>my $size = PacksSize->new;"</span></div>

<div><span style><br></span></div><div><font color="#222222" face="arial, sans-serif">Coloque um:</font></div><div><font color="#222222" face="arial, sans-serif">say "TARGET = $self->{TARGET}";</font></div><div>

<span style="color:rgb(34,34,34);font-family:arial,sans-serif">say "PORT = $self->{PORT}";</span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif"><br></span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif">Só para fins de debug =P</span></div>

<div> </div><div><br></div><div>E depois cole seu código atual em um pastebin da vida, para facilitar a conversa :)</div><div><br></div><div>[ ]'s</div></div>-- <br>Bruno C. Buss<br><a href="http://www.brunobuss.net" target="_blank">http://www.brunobuss.net</a><br>