perl语言——目录操作

1. 移动当前目录 chdir

程序会以自己的工作目录作为相对路径的起点,但可以用chdir操作符来改变当前目录

1
chdir '\etc';

2. 文件名通配符*,glob

类似于shell里的星号*,或者*.v等。在perl程序中可以用glob操作符,他的返回值是一个列表

1
2
@li = glob '*'; #匹配到当前目录下的所有文件
print "@li\n"; #打印出当前目录下的所有文件

用unlink操作符可以删除文件,它的输入参数是文件名的列表。所以它可以和glob操作符连用

1
unlink glob '*.v';#删除所有的以.v结尾的文件

4. 重命名文件rename

1
rename 'old','new';#有逗号

这个命令也可以移动文件。

1
rename 'test/test.txt' => 'mv_test.txt';# 将文件test中的test.txt移动到当前目录,并改名未mv_test.txt

5. 创建和删除目录 mkdir rmdir

1
2
3
mkdir 'fred',0755;#创建目录fred,它的权限是0755,也可以不加权限	
unlink glob 'fred/*'; #先将目录中的所有文件移除
rmdir 'fred'; #rmdir只能移除空目录,先调用unlink

本博客所有文章除特别声明外,均采用 CC BY-SA 4.0 协议 ,转载请注明出处!