perl-如何显示4/25/10至2010-25-04?

my$str= '4/25/10';
my$sr = join(' ',split (/\//,$str));
#my$s = sprintf '%3$d %2$d %1$d',$srt;
print$sr,"\n";

输出:

4 25 10

但是我想要像2010-25-04这样的输出.任何人都可以建议我如何显示我想要的输出.给我您的建议
您的答案将是可观的.

最佳答案
好吧,一个死脑筋的解决方案可能是:

my @date = split( /\//,$str)
printf("%04d-%02d-%02d", $date[2] + 2000, $date[1], $date[0]);

通过突出显示您希望的年,月和日,您可以编写一些自我记录的文档,如下所示:

my ($day, $month, $year) = split /\//, $str;
printf("%04d-%02d-%02d", $year + 2000, $month, $day);

转载注明原文:perl-如何显示4/25/10至2010-25-04? - 代码日志