date01.pl
#!/usr/bin/perl $a=time(); #日時データの取得 ($sec, $min, $hour, $day, $mon, $year, $wday)=localtime($a); #リスト形式で取り出す @week=("日","月","火","水","木","金","土"); printf("%4d年%2d月%2d日(%s)%2d時%2d分%2d秒\n", $year+1900, $mon+1, $day, $week[$wday], $hour, $min, $sec);
SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||