stat 的名字接口

Perl文件属性检查

最新推荐文章于 2022-05-28 21:40:29 发布

weixin_30315435

最新推荐文章于 2022-05-28 21:40:29 发布

阅读量128

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/tjxwg/p/3338031.html

本文介绍了一个Perl脚本，用于检查文件的各种属性，如是否可执行、硬链接数量等，并演示了如何使用File::stat模块来获取这些信息。

File::stat - stat 的名字接口

名字为：dev, ino, mode, nlink, uid, gid, rdev, size, atime, mtime, ctime, blksize, and blocks.

语法:

 use File::stat;
 $st = stat($file) or die "No $file: $!";
 if ( ($st->mode & 0111) && $st->nlink > 1) ) {
     print "$file is executable with lotsa links\n";
 } 

 if ( -x $st ) {
     print "$file is executable\n";
 }

 use Fcntl "S_IRUSR";
 if ( $st->cando(S_IRUSR, 1) ) {
     print "My effective uid can read $file\n";
 }

 use File::stat qw(:FIELDS);
 stat($file) or die "No $file: $!";
 if ( ($st_mode & 0111) && ($st_nlink > 1) ) {
     print "$file is executable with lotsa links\n";