如何使用Perl通过TCP和UDP连接到远程计算机？

Question

我有一个在服务器上运行的脚本,我现在想要它将消息发送到我的PC.我想将TCP或UDP消息发送到某个端口.

最好的方法是什么(教程会很棒)？

是否有一些客户端程序可以在我的PC上运行,它将收听本地端口的消息？

Answer 1

客户端可以使用套接字发送TCP和UDP消息,例如:

use IO::Socket;
my $socket = IO::Socket::INET->new(PeerAddr => 'theserver',
    PeerPort => '1234', Proto => 'tcp', Type => SOCK_STREAM);
print $socket "Hello server!";
close($socket);

服务器必须侦听端口,并接受到达它的消息:

my $socket = new IO::Socket::INET (LocalHost => 'hostname',
    LocalPort => '1234', Proto => 'tcp', Listen => 1, Reuse => 1);
my $incoming = $sock->accept();
while(<$incoming>) {
    print $_;
}
close($incoming);

这只是冰山一角,但希望这将有助于你开始.