Perl 学习笔记 --- 12

第12章：目录操作

12.1 在目录树上移动

chdir

12.2 Globbing

Shell将每个命令行中的任何的文件名模式转换成他所匹配的文件名。这被称为globbing。

Perl使用glob操作即完成相同功能。

例如：

my @all_files = glob “*.exe”; # 当前目录下的所有exe文件

12.3 globbing 的替换语法

12.3.1 同glob

尖括号（<>）中间放入星号（*）

例如：

my @all_files = <*>;

12.3.2 加入斜线

例如：

my @files = <FRED/*>

12.4 目录句柄

opendir：打开目录

readdir：读入当前目录

closedir：关闭目录

12.5 递归的目录列表

使用库：File::Find

12.6 删除文件

unlike

例如：

Unlike “*.out” # 删除当前目录下所有的out文件

相当于shell中的rm命令。

12.7 重命名文件

rename

例如：

Rename “old.out”, “new.out”;

类似shell中的mv命令。

12.8 连接和文件

link：硬连接(hard links)

等同于shell中的ln命令。

syslink：符号连接（也叫软连接(soft link)）

在windows系统相当于“快捷方式”

readlink：找出符号连接指向的地方

uls –ail

uls –i

uls -l

“.”：当前目录

“..”：父目录

12.9 创建和删除目录

mkdir：创建目录

rmdir：删除目录

12.10 修改权限

chomd

同shell中的chmod命令。

12.11 改变所有者

chown

同shell中的chown命令。

12.12 改变时间戳

utime

例如：

my $now = time;

my $ago = $now -24 * 60 * 60; # 一天的秒数

utime($now, $ago, glob(“*”)); # 设成当前访问的，一天之前修改的