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

 

 

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