文件检测操作

检测选项含义
-r 文件或目录对此（有效的）用户（effective user）或组是可读的
-w 文件或目录对此（有效的）用户或组是可写的
-x 文件或目录对此（有效的）用户或组是可执行的
-o 文件或目录由本（有效的）用户所有
-R 文件或目录对此用户(real user)或组是可读的
-W 文件或目录对此用户或组是可写的
-X 文件或目录对此用户或组是可执行的
-O 文件或目录由本用户所有
-e 文件或目录名存在
-z 文件存在，大小为0（目录恒为false）
-s 文件或目录存在，大小大于0（值为文件的大小，单位：字节）
-f 为普通文本
-d 为目录
-l 为符号链接
-S 为socket
-p 为管道(Entry is a named pipe(a“fifo”))
-b 为block-special 文件（如挂载磁盘）
-c 为character-special 文件（如I/O 设备）
-u setuid 的文件或目录
-g setgid 的文件或目录
-k File or directory has the sticky bit set
-t 文件句柄为TTY(系统函数isatty()的返回结果；不能对文件名使用这个测试)
-T 文件有些像“文本”文件
-B 文件有些像“二进制”文件
-M 修改的时间（单位：天）
-A 访问的时间（单位：天）
-C 索引节点修改时间（单位：天）

stat 和lstat 函数
，可以使用stat 函数，其返回Unix 系统调用stat 时相同的值（比你想知道的还多）◆。返回值或者是空列表，表明stat 失败（通常是由于文件不存在）；或者是13 个元素的列表，使用下例可以容易的说明:
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blockes)= stat($filename);

localtime 函数
当有一个时间戳(timestamp)时（如stat 中的），其格式有些像1180630098。这对你没多少用，除非你将两个时间戳相减。你可能需要将它们转换为容易阅读的形式，如“The May 31 09:48:18 2007”。Perl 可以在标量context 中使用localtime 函数
做到：
my $timestamp = 1180630098;
my $date = localtime $timestamp;