16進表記のIPアドレスとポートを数字に変える

code 



#!/usr/bin/perl

# HEX2IPaddr
print unpack("C",pack("H*",substr($ARGV[0],0,2))),".";

print unpack("C",pack("H*",substr($ARGV[0],2,2))),".";

print unpack("C",pack("H*",substr($ARGV[0],4,2))),".";

print unpack("C",pack("H*",substr($ARGV[0],6,2))),":";

print unpack("C",pack("H*",substr($ARGV[0],8,2)))+unpack("C",pack("H*",substr($ARGV[0],10,2)))*256,"\n";