perl 语句记录

1. 显示时间

($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime(time));
    $sec = ($sec < 10)? "0$sec":$sec;
    $min = ($min < 10)? "0$min":$min;
    $hour = ($hour < 10)? "0$hour":$hour;
    $day = ($day < 10)? "0$day":$day;
    $mon = ($mon < 9)? "0".($mon+1):($mon+1);
    $year += 1900;
    $today = "$day.$mon.$year|$hour:$min:$sec";
    print $today;