【perl】 時刻表示


時刻表示は、unixのdateコマンドより楽かも知れない。
今日のネタは、これ。

sh-3.00$ cat example1.pl
#!/usr/bin/perl

print "------------------------------n";

$data = localtime;
print "現在時刻を表示するn";
print "$datan";

print "------------------------------n";

$time = time;
print "現在時刻をUNIXTIMEで表示するn";
print "$timen";

print "------------------------------n";

$gmtime = gmtime(time + 0);
print "現在時刻をGMTで表示するn";
print "$gmtimen";

print "------------------------------n";

実行結果は以下の通り。

sh-3.00$ ./example1.pl
------------------------------
現在時刻を表示する
Wed Nov 14 23:00:10 2007
------------------------------
現在時刻をUNIXTIMEで表示する
1195048810
------------------------------
現在時刻をGMTで表示する
Wed Nov 14 14:00:10 2007
------------------------------