Perl获取文件修改日期

在Perl中，可以使用内置的stat函数来获取文件的修改日期。下面是一个简单的示例代码：

#!/usr/bin/perl

use strict;
use warnings;

my $filename = 'test.txt';

# 获取文件状态信息
my @stat = stat($filename);

# 获取修改日期
my $mtime = $stat[9];

# 格式化输出日期
my $date = localtime($mtime);
print "File modification time for $filename: $date\n";

在这个例子中，我们首先指定了要获取的文件名。然后，我们使用stat函数获取文件的状态信息，并将其存储在一个数组中。在这个数组中，第九个元素包含文件的修改时间。我们使用localtime函数将这个时间转换为可读格式，然后将其输出。

这个代码片段演示了如何使用Perl获取文件的修改日期。它使用了内置的stat函数和localtime函数，这些函数是处理文件信息和日期时间的常用函数。

需要注意的是，在使用stat函数时，必须确保文件名是有效的，并且具有正确的文件路径。否则，你可能会收到一个错误消息，表示文件不存在或无法打开。