文件测试

1. 文件测试操作符

perl提供了一组用于测试文件的操作符，借此可以返回特定的文件信息。

• 通常使用 -x的形式调用，其中x值得时特定的测试操作，如-w -r等。
• 通过特定的文件测试符，可以让我们的程序变得更加智能。
• 使用格式： -r $filename （连字符+测试场景 文件名称或文件句柄）
• 默认检查$_，但是-t 的默认值是STDIN

#!/usr/bin/perl
#使用-e判断文件是否存在
#如果文件存在，调用die函数结束程序，这样可以保证已存在的文件不会被覆盖
die "Oops! A file call '$filename' already exists.\n"
	if -e $filename;
#测试某个文件是否保持更新
#这里的-M返回的是文件最后一次修改时间到让当前程序启动时刻之间的天数
warn "Config file is looking pretty old.\n"
	if -M CONFIG > 20;
#如果我们希望查找文件大于100k，并且超过90天未访问的文件
my @original_files = qw/fred betty barney wilma pebbles dino/;
my @big_old_files;
foreach my $filename (@original_files) {
	push @big_old_files,$filename
		if -s $filename > 100_000 and -A $filename > 90;  # -s 返回的是以字节计算的文件大小
}

表1.1 文件测试操作符及其意义

注:

1. 如无特殊声明，返回的都是布尔真/假值；
2. -r -w -x -o需要查看用户ID，看他们是否具有相应的文件权限；
3. 有效用户：负责运行这个程序的人。

1.1 同一文件的多个属性测试

如果要一次性测试一个文件的多个属性，可以将个文件的测试组成一个逻辑表达式。

#!/usr/bin/perl
#检查可读可写的文件
if (-r $filename and -w $filename) {
... }
#使用虚拟文件句柄_ (是的就是下划线字符)
if (-r $filename and -w _) {        # _告诉perl使用上次查询过的文件信息做测试
... }
# _ 指的是调用 _ 之前最后一次查询的文件信息
if (-r $filename) {
...}
&lookup ($other_filename);
if(-w _){                          #此时查询的是$other_filename是否具有写权限
...}
sub lookup{
	return -w $_[0]；
}

1.2 栈式文件测试操作符

perl5.10之后允许使用栈式文件测试操作符。

• 格式： 将文件测试符排成一列，放在被测试的文件名前

#!/usr/bin/perl
#续上例
if (-w -r $filename){              #注意：这里先检查 -r 再检查 -w，顺序由右向左依次执行
...}
#也可以使用更多的文件测试操作符
if (-w -r -o -x -d $filename){     #顺序由右向左依次执行
...}
#对于需要返回其他值的文件测试符而言，栈式文件操作符反而鸡肋
if (-s -d $filename < 512) {               #错误！
}
if ((-d $filename and -s _) < 512) {       #以上程序和此句一致，当-d为假，永远小于512，if判断条件为真
}
if (-d $filename and -s _ < 512){          #此时建议使用这种写法，因为-s是返回以字节计算的文件大小
...}

2. stat 和 lstat函数

使用文件测试操作符可以查看文件的许多属性，但是还有许多其他属性信息没有对应的文件测试操作符。比如说，没有任何文件测试符会返回文件链接数或者文件拥有者的ID(uid)，此时可以使用stat函数，和Unix中的stat类似，返回丰富的文件信息。

• stat函数：

  • 格式：stat($filename)
  • 参数允许格式：文件句柄，虚拟文件句柄_，返回文件名的表达式
  • 如果执行失败(无效文件名，文件不存在等)，函数返回空列表
  • 如果执行成功，返回一个包含13个数字元素的列表。
  • my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = state($filename)

• 表2.1 stat函数的返回值

• 注意：
  • 如果stat的参数是符号链接，那么stat返回文件属性并非符号链接本身，而是其指向的对象；
  • 如果需要查询符号链接的文件属性，可以使用 lstat 函数，如果 lstat 的参数不是符号链接，返回空列表
  • stat 和 lstat 函数的默认操作数是 $_
• localtime函数
  从state返回的时间值格式可能是1231253675416类似的形式，这样的数字可读性较差，所以我们希望使用比较容易阅读的形式，如： Sat Jan 20 00:54:09 2018这种，Perl中可以在标量上下文中实现这种转换：

#!/usr/bin/perl
my $timestamp = 1234432456;
my $date = localtime $timestamp;
#不提供参数时，默认使用当前time返回的时间值
my $time = localtime;
#类似的还有gmtime，返回世界标准时间，格林威治标准时间
my $time = gmtime;

• localtime的返回列表：
  • my = ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $timestamp;

表2.2 local函数的部分返回值

3. 位运算操作符

位运算符对数据执行二进制数学运算。

• 表3.1 位运算操作符及其意义

3.1 使用位字符串

所有的位运算符既可以操作位字符串，也可以操作整数；

• 如果两个操作数都是整数，那么结果也是整数，如10 & 12 = 8
• 如果两个操作数都是字符串，那么结果也是字符串，如"\xAA" | “\x55” = “\xFF”
  在perl5.22之前，只要操作数中某一个是数字类型，那么就会按照数字的位运算方式执行；

#!/usr/bin/perl
my $number  = 137;
my $number_str = '137';
my $string  = 'Amelia';
say "number_str & string",$number_str & $string;       #打印：number_str & string ?!%
say "number & string    ",$number     & $string;       #打印：number & string     0
say "number & number_str",$number     & $number_str;   #打印：number & number_str 137
say "number_str & string",$number_str & $string;       #打印：number_str & string 0
#Lin1: 字符串运算得到的结果
#Lin2：因为number是数字，因此先把Amelia转换为数字，然后按照数字方式进行位运算得到0
#Line3：因为number是数字，因此先把‘137’转换为数字，然后按照数字方式进行位运算得到137
#Line4：perl上次处理string和number_str的时候将其修改了他们为数字类型，最后发现两个数字类型进行比较得到0

• 注：

1. 其实Perl中有双值变量的概念(dualvar)，标量可以具有两个版本的值，数字+字符串；
2. 大部分时候不会出现问题，反而更加方便；
3. 如 $! 的字符串版本是返回错误消息，而数字版本是返回错误代号。

Perl5.22以后增加了实验性的新特性已解决类似的奇怪问题，在使用操作符进行是运算时，我们最好能够确定以何种方式进行计算，不管操作数之前的操作历史。在编译时使用bitwise属性即可。

#!/usr/bin/perl
use feature qw(bitwise);
no warning qw(experimental::bitwise);
#全部当做数字进行计算
my $number  = 137;
my $number_str = '137';
my $string  = 'Amelia';
say "number_str & string",$number_str & $string;        #打印：number_str & string 0
say "number & string    ",$number     & $string;        #打印：number & string     0
say "number & number_str",$number     & $number_str;    #打印：number & number_str 137
say "number_str & string",$number_str & $string;        #打印：number_str & string 0
#在操作符后加一个.字符，进行表示以字符串方式进行位运算，如 &.
say "number_str & string",$number_str &. $string;       #打印：number_str & string ?!%
say "number & string    ",$number     &. $string;       #打印：number & string     ?!%
say "number & number_str",$number     &. $number_str;   #打印：number & number_str 137
say "number_str & string",$number_str &. $string;       #打印：number_str & string ?!%