#!/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");
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/6456/viewspace-1008704/，如需转载，请注明出处，否则将追究法律责任。
上一篇：
perl ->
下一篇：
去掉两个字人名中间的空格
请登录后发表评论
登录
全部评论
