Perlの目次へ

日時の表示

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

実行結果

since 2005/08/17(Wed)

Perlの目次へ

トップページへ

SEO [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送