Perl 目录

2025年3月17日 | 阅读 3 分钟

不同的操作系统有不同的命令来查看目录中的文件列表。例如，'li' 命令用于 Linux，'dir' 命令用于 Windows。

但是我们也可以使用 Perl 目录函数在 Perl 中打开目录。在这里，目录处理与文件处理非常相似。

Perl 为目录提供了两种选择：文件 globbing 和目录函数。文件 globbing 通常用于相似的文件子集，而目录函数提供了更多选项。

Perl 目录函数

在下表中，我们列出了一些目录函数。

函数	用途
opendir DIRHANDLE, EXPR	它打开一个目录。
readdir DIRHANDLE	它读取一个目录。
rewinddir DIRHANDLE	它将指针定位到开头。
telldir DIRHANDLE	它返回目录的当前位置
seekdir DIRHANDLE, POS	它将指针指向目录中的 POS。
closedir DIRHANDLE	它关闭一个目录。

Perl 打开/显示目录

要在 Perl 中打开目录，可以使用函数 opendir。此函数在成功时返回 true，失败时返回 false。

使用实际错误消息设置 $! 将显示失败的原因。

语法

示例

#!/usr/bin/perl
my $directory = '/users/javatpoint';
opendir (DIR, $directory) or die "Couldn't open directory, $!";
while ($file = readdir DIR) {
  print "$file\n";
}
closedir DIR;

输出

Perl 创建目录

要在 Perl 中创建一个新目录，可以使用函数 mkdir。您需要具有创建目录所需的权限。

语法

示例

#!/usr/bin/perl
my $directory = '/users/javatpoint/perl';
#creating directory perl
mkdir( $directory ) or die "Couldn't create $directory directory, $!";
print "Directory created successfully\n";

输出

Directory created successfully

给定的快照显示了在 /users/javatpoint 目录列表中创建的目录 perl。

Perl 在标量上下文中读取目录

要读取目录的内容，可以使用函数 readdir。在标量上下文中，此函数将逐个返回目录的每个项目。一旦读取完所有内容，它将返回 undef。

语法

while (my $directory = readdir $dh) {
    say $directory;
}

示例

use strict;
use warnings;
use 5.010;
my $directory = shift // '/users/javatpoint';
opendir my $dh, $directory or die "Could not open '$directory' for reading '$!'\n";
while (my $content = readdir $dh) {
    say $content;
}
closedir $dh;

输出

Perl 在列表上下文中读取目录

在列表上下文中，readdir 函数将在一个语句中返回目录的所有内容。因此它使用更多的内存。

语法

my @directory = readdir $dh;
foreach my $directory (@directory) {
    say $directory;
}

示例

use strict;
use warnings;
use 5.010;
 my $directory  = shift // '/users/javatpoint';
opendir my $dh, $directory or die "Could not open '$directory' for reading '$!'\n";
my @content = readdir $dh;
foreach my $content (@content) {
    say $content;
}
closedir $dh;

输出

Perl 删除目录

要在 Perl 中删除目录，可以使用函数 rmdir。您需要具有删除目录所需的权限。要删除的目录在删除之前应该是空的。

语法

示例

#!/usr/bin/perl
$directory = "/users/javatpoint/perl";
# This removes perl directory from /tmp directory.
rmdir( $directory ) or die "Couldn't remove $directory directory, $!";
print "Directory removed successfully\n";

输出

Directory removed successfully

Perl 更改目录

要在 Perl 中更改目录，可以使用函数 chdir。要更改目录并进入新目录，您需要具有所需的权限。

语法

示例

#!/usr/bin/perl
$directory = "/users/";
# TThe directory changes to users.
chdir( $directory ) or die "Couldn't go inside $directory directory, $!";
print "Diretory has been changed to $directory\n"

输出

Diretory has been changed to /users/

Perl 关闭目录

要在 Perl 中关闭目录，可以使用函数 closedir。此函数正式关闭目录句柄和目录之间的连接。尽管关闭目录在 Perl 中不是强制性的，因为当变量超出范围时，目录将自动关闭。

语法

closedir $dh;
	OR
closedir DIR;

Perl 使用文件 Globbing 打开目录

要打开目录中与特定模式匹配的所有文件，请使用 Perl 文件名 glob 匹配模式语法。

我们将显示目录中具有扩展名 .docx 的所有文件的列表。

#!/usr/bin/perl -w
opendir(DIR, ".");
@files = grep(/\.docx$/,readdir(DIR));
closedir(DIR);
foreach $file (@files) {
   print "$file\n";
}

输出

在上面的输出中，读取了目录中的所有文件，但 grep 仅传递扩展名为 .docx 的文件。

下一主题Perl 错误处理

我们提供所有技术（如 Java 教程、Android、Java 框架）的教程和面试问题

联系信息

G-13, 2nd Floor, Sec-3, Noida, UP, 201301, India

hr@tpointtech.com

+91-9599086977

关注我们

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

Perl 教程

Perl 控制语句

Perl 数组

Perl 字符串

Perl 命名空间

Perl 哈希

Perl Regex

Perl 函数

Perl 文件处理

Perl 目录

Perl 错误处理

Perl 高级

Perl 面试

Perl 目录

Perl 目录函数

Perl 打开/显示目录

Perl 创建目录

Perl 在标量上下文中读取目录

Perl 在列表上下文中读取目录

Perl 删除目录

Perl 更改目录

Perl 关闭目录

Perl 使用文件 Globbing 打开目录

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器