もう10年近く前に作ったシステムの移行をしているのだけど、その中に UDP パケットでデータを受け取っているプログラムがある。firewall の設定をしたり、ちょっとだけ新サーバに合わせてそのプログラムの受信部分を修正したので、疎通確認だけでもしときたいなっと。Perl で簡単なプログラムでも作ろうと思ったんだけど、念の為にググってみると、ちゃんとそういうプログラムが公開されているね。
もう、そこに載ってるソースそのまま（スコープがグローバルしかないので、変数宣言の my だけ外すという繊細さを見せてるが（笑）＞俺）にコピー。
#!/usr/bin/perluse Socket;$ipstr = $ARGV[0];$port = $ARGV[1];$msg = $ARGV[2];$ipaddr = inet_aton($ipstr);$sockaddr = pack_sockaddr_in($port, $ipaddr);socket(SOCKET, PF_INET, SOCK_DGRAM, 0);send(SOCKET,$msg , 0, $sockaddr);
無事、テスト終了。
最近 Perl もあまり触ってないので、これだけのコード書くにも色々調べないと駄目だったと思うので、大変助かりました。ありがとうございます＞ProjectLiliO
コメントする