ITPub博客

首页 > 应用开发 > IT综合 > perl 获取 日期 yyyy-mm-dd

perl 获取 日期 yyyy-mm-dd

原创 IT综合 作者:jetgm 时间:2019-07-03 15:36:08 0 删除 编辑

#!/usr/local/bin/perl
use strict;
use warnings;

my ($year,$mon,$day)=(localtime)[5,4,3];
$year+=1900;
$mon+=1;
$day-=1;
my $today=sprintf("%04u-%02u-%02u",$year,$mon,$day);
print("$todayn");

[@more@]

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/6456/viewspace-1008704/,如需转载,请注明出处,否则将追究法律责任。

上一篇: perl ->
请登录后发表评论 登录
全部评论

注册时间:2002-02-06

  • 博文量
    44
  • 访问量
    34615