perl学习笔记——文件测试
文件测试主要用于查看如文件是否存在、文件大小、文件更新时间等信息。
文件测试操作符
-e 测试文件是否存在；
die "Oops!A file called '$filename' already exists.\n" if -e $filename;
-M 测试文件是否保持持续的更新，比如测试某个程序的日志文件是否保持每一周或两周更新。
此处测试的是文件句柄。
warn "Config file is looking pretty old!\n" if -M CONFIG>28;
-s 测试文件的大小，以字节计算文件大小。
例子：下面测试的是文件大小超过100字节，且更新日期低于两天的本文件夹下的文件。
#!/usr/bin/env perl
#filename:test2.pl use 5.010; while(<>) { if(/\A-.*/){ my @line=split /\s+/,"$&"; # say "$line[8]"; say "$line[8]\tis bigger than 100bytes." if -s $line[8] > 100 and -M $line[8] > 2; } }
运行命令：ls -l | ./<filename>
如何查看文件的大小(以M为单位)：my size= (-s $filename)/1024;
注意一定要加括号。
其他的文件测试项
-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：索引节点修改时间（单位：天）
测试同一个文件的多项属性
if(-r $file and -w _) # 虚拟文件句柄_
｛...｝
栈式文件操作符
use 5.010;
if( -r -w -x -o -d $file){
print "My directory is readable,writable,and executable!\n";
}
对于返回真假值以外的测试来说，栈式的写法并不出色。像下面的例子，我们原本是想穷人某个512字节的目录，可实际上会出问题：
use 5.010;
If (-s -d $file <512){
say ‘The directory is less than 512 bytes’;
}
如果按照其内部的现实方式展开，我们可以看到上面的例子实际上相当于如下的写法，整个合并起来的文件测试表达成了比较运算的一个操作数：
If ((-d $file and -s _)<512){
Print “The directory is less than 512 bytes!\n”;
}
当-d返回为假时，Perl将假值同数字512作比较。比较的结果就变为真，因为假等效为数字0,而0永远小于512。为了避免出现着这种错误，我们还是分开来写比骄傲好。
If (-d $file and -s _ <512){
Print “The directory is less than 512 bytes!\n”;
}
stat和lstat函数
测试文件的链接个数以及该文件的拥有者的ID。
要么返回空列表，否则就返回一个含有13个元素的数字列表。
my($dev,$ino,$mode,$nlink,$uid,$gid,$rev,
$size,$atime,$mtime,$ctime,$blksize,$blocks)
=stat($filename);
其返回的结果和stat函数返回的列表中对应的数据差不多，可以自行查看。
对于符号连接名调用stat函数将会返回符号链接所指向的对象信息，而非符号连接本身的信息（除非连接所指的对象目前无法访问）。若你需要符号连接本身的信息（多半没用），你可以用lstat（他会返回同样的顺序 同样意义的内容）来代替stat。如果lstat的参数不是符号连接，他会和stat一样返回空列表。
同时，stat和lstat的默认操作数是$_。也就是说，底层的stat系统调用会对标量变量$_里的文件名进行操作。
Localtime函数
通过stat获取的时间戳看起来像这个样子1180630098这种形式。但实在不容看出来表示啥意思。所以需要转换形式，转换成‘Thu May 31 09:48:18 2007’这样的字符串。Perl可以在标量上下文中使用localtime函数完成这种转换：
my $timeswap=1180630098;
my $date=localtime $timeswap;
在列表下文中，localtime会返回一个数字元素组成的列表，但其中有些元素并不是你想要的：
My ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)
=localtime $timestamp;
$mon 的值0~11;
$year 从1900年开始计算，将该值加上1900就是实际的年份；
$wday 0~6;
$yday 则表示目前是今年的第几天，0(1月1号)~364或者365；
gtime函数与localtime函数一样，不过返回的是世界标准时间。
默认情况下是返回当前time返回的时间值：
My $now=gtime;
按位运算操作符
＆ ｜ ^
<<
>>
~