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);
|
|