代码驿站移动版

频道导航

perl获取日期与时间的实例代码

时间：2021-04-07 10:11:19 | 栏目：perl | 点击：次

注意：localtime获取的年份是相对于1900的偏移，需要加上1900，而localtime获取的month范围是0-11，需要加1。

复制代码代码如下:

 
#!/usr/bin/perl
 
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime();    
 
$year += 1900;    
 
$mon++;
 
my $date = "$year-$mon-$day";    
 
print $date, "\n";

您可能感兴趣的文章:

相关文章