[Perl]找出目录下面以*.zip结尾的文件

最新推荐文章于 2021-09-13 16:32:32 发布

原创最新推荐文章于 2021-09-13 16:32:32 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #find

Perl 专栏收录该内容

4 篇文章

订阅专栏

本文提供了一个Perl脚本实例，展示了如何在指定目录及其子目录中查找所有以.zip为扩展名的文件。通过使用File::Find模块，脚本遍历整个目录树并匹配目标文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[Perl]找出目录下面以*.zip结尾的文件

直接上code.

#!perl
use strict;
use warnings;

use File::Find;

my $local_file = "D:\\temp\\log";

sub wanted {
    if ( -f $File::Find::name ) {
        if ( $File::Find::name =~ /\.zip$/ ) {
            print "$File::Find::name\n";
            print "$File::Find::dir\n";
            print "$_\n";
            print "\n\n";  
        }
    }
}

find(\&wanted, $local_file);

print "end\n";

以下為 find 的使用說明：

=begin comment

find(\&wanted, @directories);
find(\%options, @directories);

finddepth(\&wanted, @directories);
finddepth(\%options, @directories);

These are functions for searching through directory trees doing work on each file found similar to the Unix find command.

The wanted() function does whatever verifications you want on each file and directory.
Note that despite its name, the wanted() function is a generic callback function, and does not tell File::Find if a file is “wanted” or not.
In fact, its return value is ignored.

The wanted function takes no arguments but rather does its work through a collection of variables.

$File::Find::dir is the current directory name,
$_ is the current filename within that directory
$File::Find::name is the complete pathname to the file.

The above variables have all been localized and may be changed without affecting data outside of the wanted function.

For example, when examining the file /some/path/foo.ext you will have:

$File::Find::dir  = /some/path/
$_                = foo.ext
$File::Find::name = /some/path/foo.ext

Reference:
https://metacpan.org/pod/File::Find#The-wanted-function