05/03/13 08:47:55 hbTNnBI9
Perlで書いてみた。
$s = '090xxxxxxxx'; # 電話番号を入れる
$s =~ s/-//; # -を除去
$s =~ s/^0//; # 先頭の0を除去
$s =~ s/../sprintf("%02X",$&)/ge; # 2桁ずつ16進数に直す
print <<EOF;
URLﾘﾝｸ(pa9.ne.jp)
URLﾘﾝｸ(ao.jp)
URLﾘﾝｸ(pmat.jp)
URLﾘﾝｸ(kn.jp)
EOF
サイトの収集用
URLﾘﾝｸ(www.google.co.jp)