文件测试主要用于查看如文件是否存在、文件大小、文件更新时间等信息。
文件测试操作符
-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=gmtime;#取得当前时间的世界标准时间的时间戳字符串
按位运算操作符
& | ^
<<
>>
~