Olá pessoal,<br>Acabei de entrar na lista e já peço a ajuda de vcs :( <br><br>Eu já passei e repassei o o script e não estou conseguindo ver no que estou errando <br><br>Preciso conectar a um servidro e receber as informações que vem dele
<br><br>fiz o seguinte:<br>$server = IO::Socket::INET->new( PeerAddr => "$ip_server",<br> PeerPort => "$port_server",<br> Proto => "tcp",
<br> Timeout => "10"<br> ) or die ( "Error: $!\n" );<br>print $server "Heloo";<br>my $res = <$server>;<br>close ( $server );
<br>print "$res";<br><br><br>só que nao me retorna nada <br>se eu dou um telnet no servidor ele me retorna a informacao ou seja o servidor esta enviando.<br><br>Alguem pode me ajudar ? <br><br>Obrigado a todos <br>
André<br>