久しぶりに INET 通信ｻｰﾊﾞ書いたので[Perl]
(2012-02-14 04:15:50) by shinoda
いやあ､久しぶりにｲﾝﾀｰﾈｯﾄｿｹｯﾄ通信処理を書いたので､つまらんところでﾊﾏってしまった(^^;
UDP 通信ｻｰﾊﾞを Perl で書いたのだが､なぜか外のﾏｼﾝから接続できない｡
自ｻｰﾊﾞ内でﾃｽﾄ用のｸﾗｲｱﾝﾄを走らせたらちゃんとﾒｯｾｰｼﾞが届くのに･･･
ええ､そうです｡あなたの推測どおりでございます(^^;
IO::Socket::INET ﾓｼﾞｭｰﾙ使ってるんだけど､その new() ｺﾝｽﾄﾗｸﾀ内のｵﾌﾟｼｮﾝで､
my $s = IO::Socket::INET->new(
LocalAddr => "localhost",
LocalPort => 50001,
ReuseAddr => 1,
Proto => "udp"
) or die $!;
ってしてただけの話しで(^^;
"localhost"にﾊﾞｲﾝﾄﾞ(ｱﾄﾞﾚｽ設定)してるんで､同一ﾏｼﾝ内からしか接続できないのが当たり前だ｡
いや､ま､実際には LocalAddr => $LOCAL_ADDR という具合に定数でｾｯﾄしてたんで､それに気づくのが遅れてしまった(^^;とほほ･･･
あと､最初にﾃｽﾄしていたのが､ﾙｰﾀでﾎﾟｰﾄﾌｫﾜｰﾃﾞｨﾝｸﾞしまくりとか､色々特殊なﾈｯﾄﾜｰｸ環境下だったので､疑うべきところが色々あって､そこまでなかなか目が向かなかったというのも言い訳の一つに揚げておこう(^^;
LocalAddr に､外部から接続可な IP ｱﾄﾞﾚｽを設定すれば問題解決｡
さあ､これで客先にこのｻｰﾊﾞ持ち込んでﾃｽﾄ出来るぞ｡
ﾃｽﾄ用ｻｰﾊﾞが EeePC 4G なんで(今､ﾃｽﾄに使える UNIX 環境がこれしか無かったのよ(^^;)､お客さん､びっくりするかもしれんけど(^^;;;
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る
Powered by
MT4i 3.0.8