stat()函数 perl

sol229

stat()函数返回一个数组。下面是数组各元素的含义。
0 dev 设备号 驱动器号（C：通常是2，D：通常是3，等等）
1 ino 索引节号 总是0
2 mode 文件的方式 无
3 nlink 链接号 通常为0；Windows NT；文件系统允许链接
4 uid 文件所有者的用户ID（UID）总是0
5 gid 文件所有者的组ID（GID）总是0
6 rdev 特殊文件信息 驱动器号（重复）
7 size 文件大小（以字节计）文件大小（以字节计）
8 atime 上次访问的时间 上次访问的时间
9 mtime 上次修改的时间 上次修改的时间
10 ctime Inode修改时间 文件的创建时间
11 blksz 磁盘块的大小 总是0
12 blocks 文件中的块的数量 总是0

例:获取文件时间

my @array = stat("mysql.tar.gz");
   print "$array[9]\n";




perl 中 stat lstat例解


perl中用于文件测试的函数主要是stat和lstat，也可以用一元文件测试符来进行测试，但是一元文件测试符是的底层实现机制也是基于对stat函数的调用.
stat和lstat的主要区别是对于符号链接的访问，stat将返回链接所指向的文件的信息，而lstat是返回链接的信息。
stat函数返回一个有13个元素组成的列表。
dev     0
ino     1
mode    2
nlink   3
uid     4
gid     5
rdev    6
size    7
atime   8
mtime   9
ctime   10
blksize 11
blocks  12

一般情况下一元测试符已能满足要求，当想对一个文件使用多项测试时，我们没有必要额外的调用stat函数，可以用"_"作为文件名得到上次调用的信息，如：

#!/usr/bin/perl
use warnings;
use strict;

print "Enter filename to test:";
my $filename=<>;
chomp $filename;
if(lstat $filename)
{
print "$filename is a file \n" if -f _;
print "$filename is a directory \n" if -d _;
print "$filename is readable \n" if -r _;
print "$filename is writeable \n" if -w _;
print "$filename is a link \n" if -l _;
print "$filename is executable \n" if -x _;
}
else
{
print "$filename does not exist\n";
}

使用stat对象
访问stat所返回的值不是很方便，我们必须要记得返回的列表中的值，而且程序的可读性差，因为引入了File::stat模块.
#!/usr/bin/perl
use warnings;
use strict;
use File::stat;

print "Enter filename:";
my $filename=<>;
chomp $filename;
if(my $stat=stat $filename)
{
print "$filename is ",$stat->size,"bytes and occupies",$stat->blksize*$stat->blocks,"bytes of disc space\n";
}
else
{
print "Cann't stat $filename:$|\n";
}

这样就方便多了。
在此我们可以添加一个::FIELDS导入列表到程序中，这样使用最后一次调用的stat所得的结果只要将名称前加st_前缀就行了。
如:
#!/usr/bin/perl
use warnings;
use strict;
use File::stat qw(:FIELDS);

print "Enter filename:";
my $filename=<>;
chomp $filename;
if(my $stat=stat $filename)
{
print "$filename is ",$st_size,"bytes and occupies",$st_blksize*$st_blocks,"bytes of disc space\n";
}
else
{
print "Cann't stat $filename:$|\n";
}


如果想使用stat的初始版本，可以用CORE::

use File::stat;
……………………
@new_stat=stat $filename;
@old_stat=CORE::stat $filename;

也可以用导入空列表避免覆盖。
use File::stat qw()

$stat=File::stat $filename;