IPアドレス：ポートを１６進表示する #!/usr/bin/perl print sprintf("%08X%04X",unpack('Nn', pack('CCCCn', split(/[\.\:]/, $ARGV[0]))));

^a 無線の環境構築中なのでちょうどいいので買っておく。無線の実験は地下の電波の届かない＋漏れない専用の部屋でやりますよ。http://hackerjapan.blog55.fc2.com/blog-entry-109.html追記： かってきました。