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

原创 2015年07月06日 21:33:15

[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

版权声明:本文为博主原创文章,未经博主允许不得转载。

shell学习:文件查找与打印文件列表命令find

 find命令是Linux shell编程中功能最强大和最有用的命令之一。各种版本的Linux/UNIX 都具有可以包含数以千计的不同类型文件的文件系统。有了如此之多的选择,要定位一个特...
  • chunlovenan
  • chunlovenan
  • 2014年04月03日 20:11
  • 1560

[Perl系列—] 1. 清空目录及目录中的所有文件

看起来很简单, 但是需要注意的是: 1. 如果目录下有文件的话,rmdir 就不能删除目录, 这个看起来很正常。 2. 如果子目录下只有子目录的话, rmdir 也不能删除此目录。 3. u...
  • oscar999
  • oscar999
  • 2014年06月13日 09:00
  • 3554

ZIP解压缩文件的工具类【支持多级目录|全】

ZIP解压缩文件的工具类【支持多级目录|全】 作者:Vashon 网上有很多的加压缩示例代码,但是都只是支持一级目录的操作,如果存在多级目录的话就不行了。本解压缩工具类经过多次检查及重构,最终分享...
  • yangwenxue_admin
  • yangwenxue_admin
  • 2015年06月29日 16:34
  • 4466

2.指定一个路径,将其下面(含子文件夹中)的以".txt"结尾的文件移动到指定的另一个路径下;

  • 2015年09月26日 18:34
  • 2KB
  • 下载

Disk TreeSize Professional 磁盘空间占用情况分析软件,找出占用空间最大的文件和目录

  • 2017年06月07日 20:36
  • 5.5MB
  • 下载

求区间最大值---找出下面“输入数据及格式”中所描述的输入数据文件中最大重叠区间的大小

题目描述:请编写程序,找出下面“输入数据及格式”中所描述的输入数据文件中最大重叠区间的大小。  对一个正整数 n ,如果n在数据文件中某行的两个正整数(假设为A和B)之间,即A=n>=B ,则 n ...
  • u010039377
  • u010039377
  • 2014年06月19日 17:34
  • 557

用java扫描指定文件夹下面所有以.txt, .log结尾的文件,

import java.io.BufferedReader; import java.io.File; import java.io.FileFilter; import java.io.FileRe...
  • baidu_16859039
  • baidu_16859039
  • 2015年10月18日 12:31
  • 289

采用递归的方式把某个目录下所有以 .java结尾的文件的绝对路径给输出在控制台

  • 2017年12月03日 22:36
  • 2KB
  • 下载

1.作业:找出指定目录下所有.xml文件的相关信息

package com.cavaness.quartzbook.chapter3; import java.io.File; import java.io.FileFilter; import ja...
  • seeds_home
  • seeds_home
  • 2012年08月01日 16:06
  • 460

C++从某个目录中找出某一类型的所有文件

因为需要除了某个路径下的所有图片,因此通过网络搜索等方法完成了这段代码。 #include #include #include #include #include us...
  • liyunlong111
  • liyunlong111
  • 2016年08月26日 16:24
  • 327
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[Perl]找出目录下面以*.zip结尾的文件
举报原因:
原因补充:

(最多只允许输入30个字)