스토어 값 (문자열 또는 숫자) 배열로 루프

Question

나는 아래 while 루프를 동안 수행 한 후 그것들을 배열이나리스트 또는 해시에 저장하십시오. 내가 어떻게 할 수 있니?

Answer 1

데이터를 배열로 푸시하면됩니다.

my @errors; 
while (<>) 
{ 
    my $line = $_; 
    if ($line =~ m/ERROR 0x/) 
    { 
     push @errors, $line; 
    } 
} 

청소 일까지 약간의 :

my @errors; 
while (my $line = <>) 
{ 
    if ($line =~ /ERROR 0x/) 
    { 
     push @errors, $line; 
    } 
} 

또는 마지막으로 어쩌면

my @errors; 
while (<>) 
{ 
    if (/ERROR 0x/) 
    { 
     push @errors, $_; 
    } 
} 

, grep 큰 여기에 할 것이다 것을 깨닫게 :

my @errors = grep { /ERROR 0x/ } <>; 

Answer 2

my @arr; 
while (<>) 
{ 
    my $line = $_; 
    if ($line =~ m/ERROR 0x/) 
    { 
     push(@arr,$line) ; 
    } 
} 

print "$_\n" for @arr;