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

[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