хочу подключиться к АТС, чтобы снимать с нее статистику через TCP/IP.
обычным telnet-ом это делается просто:
telnet 192.168.100.251 23
и после этого все сообщения, которые сыпет станция, видно на экране.
пытаюсь изобразить что-то похожее на Перле:
#!/usr/bin/perl -w
use IO::Socket;
unless (@ARGV==2) {die "usage: $0 host port"}
$host=$ARGV[0];
$port=$ARGV[1];
print "try to connect to port ",$port," at ",$host,"\n";
$remote=IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>$host,PeerPort=>$port,) or die "cannot connect to port $port at $host";
print $remote "\n";
while (<$remote>)
{
  print
}
close $remote;

коннект устанавливается, но на экран ничего не выводится :(
пожалуйста, подскажите, как победить это?
и как сделать, чтобы она разрывала коннект и завершалась при нажатиии определнной клавиши?

PS. в отличие от telnet-а передача данных односторонняя, т.е. на станцию отправлять ничего не надо

• как эмулировать telnet?, uldus, 14:07 , 22-Апр-03, (1)