在目录树中移动
用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操作符
unlink qw(slate lava);
一次性删除多个文件:
unlink glob '*.o';
网友评论