跳转至

Perl |查找文件和目录

原文:https://www . geesforgeks . org/perl-find-file-and-directory/

在 Perl 中遍历目录树有几种方法。遍历可以通过函数调用 opendir 和 readdir 来执行，它们是 Perl 编程语言的一部分。在 Perl 中遍历文件和目录也可以通过 Perl 语言自带的 File::Find 模块来完成。

文件::查找包含 2 个模块:

  • 查找: **find()**功能对提到的/定义的@目录执行深度优先搜索。它为目录中的每个文件或子目录调用**"&wanted"**函数。 find() 作品自上而下。
  • Finddepth: **finddepth()**执行顺序后遍历，而不是执行顺序前遍历，自下而上工作。 finddepth() 函数的工作方式几乎与**find()**函数相似，除了它首先为目录内容调用**&wanted**而不是为目录调用它。

这两个模块之间唯一的区别是文件和目录的解析顺序。在 Perl 中查找模块具有类似于 Unix **Find**命令的所有功能。 Find函数接受两个参数:

  • 第一个参数是为我们通过**find**函数找到的每个文件调用的子程序。
  • 第二个参数是**find**函数要搜索文件的目录列表。

以下是 Perl 查找文件和目录的一些示例脚本:

示例 1: 打印搜索到的文件夹中所有可用的目录。

#!usr/bin/perl
print "content-type: text/html\n\n";

use strict;
use warnings;
use File::Find;

find(
{
    wanted => \&findfiles,
},
'GeeksforGeeks'
);

sub findfiles
{

    #To search only the directory
    print "$File::Find::dir\n";  
}
exit;

输出:

示例 2: 打印出目录中可用的文件

#!usr/bin/perl
print "content-type: text/html\n\n";

use strict;
use warnings;
use File::Find;

find(
{
    wanted => \&findfiles,
},
'GeeksforGeeks'
);

sub findfiles
{

    #To search the files inside the directories
    print "$File::Find::name\n";  
}
exit;

输出:

示例 3: 只打印一次我们正在访问的文件夹/目录中所有可用/存在的目录。

#!usr/bin/perl
print "content-type: text/html\n\n";

use strict;
use warnings;
use File::Find;

find(
{
    wanted => \&findfiles,
},
'GeeksforGeeks'
);

sub findfiles
{

    # To search all the available directories 
    # in the given directory without accessing them
    print "$File::Find::name\n" if -d;  

}
exit;

输出:

示例 4: 访问目录中的文件，而不访问同一目录中的其他可用目录。

#!usr/bin/perl
print "content-type: text/html\n\n";

use strict;
use warnings;
use File::Find;

find(
{
    wanted => \&findfiles,
},
'GeeksforGeeks'
);

sub findfiles
{
    # Not accessing Geeks_New and Image directory
    # present inside the dir GeeksforGeeks
    $File::Find::prune = 1 if /Geeks_New/;
    $File::Find::prune = 1 if /Images/;

    # To print the files present in dir GeekforGeeks
    print "$File::Find::name\n";

}
exit;

输出:

示例 5: 使用**finddepth()**功能查找目录中的文件和子目录。

#!usr/bin/perl
print "content-type: text/html\n\n";

use strict;
use warnings;
use File::Find;

finddepth(
{
    wanted => \&findfiles,
},
'GeeksforGeeks'
);

sub findfiles
{
    print "$File::Find::name\n";
}
exit;

例 6: 查找所有类型的文本文件。

#!usr/bin/perl
print "content-type: text/html\n\n";

use strict;
use warnings;
use File::Find;

find(
{
    wanted => \&findfiles,
},
'GeeksforGeeks'
);

sub findfiles
{   
    print "$File::Find::name\n" if -T;
}
exit;

输出:

回到顶部