使用 IO::Socket::IP ???如何在 perl ipv6 中创建客户端

Question

我一直在尝试寻找一个简单的客户端 ipv6 脚本 这将适用于 Evens 服务器脚本，当然我 不知道我在做什么，所以我能做的就是重写某人 别人的工作，直到我知道我在做什么......

所以这是一个在 Microsoft widows 服务器上工作的服务器脚本

   use IO::Socket::IP -register; 
   my $sock = IO::Socket->new(
   Domain    => PF_INET6,
   LocalHost => "::1",
   Listen    => 1,
   ) or die "Cannot create socket - $@\n";

   print "Created a socket of type " . ref($sock) . "\n";

   {
   $in = <STDIN>;
   print $in->$sock;
   redo }

当然 $in->$sock 不起作用，因为我不知道如何发送 仅使用 $sock 的数据？？？ 所以我需要知道如何正确发送信息和
我需要的是一个客户端脚本来连接到上面的脚本 使用 ipv6 协议

有人可以帮忙吗？？？ 我希望能够从一个发送信息 使用这个 perl 程序到另一个 perl 程序 能够来回发送信息将 成为理想...

提前致谢 -马克

Answer 1

这是一个服务器套接字 (Listen => 1)，所以你必须 accept 一个连接。

use IO::Socket::IP -register;

my $listen_sock = IO::Socket::IP->new(
   LocalHost => "::1",                    # bind()
   Listen    => 1,                        # listen()
) or die "Cannot create socket - $@\n";

print("Listening to ".$listen_sock->sockhost()." "
                     .$listen_sock->sockport()."\n");

while (1) {
   my $sock = $listen_sock->accept()
      or die $!;

   print("Connection received from ".$sock->peerhost()." "
                                    .$sock->peerport()."\n");

   while (<$sock>) {
      print $sock "echo: $_";
   }
}

一个客户：

use IO::Socket::IP -register;

@ARGV == 2 or die("usage");
my ($host, $port) = @ARGV;

my $sock = IO::Socket::IP->new(
   PeerHost => $host,                     # \ bind()
   PeerPort => $port,                     # /
) or die "Cannot create socket - $@\n";

print $sock "Hello, world!\n";
$sock->shutdown(1);                       # Done writing.
print while <$sock>;

cmets 指示用于执行操作的底层系统调用。