배열 요소로 문자열을 사용할 때 perl 배열 문제가 발생했습니다.

Question

아래 코드가 있습니다. 내 로그 파일에서 3 단어의 일치 항목을 찾고 일치 항목이 발견되면 줄을 인쇄하려고합니다 (모든 3 단어가있는 경우에만). 단어 (@typedefs)를 하드 코딩하면 제대로 작동하지만 문자열이있는 배열에 동일한 단어가있는 경우 작동하지 않습니다 (@typedefs_new). 내가하고있는 실수는 무엇입니까?

my $str1="laa"; 
my $str2="faa"; 
my $str3="baa"; 

my @typedefs = qw(laa,faa,baa); 
my @typedefs_new = ($str1,$str2,$str3); 

my $file="/pathtofile/logfile.log"; 
open (FILE, $file) or die $!; 

print "Output using typdefs_new array\n"; 
while (my $line = <FILE>) { 
if (any { $line =~ /$_/ } @typedefs_new) { 
    print $line; 
    } 
} 

print "Output using typdefs array\n"; 
while (my $line = <FILE>) { 
if (any { $line =~ /$_/ } @typedefs) { 
    print $line; 
    } 
} 

있는 logfile.log :

laa ferg gerg faa rgrebf baa abc def 
fber rgreg rgre greg bgbg rghgr grhr 

출력 :

Output using typedefs_new array 
laa ferg gerg faa rgrebf baa abc def 
fber rgreg rgre greg bgbg rghgr grhr 

Output using typedefs array 
laa ferg gerg faa rgrebf baa abc def 

Answer 1

qw()이 아닌 쉼표, 공백으로 단어를 구분합니다. 당신에게 말 했어야 그래서, 코드가

my @typedefs = ('laa,faa,baa'); 

warnings에 해당된다

이

Possible attempt to separate words with commas