Perl格式化输出时间日期

#!/usr/bin/perl

($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."\n";
print time."\n";

如果要输出一天前的日期，将time减去一天的秒数（86400）。

(localtime(time-86400));

调用函数

#!/usr/bin/perl

print &get_time(10)."\n";

sub get_time {
  
  $interval = $_[0]*60;
  
  ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday)
    = (localtime(time + $interval));

  $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;
  
  return "$year-$mon-$day $hour:$min:$sec.00";
  
}