패턴에 의한 파일 이름 필터링

Question

"abc"와 같은 특정 패턴으로 시작하는 디렉토리에서 파일을 검색해야합니다. 또한 결과에서 ".xh"로 끝나는 모든 파일을 제거해야합니다. Perl에서 어떻게하는지에 대해 잘 모르겠습니다. 모든

이

opendir(MYDIR, $newpath); 
my @files = grep(/abc\*.*/,readdir(MYDIR)); # DOES NOT WORK 

나는 또한로 끝나는 결과에서 모든 파일을 제거 할 필요가

감사합니다 ".xh", 동성

도

Answer 1

은 MYDIR가 디렉토리의 경로를 포함하는 문자열입니다

@files = grep {!/\.xh$/} <$MYDIR/abc*>; 

을 시도합니다.

Answer 2

foreach $file (@files) 
{ 
    my $fileN = $1 if $file =~ /([^\/]+)$/; 

    if ($fileN =~ /\.xh$/) 
    { 
      unlink $file; 
      next; 
    } 
    if ($fileN =~ /^abc/) 
    { 
      open(FILE, "<$file"); 
      while(<FILE>) 
      { 
      # read through file. 
      } 
    } 
} 

:

나는 이런 식으로 뭔가를 디렉토리의 파일은 다음을 수행하여 액세스 할 수 있습니다.

$DIR = "/somedir/somepath"; 
foreach $file (<$DIR/*>) 
{ 
    # apply file checks here like above. 
} 

또는 펄 모듈 File :: find를 사용할 수 있습니다.

Answer 3

opendir (MYDIR, $ newpath); 내 @files = grep (/ abc *. * /, readdir (MYDIR)); #DOES NOT WORK

glob 패턴으로 정규식 패턴을 혼동하고 있습니다.

#!/usr/bin/perl 

use strict; 
use warnings; 

opendir my $dir_h, '.' 
    or die "Cannot open directory: $!"; 

my @files = grep { /abc/ and not /\.xh$/ } readdir $dir_h; 

closedir $dir_h; 

print "$_\n" for @files; 

Answer 4

opendir(MYDIR, $newpath) or die "$!"; 
my @files = grep{ !/\.xh$/ && /abc/ } readdir(MYDIR); 
close MYDIR; 
foreach (@files) { 
    do something 
} 

Answer 5

그 kevinadc와 신안 Unur 사용하지만, 언급되지 않은 점은리스트 문맥에서 호출 할 때 readdir() 디렉토리에있는 모든 항목의 목록을 반환합니다. 그런 다음 목록 연산자를 사용할 수 있습니다. 그것은 당신이 사용할 수있는 이유는 다음과 같습니다 그래서

my @files = grep (/abc/ && !/\.xh$/), readdir MYDIR; 

:

readdir MYDIR 

는 MYDIR에있는 모든 파일의 목록을 반환합니다.

그리고 :

grep (/abc/ && !/\.xh$/) 

반환 모든 요소가 기준과 일치 readdir MYDIR으로 돌아왔다.

Answer 6

대신 opendir 및 필터링 readdir를 사용하는 (closedir하는 것을 잊지 마세요!), 대신 glob 사용할 수 있습니다 : 당신이 glob의 결과에 접두사 $newpath 제거에 대해 걱정하지 않는 경우

use File::Spec::Functions qw(catfile splitpath); 

my @files = 
    grep !/^\.xh$/,    # filter out names ending in ".xh" 
    map +(splitpath $_)[-1],  # filename only 
    glob       # perform shell-like glob expansion 
     catfile $newpath, 'abc*'; # "$newpath/abc*" (or \ or :, depending on OS) 

을 map+splitpath을 제거하십시오.