目录操作

2019-03-27  本文已影响0人  食梦狸猫

在目录树中移动

用chdir来改变当前的工作目录

chdir '/etc' or die "can't chdir :$!";

发生错误时会设定标量变量$!的值。调用chdir时不加参数,会回到自己的用户主目录。

获取当前目录的文件

my @files = glob '*.pm';

目录句柄

可以打开目录句柄,读取到目录里的文件名

my $dir_to_process = '/etc'
opendir my $dh,$dir_to_process or die "can't open :$!";
foreach $file(readdir $dh)
{
next if $name eq'.' or $name eq '..';
#跳过.和..条目
...}
closedir $dh;

文件和目录操作

unlink qw(slate lava);

一次性删除多个文件:

unlink glob '*.o';
上一篇 下一篇

猜你喜欢

热点阅读