정렬

Question

sub open_directory { 
    my $directory = shift @_; 
    my @files =(); 

    opendir (my $dh, $directory) or die "Couldn't open dir '$directory' : $!"; 
    my @all_files = readdir $dh; 
    closedir $dh; 

    foreach my $files(@all_files){ 
      while($files =~ /\.htm/){ 
       push(@files); 
      } 
    } 
    return @files; 
} 

오류 코드에있다 push(@files); 오류 : Useless use of push with no values

내가 .htm 또는 .html으로 끝나는 이름을 가진 파일을 처리 할 @files 배열에서 /\.htm/ 정규 표현식을 사용하여 도와주세요.

Answer 1

가장 간단한 방법은 grep 내장을 사용하는 것입니다. 조건이 참인 목록에서 해당 요소를 선택한 다음 일치하는 요소의 목록을 반환합니다. 당신이 push를 사용하려면

우리의 경우

my @even = grep { $_ % 2 == 0 } 1 .. 10; # even number in the interval [1, 10]. 

, 우리는 다음의 (a)는 한 어레이에 밀어 원하는 것을 지정하고, (b)의 경우,

my @files = grep { /\.htm/ } readdir $dh; 

을 수행 할 수 있습니다 단지 그것이 일치하지 하면서 밀어 경우 정규 표현식 일치, 않습니다

for my $file (@all_files) { 
    push @files, $file if $file =~ /\.htm/; 
} 

Answer 2

한번에 이해는 할 수 낮은 코드는 .htm 또는 .html 파일 만 처리합니다.

use strict; 
use Data::Dumper; 

my @all_files = ("abc.htm", "xyz.gif", "pqr.html") ; 
my @files; 
foreach my $files(@all_files){ 
    if($files =~ /\.html?/){ # This will process only .htm or .html files 
     push(@files, $files); 
    } 
} 
print Dumper(\@files); 

출력 :

$VAR1 = [ 
      'abc.htm', 
      'pqr.html' 
     ]; 

Answer 3

amon하면 파일 이름을 필터링하는 grep를 사용하여, 귀하의 질문에 대한 정확한 답을 주셨습니다. 그러나, 당신이하려고하는 기능이 나에게 더 glob 같은 소리를 달성하기 :

my $dir = "foo"; 
my @html_files = glob("$dir/*.html $dir/*.htm");