もう10年近く前に作ったｼｽﾃﾑの移行をしているのだけど､その中に UDP ﾊﾟｹｯﾄでﾃﾞｰﾀを受け取っているﾌﾟﾛｸﾞﾗﾑがある｡firewall の設定をしたり､ちょっとだけ新ｻｰﾊﾞに合わせてそのﾌﾟﾛｸﾞﾗﾑの受信部分を修正したので､疎通確認だけでもしときたいなっと｡Perl で簡単なﾌﾟﾛｸﾞﾗﾑでも作ろうと思ったんだけど､念の為にｸﾞｸﾞってみると､ちゃんとそういうﾌﾟﾛｸﾞﾗﾑが公開されているね｡
#!/usr/bin/perl
use 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