[Rio-pm] Duvidas

[Fernando Oliveira]

Normalmente eu uyso isso p/ ler e escrever de/em sockets:


sub writeInSock {
    my $oldEOL   = $EOL     ;
    my $oldBLANK = $BLANK   ;
    $EOL = "\015\012"            ;
    $BLANK = $EOL;# x 2       ;
    my $sock = shift        ;
    my $msg  = shift        ;
    print "Respondeu: ($msg)\n";
    print $sock $msg, $BLANK || warn "Nao passou o socket\n";
    my $EOL   = $oldEOL     ;
    my $BLANK = $oldBLANK   ;
}
sub readOfSock {
    local $,=" ";
    my $oldEOL   = $EOL        ;
    my $oldBLANK = $BLANK  ;
    $EOL = "\015\012"            ;
    $BLANK = $EOL;# x 2       ;
    local $/=$EOL;
    my $sock = shift        ;
    my $msg = scalar <$sock>;
    $msg =~ s#$/\s*$##g       ;
    print "MSG ($msg)\n";
    my $EOL   = $oldEOL     ;
    my $BLANK = $oldBLANK   ;
    $msg                    ;
}


ou algo perecido...

Em 22/05/07, Andre Luis <alpbs2003 em gmail.com> escreveu:
>
> Pessoal so pra da uma posicao
>
> O problema eh o seguinte
> A aplicacao dos caras fala em um socket e escuta em outro  :S
>
> 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 .
>
> Obrigado pela ajuda !!!
>
> André
>
> Em 22/05/07, Fernando Oliveira <fernandocorrea em gmail.com > escreveu:
> >
> > o termionador do telnet é \r\n, e o padrão do $/ é \n... tenta botar
> > local $/ = "\r\n" p/ ver se funciona...
> >
> > Em 22/05/07, Eden Cardim < edencardim em gmail.com> escreveu:
> > >
> > > On 5/22/07, Andre Luis < alpbs2003 em gmail.com> wrote:
> > > > O servidor nao é meu.
> > > > é uma aplcacao proprietaria
> > > > o que eu to tentando fazer é conversar com essa aplicacao
> > >
> > > Já que é proprietária, pede pro fabricante de dizer qual é o protocolo
> > >
> > > que ela usa. Alias, isso deveria estar documentado em algum lugar.
> > >
> > > --
> > > Eden Cardim
> > > Instituto Baiano de Biotecnologia
> > > Núcleo de Biologia Computacional e Gestão de Informações
> > > Biotecnológicas
> > > Laboratório de Bioinformática
> > > _______________________________________________
> > > Rio-pm mailing list
> > > Rio-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/rio-pm
> > >
> >
> >
> >
> > --
> > []'s Fernando
> > _______________________________________________
> > Rio-pm mailing list
> > Rio-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/rio-pm
> >
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20070522/990b9004/attachment.html