?

第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：找出符号连接指向的地方

?

?

u??????ls –ail

u??????ls –i

u??????ls -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(“*”));????? # 设成当前访问的，一天之前修改的