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;
      其他文件测试操作符功能参考文档
      如果文件测试操作符后面没写文件名或文件句柄，默认操作数是$_里的文件名
      foreach(@lots_of_filenames){
              print "$_ is readable\n" if -r;
      } #即 -r $_
      但此时要注意任何接在测试操作符后的都可能被作为测试目标而出错，因此
      最好用括号把文件测试符括起来，如