#!/usr/bin/env perl
$time = localtime(time);
print "$time\n";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
print "$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst\n";
@months = (1..12);
@days = qw(Sun Mon Tue Wed thu Fri Sat);
if ($sec < 10) {$sec = "0$sec";}
if ($min < 10) {$min = "0$min";}
if ($hour < 10) {$hour = "0$hour";}
if ($mday < 10) {$mday = "0$mday";}
$year = 1900+$year;
$date = "$days[$wday] $year/$months[$mon]/$mday";
$time = "$hour:$min:$sec";
print "$date $time\n";[root@master ~/perl]# ./time.pl
Wed Dec 18 22:03:24 2013
24,3,22,18,11,113,3,351,0
Wed 2013/12/18 22:03:24