Any ideas?use strict; use IO::Socket::INET; my $remote_host = "127.0.0.1"; my $remote_port = 950; my $socket; $socket = IO::Socket::INET->new(PeerAddr => $remote_host, PeerPort => +$remote_port, Type => SOCK_STREAM, Proto => "tcp") || die "Problem: $ +!\n"; print $socket "sp100\r"; my $data = <$socket>; print STDOUT $data; close $socket;
In reply to Why won't this read? by dynamopsychism
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |