23. Perl 文件操作-文件类型判断

旧城等待， 2022-01-27 21:21 443阅读 0赞

perl 语言提供了很多对于判断文件属性的操作符, 笔者只列出个人常用的一些文件操作符. 文件属性判断操作符通常与if 配合使用.

## 1. 常用文件操作符 ##

### 1.1 判断文件权限 ###

<table> 
 <thead> 
  <tr> 
   <th align="left">测试操作符</th> 
   <th align="left">含义</th> 
  </tr> 
 </thead> 
 <tbody> 
  <tr> 
   <td align="left">-r</td> 
   <td align="left">当前用户对此文件是否拥有可读权限</td> 
  </tr> 
  <tr> 
   <td align="left">-w</td> 
   <td align="left">当前用户对此文件是否拥有可写权限</td> 
  </tr> 
  <tr> 
   <td align="left">-x</td> 
   <td align="left">当前用户对此文件是否拥有可执行权限</td> 
  </tr> 
  <tr> 
   <td align="left">-o</td> 
   <td align="left">此文件所有者是否是当前用户</td> 
  </tr> 
 </tbody> 
</table>

### 1.2 判断文件类型 ###

<table> 
 <thead> 
  <tr> 
   <th align="left">测试操作符</th> 
   <th align="left">含义</th> 
  </tr> 
 </thead> 
 <tbody> 
  <tr> 
   <td align="left">-f</td> 
   <td align="left">文件是否是普通文件</td> 
  </tr> 
  <tr> 
   <td align="left">-d</td> 
   <td align="left">文件是否是目录文件</td> 
  </tr> 
  <tr> 
   <td align="left">-l</td> 
   <td align="left">文件是否是链接文件</td> 
  </tr> 
 </tbody> 
</table>

### 1.3 判断文件存在 ###

<table> 
 <thead> 
  <tr> 
   <th align="left">测试操作符</th> 
   <th align="left">含义</th> 
  </tr> 
 </thead> 
 <tbody> 
  <tr> 
   <td align="left">-e</td> 
   <td align="left">文件或目录存在</td> 
  </tr> 
  <tr> 
   <td align="left">-z</td> 
   <td align="left">判断文件内容为空,不能用于判断目录</td> 
  </tr> 
  <tr> 
   <td align="left">-s</td> 
   <td align="left">判断文件或目录存在, 返回文件或目录的大小, 单位为字节</td> 
  </tr> 
 </tbody> 
</table>

## 2 文件操作符组合 ##

通常我们可能会对同一个文件的多个属性进行判断, 那么就需要组合文件操作符

### 2.1 逻辑表达式组合 ###

*  perl 可以使用and 和 or 表示逻辑与和逻辑或的关系
 *  隐式文件句柄 \_ 表示上次监测的文件, 用于提升效率

if ( -f $file and -x _ ) { 
       print "文件$file 存在且可执行\n";
    }

### 2.2 栈式组合 ###

栈操作符只能表示逻辑与关系, 使用起来很方便, 代码写起来会更精简.

if( -f -x $file){ 
       print "文件$file 存在且可执行\n";
    }