☰

この単純なPerlクライアントが機能しないのはなぜですか？

tag-icon • tag-icon perl tcp socket
この単純なPerlクライアントが機能しないのはなぜですか？

ソケットと一緒にIPCを使用しています。

私はなぜこのサンプルスクリプトを取得できないのか理解しようとしています。perldoc perlipc私のUbuntu設定で実行しています。

#!/usr/bin/perl -w
use IO::Socket;
$remote = IO::Socket::INET->new(
                                 Proto    => "tcp",
                                 PeerAddr => "localhost",
                                 PeerPort => "daytime(13)",
                               )
          || die "can't connect to daytime service on localhost";

while (<$remote>) { print }

スクリプトはdieTCP クライアントを設定できないために発生します。

実行すると、$ less /etc/services私がdaytime(13)定義したことがわかります。ここで何が間違っている可能性がありますか？

答え1

週間サービスを提供するサービスを運営していますか？ ~からウィキペディア:

UNIXファミリーオペレーティングシステムでは、デイサーバーは通常inetd（またはxinetd）デーモンに組み込まれています。このサービスは通常デフォルトで有効になっていません。 /etc/inetd.confファイルに次の行を追加し、inetdにその設定を再ロードするように指示することで有効にできます。

 daytime   stream  tcp     nowait  root    internal
 daytime   dgram   udp     wait    root    internal

そのため、inetd.confで週間サービスを有効にする必要があります。

関連情報