在Perl中查找匹配模式的文件

-4

我正在通过-f选项接受用户输入，无论他输入什么内容，都会递归搜索相应的文件。在Perl中查找匹配模式的文件

我的问题是：当用户输入“tmp *”时，它也搜索“abctmp”，“xyztmp”等。我想要做的只是以tmp开头的文件来。总之，无论用户输入相应的文件都应该推送到数组。

目前我正在这样做，但我确信有一些优雅，简短的方法来做到这一点。

#! /perl/bin/perl 
use strict; 
use warnings; 
use File::Find; 
use getopt::Long; 

my $filename="tmp*.txt"; 
find({ wanted  => \&wanted, 
     preprocess => \&dir_search, 
}, '.'); 

sub wanted{ 
    my $regex; 
    my $myop; 
    my @mylist; 
    my $firstchar= substr($filename, 0,1); # I am checking first character. 
              # Whether it's ".*tmp" or just "tmp*" 

    if($filename=~ m/[^a-zA-Z0-9_]/g){  #If contain wildcard 
     if($firstchar eq "."){    # first character "." 
      my $myop = substr($filename, 1,1); 
      my $frag = substr($filename,2); 
      $filename = $frag; 
      $regex = '\b(\w' . ${myop}. ${filename}. '\w*)\b'; 
      # Has to find whatever comes before 'tmp', too 
     } else { 
      $regex = '\b(' . ${myop}. ${filename}. '\w*)\b'; 
      # Like, "tmp+.txt" Only search for patterns starting with tmp 
     } 
     if($_ =~ /$regex/) { 
      push(@mylist, $_); 
     } 
    } else { 
    if($_ eq $filename) { #If no wildcard, match the exact name only. 
     push(@mylist, $_); 
    } 
} 

} 

sub dir_search { 
    my (@entries) = @_; 
    if ($File::Find::dir eq './a') { 
     @entries = grep { ((-d && $_ eq 'g') || 
         ((-d && $_ eq 'h') || 
        (!(-d && $_ eq 'x')))) } @entries; 
    # Want from 'g' and 'h' folders only, not from 'x' folder 
    } 
    return @entries; 
}

而另一件事是，我只想搜索'.txt'文件。我应该在哪里放置这种情况？

来源

2013-07-28 karate_kid

咦？我不知道你刚刚说了什么。从4次下降看，14小时后没有答案，我不是唯一一个感到困惑的人。请尝试更清楚地解释你想要完成的事情。 “当用户输入'tmp *'”在哪里，如何以及为什么？ “它搜索...”在哪里，如何以及为什么？我有这样的感觉，你想要做的事可能很简单，但没有人能弄清楚你想说什么。 –

#!/perl/bin/perl 

sub rec_dir { 
    ($dir,$tmpfile_ref) = @_; 
    opendir(CURRENT, $dir); 
    @files = readdir(CURRENT); 
    closedir(CURRENT); 

    foreach $file (@files) { 
     if($file eq ".." || $file eq ".") { next; } 
     if(-d $dir."/".$file) { rec_dir($dir."/".$file,$tmpfile_ref); } 
     elsif($file =~ /^tmp/ && $file =~ /\.txf$/) { push(@{$tmpfile_ref},$dir."/".$file); } 
    } 
} 

@matching_files =(); 
$start_dir = "."; 
rec_dir($start_dir,\@matching_files); 
foreach $file (@matching_files) { print($file."\n"); }

我没有测试它。除了印刷错误，我认为它会起作用。

来源

2013-07-29 14:35:24 Cos314

在Perl中查找匹配模式的文件

回答

相关问题