当前位置：文江博客话题详情

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

发布于 2024-08-12 08:40:44 字数 134 浏览 6 评论 0原文

我有一个在服务器上运行的脚本，我现在希望它向我的电脑发送消息。我想将 TCP 或 UDP 消息发送到某个端口。

执行此操作的最佳方法是什么（教程会很棒）？

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

过气美图社 2024-08-19 08:40:45

客户端可以使用套接字发送 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);

这只是冰山一角，但希望这将帮助您入门。

A client can send TCP and UDP messages using a socket, for example:

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

A server has to listen on a port, and accept messages that arrive on it:

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);

This is just the tip of the iceberg, but hopefully this will help to get you started.

回复收藏 0 原文