perl 文件测试操作符

http://blog.sina.com.cn/s/blog_5e425dd601019317.html

print "exist.\n" if -e './ad.txt';  #-e 测试文件否存在

open f, '<', './asd.txt';
print -M f , "\n"; # -M 返回距离文件上修改的天数
print -M './asd.txt' , "\n";

print -s './asd.txt' , "\n"; # -s 返回文件的字节

print -A './asd.txt' , "\n"; # -A 距离上次的范文时间

-l $f and -f $f; # 测试一个文件的多项属性，耗资源，每次都要取文件的属性
-l $f and -f _; # _是虚拟文件句柄，用上次查询的文件信息来做测试，你必须注意当前的虚拟句柄是那个文件
-f -l $f; # 栈式写法，优先测试靠近文件名的测试，从右往左

stat

返回文件的详细信息

for(stat('./asd.txt')){ # 接收3中参数  filename, <f>, _ ， 默认参数$_
    print "$_\n";
};