Perl 教程 之 Perl 目录操作 4

Perl 目录操作

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

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

创建一个新目录

我们可以使用 mkdir 函数来创建一个新目录，执行前你需要有足够的权限来创建目录：

实例

!/usr/bin/perl

$dir = "/tmp/perl";

在 /tmp 目录下创建 perl 目录

mkdir( $dir ) or die "无法创建 $dir 目录, $!";
print "目录创建成功\n";