perl 0.07 关于文件系统

#文件测试操作符
|  符号   |           作用                 |
|---------|--------------------------------|
|-r       |文件是否可以被执行者            |
|-w       |文件是否可以被执行者            |
|-x       |文件是否可以被执行者            |
|-o       |文件是否被执行者拥有            |
|-R       |文件是否可以被真正的执行者读取  |
|-W       |文件是否可以被真正的执行者写入  |
|-X       |文件是否可以被真正的执行者执行  |
|-O       |文件是否被真正的执行者拥有      |
|-e       |文件是否存在                    |
|-z       |文件大小是否为零                |
|-s       |文件大小是否不为零（返回大小）  |
|-f       |文件是否是普通文件              |
|-d       |文件是否是目录                  |
|-l       |文件是否是符号链接              |
|-p       |文件是否是管道                  |
|-S       |文件是否是套socket              |
|-b       |文件是否是块文件                |
|-c       |文件是否是字符文件              |
|-t       |文件句柄为一个打开的tty         |
|-u       |文件是否设置了setuid            |
|-g       |文件是否设置了setgid            |
|-k       |文件是否设置了sticky            |
|-T       |文件是否是文本文件              |
|-B       |文件是否是一个二进制文件        |
|-M       |最后一次修改以后的天数          |
|-A       |最后一次访问以后的天数          |
|-C       |最后一次inode修改以后的天数     |
**虚拟文件句柄 _   相当于上一次测试用的句柄**
***
#stat: (lstat 可以用于检查软链接，stat 会检查软链接指向的文件）
```perl
my($dev,$inode,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)=stat($ARGV[0]);

[0]  $dev 文件系统的设备号
[1]  $inode inode号码
[2]  $mode 文件模式（类型和权限）
[root@test ~]#  perl -e 'my @a=stat("./a.pl");print @a[2];printf "Permissions are %04o\n", $a[2] & 07777;'
33261Permissions are 0755
[3]  $nlink 指向该文件的硬链接数量
[4]  $uid 文件所有者的用户 ID
[5]  $gid 文件所属组的组 ID
[6]  $rdev 设备标识符（只用于特殊文件）
[7]  $size 文件的大小，以字节计
[8]  $atime 文件上一次访问的时间戳
[9]  $mtime 文件上一次修改的时间戳
[10] $ctime 文件上一次inode 改变的时间戳
[11] $blksize 文件系统IO 的块尺寸
[12] $blocks 文件系统块的数量

```
***
#GLOB
相当于ls,支持 * ~ 等类似bash 的通配符扩展
```perl
my $dir="/usr/*"; 
my @dirs=glob $dir; 
```

乱读天书， 不求甚解

乱读天书，不求甚解