【perl】 時刻表示

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

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

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

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

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

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

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

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

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


実行結果は以下の通り。

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