Perl 教程 之 Perl 目录操作 5

Perl 目录操作

以下列出了一些操作目录的标准函数：

opendir DIRHANDLE, EXPR # 打开目录
readdir DIRHANDLE # 读取目录
rewinddir DIRHANDLE # 定位指针到开头
telldir DIRHANDLE # 返回目录的当前位置
seekdir DIRHANDLE, POS # 定位指定到目录的 POS 位置
closedir DIRHANDLE # 关闭目录

删除目录

我们可以使用 rmdir 函数来删除目录，执行该操作需要有足够权限。另外要删除的目录必须的空目录：

实例

!/usr/bin/perl

$dir = "/tmp/perl";

删除 /tmp 目录下的 perl 目录

rmdir( $dir ) or die "无法删除 $dir 目录, $!";
print "目录删除成功\n";