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