perl - ポートが実行されているかどうかを確認するスクリプト

Question

ボックスで 2 つのローカル ポートが実行されているかどうかを確認し、実行されている場合はポートを開く必要があります。

例えば：

DB2 ポート: 50001 MQ ポート: 1414

両方が開いている場合は、リッスン用にポート 45 を開き、どちらかが開いていない場合は、スクリプト ポートを閉じます。

私はAIX 7.1を実行しています

Answer 1

use Socket;

socket(HSOCK, AF_INET, SOCK_STREAM, getprotobyname('TCP'));
$address = sockaddr_in(50001, inet_aton('0.0.0.0'));
if (! bind(HSOCK, $address)) {
  $address = sockaddr_in(1414, inet_aton('0.0.0.0'));
  if (! bind(HSOCK, $address)) {
    $address = sockaddr_in(45, inet_aton('0.0.0.0'));
    bind(HSOCK, $address) or die "bind 45 failed";
    listen(HSOCK, 5) or die "listen 45 failed";
     . . . # accept / loop
  }
}