Perl 教程 之 Perl 目录操作 6

Perl 目录操作

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

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

切换目录

我们可以使用chdir 函数来切换当期目录，执行该操作需要有足够权限。实例如下：

实例

!/usr/bin/perl

$dir = "/home";

将当期目录移动到 /home 目录下

chdir( $dir ) or die "无法切换目录到 $dir , $!";
print "你现在所在的目录为 $dir\n";
执行以上程序，输出结果为：

你现在所在的目录为 /home