champwang

简单

[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

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/champwang/article/details/46779323
文章标签: perl find
个人分类: Perl
上一篇[Perl]根据当前时间来创建文件夹
下一篇[Perl]对*.zip文件操作的记录<一>
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭