求指教 如何用find实现操作指定日期的的文件

laputa73

你可以man 一下find,对type的说明
    -type c             True if the type of the file is c, where
                         c is b, c, d, D, f, l, p, or s for block

                         special file,  character  special  file,
                         directory,  door,  plain  file, symbolic
                         link,  fifo  (named  pipe),  or  socket,
                         respectively.

d代表目录,f代表文件
如果你要删除目录，后面的rm要修改为rm -rf (以防目录非空)

xi0ws

1. #!usr/bin/perl
   
2. use strict;
   
3. use File::Find;
   
4. use File::Copy;
   
5. 
   
6. my $start_folder= ''; #starting folder
   
7. my $bak = ''; #backup folder
   
8. 
   
9. find(sub{copy ("$start_folder\\$_", $bak), if $_ =~ /\.txt$/ && -C $_ > 1 && -C $_ < 2;}, $start_folder);

复制代码

alexyuan881

回复 12# xi0ws
谢谢  受益良多   
顺便问下   如果是对文件夹呢   比如说 我现在有个目录每天会产生很多文件夹  我如何才能找出规定日期产生的文件夹  比如找出今天产生的文件夹  输出文件夹的名称


   

xi0ws

回复 13# alexyuan881

"-C"貌似也能处理文件夹的情况，你试试
严格来说我的那段代码有问提，不能处理$root有子文件夹的情况，建议使用 use File::Basename;

1. #!usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. use File::Find;
   
6. use File::Basename;
   
7. 
   
8. my $root = ''; #root folder
   
9. find(sub
   
10.      {
    
11.         my $file = $File::Find::name;
    
12.         return unless -d $file;
    
13.         print "$file\n" if -C _ > 0 && -C _ < 1;},
    
14.         $root);

复制代码