在 Perl 中进行文件操作时，获取文件信息是常见的需求。Perl 提供了多种方法来获取文件的各种信息，包括文件的大小、权限、修改时间等。以下是一些常用的方法和函数来获取这些信息：

使用 stat 函数

stat 函数可以用来获取文件的多种信息。它返回一个包含 13 个元素的数组，每个元素对应不同的文件属性。

my $filename = 'example.txt';  
# 调用 stat 函数  
my @stats = stat($filename);  
if (@stats) {  
    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,  
        $ctime, $blksize, $blocks) = @stats;  
    print "文件大小: $size bytes\n";  
    print "最后修改时间: " . localtime($mtime) . "\n";  
    print "权限: " . sprintf("%04o", $mode & 07777) . "\n";  
} else {  
    warn "无法获取文件信息: $!";  
}  

使用 -X 文件测试运算符

Perl 提供了一系列文件测试运算符，用于测试不同的文件特性。以下是一些常用的运算符：

• -e $filename：测试文件是否存在。
• -r $filename：测试文件是否可读。
• -w $filename：测试文件是否可写。
• -x $filename：测试文件是否可执行。
• -s $filename：返回文件大小（以字节为单位），如果文件不存在或为空，则返回 0。

my $filename = 'example.txt';  
if (-e $filename) {  
    print "文件存在。\n";  
    print "文件大小: " . (-s $filename) . " bytes\n";  
    print "文件可读: YES\n" if -r $filename;  
    print "文件可写: YES\n" if -w $filename;  
    print "文件可执行: YES\n" if -x $filename;  
} else {  
    print "文件不存在。\n";  
}  

使用 File::stat 模块

File::stat 模块提供了一个面向对象的接口来访问 stat 提供的信息。

use File::stat;  
my $filename = 'example.txt';  
my $stat = stat($filename);  
if ($stat) {  
    print "文件大小: " . $stat->size . " bytes\n";  
    print "最后修改时间: " . localtime($stat->mtime) . "\n";  
    print "权限: " . sprintf("%04o", $stat->mode & 07777) . "\n";  
} else {  
    warn "无法获取文件信息: $!";  
}  

以上介绍了在 Perl 中获取文件信息的几种基本方法，希望对您的文件操作有所帮助。