如何在 perl 中将系统日期附加到文件名？

Question

如何在 perl 中将系统日期附加到文件名？

由于我对 perl 编程非常陌生，您能给我一个上述查询的简单示例吗？

Answer 1

POSIXstrftime()模块中的函数提供了一种简单的方法来获取您想要的任何格式的日期。

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use POSIX 'strftime';

my $date = strftime '%Y-%m-%d', localtime;
say $date;

然后，您可以在文件的文件名中使用该字符串。如果要重命名文件，则可以使用move()File ::Copy模块。