Normalmente eu uyso isso p/ ler e escrever de/em sockets:<br><br><br>sub writeInSock {<br> my $oldEOL = $EOL ;<br> my $oldBLANK = $BLANK ;<br> $EOL = "\015\012" ;<br> $BLANK = $EOL;# x 2 ;
<br> my $sock = shift ;<br> my $msg = shift ;<br> print "Respondeu: ($msg)\n";<br> print $sock $msg, $BLANK || warn "Nao passou o socket\n";<br> my $EOL = $oldEOL ;<br>
my $BLANK = $oldBLANK ;<br>}<br>sub readOfSock {<br> local $,=" ";<br> my $oldEOL = $EOL ;<br> my $oldBLANK = $BLANK ;<br> $EOL = "\015\012" ;<br> $BLANK = $EOL;# x 2 ;
<br> local $/=$EOL;<br> my $sock = shift ;<br> my $msg = scalar <$sock>;<br> $msg =~ s#$/\s*$##g ;<br> print "MSG ($msg)\n";<br> my $EOL = $oldEOL ;<br> my $BLANK = $oldBLANK ;
<br> $msg ;<br>}<br><br><br>ou algo perecido...<br><br><div><span class="gmail_quote">Em 22/05/07, <b class="gmail_sendername">Andre Luis</b> <<a href="mailto:alpbs2003@gmail.com">alpbs2003@gmail.com
</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Pessoal so pra da uma posicao<br><br>O problema eh o seguinte <br>A aplicacao dos caras fala em um socket e escuta em outro :S
<br><br>ou serja no meu cliente eu vou ter que escutar uma porta tcp onde vou receber as informacoes e me conectar em outra porta ( a do servidor ) para responder .
<br><br>Obrigado pela ajuda !!! <br><br>André<br><br><div><span class="q"><span class="gmail_quote">Em 22/05/07, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
fernandocorrea@gmail.com</a>
> escreveu:</span></span><div><span class="e" id="q_112b53cfc42689fb_2"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">o termionador do telnet é \r\n, e o padrão do $/ é \n... tenta botar local $/ = "\r\n" p/ ver se funciona...
<br><br><div><span><span class="gmail_quote">Em 22/05/07, <b class="gmail_sendername">Eden Cardim</b> <<a href="mailto:edencardim@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
edencardim@gmail.com</a>> escreveu:</span></span><div><span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On 5/22/07, Andre Luis <<a href="mailto:alpbs2003@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
alpbs2003@gmail.com</a>> wrote:<br>> O servidor nao é meu.<br>> é uma aplcacao proprietaria<br>> o que eu to tentando fazer é conversar com essa aplicacao<br><br>Já que é proprietária, pede pro fabricante de dizer qual é o protocolo
<br>que ela usa. Alias, isso deveria estar documentado em algum lugar.<br><br>--<br>Eden Cardim<br>Instituto Baiano de Biotecnologia<br>Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas<br>Laboratório de Bioinformática
<br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/rio-pm
</a><br></blockquote></span></div></div><span><br><br clear="all"><br>-- <br>[]'s Fernando
</span><br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></span></div></div><br>
<br>_______________________________________________<br>Rio-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando