utaani

<script type="text/javascript">
<!--
function str2japan_phone_number(org) {
// Japan Phone Number add Hyphen
// c.f. http://www.soumu.go.jp/main_sosiki/joho_tsusin/top/tel_number/index.html
// c.f. http://www.soumu.go.jp/main_sosiki/joho_tsusin/top/tel_number/q_and_a-2001aug.html
// c.f. http://oshiete.goo.ne.jp/qa/2888873.html

var num_format = new Array(
// special numbers

utaani

##-- makedate: 日付文字列の作成
sub makedate {
    my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=(localtime);

    sprintf( "%04.4d%02.2d%02.2d%02.2d%02.2d%02.2d",
            1900+$year,$mon+1,$mday,$hour,$min,$sec);
}