Perlソケットプログラミング

著者：Eve Cole 更新時間：2025-01-03 12:48:02

ソケットは「ソケット」とも呼ばれ、通常、アプリケーションは「ソケット」を通じてネットワークに要求を送信したり、ネットワーク要求に応答したりして、コンピューター上のホストまたはプロセスが通信できるようにします。

この章では、Perl 言語で Socket サービスを使用する方法を説明します。

サーバーの作成

ソケット関数を使用してソケットサービスを作成します。

ポートをバインドするには、 bind関数を使用します。

listen関数を使用してポートをリッスンします。

クライアント要求を受信するには、 accept関数を使用します。

クライアントの作成

ソケット関数を使用してソケットサービスを作成します。

connect関数を使用してソケットサーバーに接続します。

次の図は、クライアントとサーバー間の通信プロセスを示しています。

サーバーソケット機能

ソケット関数

Perl では、socket() 関数を使用してソケットを作成します。構文形式は次のとおりです。

ソケット(ソケット、ドメイン、タイプ、プロトコル);

パラメータ分析:

DOMAINによって作成されたソケットはプロトコルセットを指定します。例えば：

AF_INET IPv4 ネットワークプロトコルを表します

AF_INET6 IPv6 を意味します

AF_UNIXローカルソケット (ファイルを使用) を意味します

TYPEソケットタイプは、接続指向か非接続指向かに応じて、SOCK_STREAM または SOCK_DGRAM に分類できます。

プロトコルは(getprotobyname('tcp'))[2]である必要があります。使用される実際のトランスポートプロトコルを指定します。

したがって、ソケット関数の呼び出し方法は次のようになります。

 use Socket # PF_INET と SOCK_STREAM を定義しますsocket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2]);

バインド()関数

bind() を使用してソケットにアドレスを割り当てます。

バインド(ソケット、アドレス);

SOCKET ソケット記述子。 ADDRESS は、次の 3 つの要素を含むソケットアドレス (TCP/IP) です。

アドレスクラスター (TCP/IP、AF_INET、システム上ではおそらく 2)

ポート番号 (例: 21)

ネットワークアドレス (例: 10.12.12.168)

socket() を使用してソケットが作成された後は、使用されるプロトコルのみがソケットに与えられ、アドレスは割り当てられません。他のホストからの接続を受け入れる前に、bind() を呼び出してソケットにアドレスを割り当てる必要があります。

簡単な例は次のとおりです。

ソケットを使用します # PF_INET と SOCK_STREAM が定義されています $port = 12345; # リスニング ポート $server_ip_address = "10.12.12.168";bind( SOCKET, Pack_sockaddr_in($port, inet_aton($server_ip_address))) または die "ポートをバインドできません! ん";

または、アドレスのバインドに失敗した後に dieが実行されます。

ポートの設定は、setsockopt() オプション SO_REUSEADDR を設定することですぐに再利用できます。

Pack_sockaddr_in()関数は、アドレスをバイナリ形式に変換します。

listen() 関数

ソケットがアドレスにバインドされた後、listen() 関数は可能な接続リクエストのリッスンを開始します。ただし、これは信頼性の高いデータフローが保証されている場合にのみ使用できます。

 listen(ソケット、キューサイズ);

SOCKET: ソケット記述子。

QUEUESIZE: 接続リクエストが到着すると、リスニングキューに入ります。接続リクエストが accept() によって受け入れられると、リスニングキューから削除されます。キューがいっぱいです。新しい接続を要求するとエラーが返されます。

接続が受け入れられると、成功した場合は 0 が返され、エラーの場合は -1 が返されます。

accept() 関数

accept() 関数は、要求されたソケット接続を受け入れます。成功した場合はネットワークアドレスの圧縮形式を返し、それ以外の場合は FALSE を返します。

 accept( NEW_SOCKET, SOCKET );

NEW_SOCKET: ソケット記述子。

SOCKET: ソケット記述子。

accept() は通常、無限ループで使用されます。

 while(1) { accept( NEW_SOCKET, SOCKT ) ....}

上記の例では、クライアントのリクエストをリアルタイムで監視できます。

クライアント機能

connect() 関数

connect() システムコールは、ソケットの接続を設定します。パラメータはファイル記述子とホストアドレスです。

接続(ソケット、アドレス);

次の例では、サーバーソケットに接続されたインスタンスを作成します。

 $port = 21; # ftp ポート $server_ip_address = "10.12.12.168"; connect( SOCKET, Pack_sockaddr_in($port, inet_aton($server_ip_address))) または die "ポートをバインドできません! n";

完全な例

次に、完全な例を使用して、すべてのソケット関数のアプリケーションを理解します。

サーバーserver.plコード:

例

#!/usr/bin/perl -w # ファイル名 :server.pl use strict ; use Socket #デフォルトとしてポート 7890 を使用します私の$ポート=シフト||私の$ proto = getprotobyname ( ' tcp ' ) ; $server = " localhost " ;ローカルアドレスを設定します #ソケットを作成、ポートは再利用可能、複数の接続を作成ソケット( SOCKET 、 PF_INET 、 SOCK_STREAM 、 $proto ) または死ぬ"ソケット $ を開けません! n " ; setsockopt ( SOCKET , SOL_SOCKET , SO_REUSEADDR , 1 ) または死ぬ" SO_REUSEADDR $を設定できません! n " ; # ポートをバインドしてリッスンしますバインド( SOCKET 、 Pack_sockaddr_in ( $port 、 inet_aton ( $server ) ) ) または死ぬ"ポート$portをバインドできません! n " ; listen ( SOCKET , 5 )または死ぬ"聞いてください: $ ! " ; "アクセス開始: $port n " ; #受信リクエスト私の$ client_addr ; ( $client_addr = accept ( NEW_SOCKET , SOCKET ) ) { # メッセージを送信し、接続を閉じます私の$name = gethostbyaddr ( $client_addr , AF_INET ) ;印刷するNEW_ソケット"私はサーバーからのメッセージです" ; " $nameから接続を受信しました n " ; NEW_ソケット;

ターミナルを開き、次のコードを実行します。

 $ perl server.pl アクセス開始: 7890

クライアント client.pl コード:

例

#!/usr/bin/perl -w # ファイル名 : client.pl use strict ; use Socket # アドレスとポートを初期化します。私の$ host = 'ローカルホスト' ; $ポート=シフト||私の$server = " localhost " ;ホストアドレス #ソケットを作成して接続するソケット( SOCKET 、 PF_INET 、 SOCK_STREAM 、 ( getprotobyname ( ' tcp ' ) ) [ 2 ] ) または死ぬ"ソケット $ を作成できません! n " ; SOCKET 、 Pack_sockaddr_in ( $port 、 inet_aton ( $ server ) ) または死ぬ"接続できません: ポート$ port ! n " ; $ line ; ( $line = <ソケット> ) { 印刷する" $line n " ;近いソケットまたは死ぬ"閉じる: $! " ;

別のターミナルを開き、次のコードを実行します。

 $ perl client.plI はサーバーからの情報です