Perl을 사용하여 전체 줄을 문자열로 바꿉니다.

Question

텍스트 파일의 전체 줄을 변수에 포함 된 문자열로 바꿔야합니다. 코드에서 내 시도는 아래와 같습니다. 그러나 나는 아무것도 얻지 못합니다. 뭐가 없니?

my @a; 
$ldir= "/project/"; 
$RESULTS_FILE = $ldir.'/'.'out.html'; 
open OUT, "<", $RESULTS_FILE or die "Could not open results file:$!"; 
     while ($ln=<OUT>) 
     { 
       chomp($ln); 
       for my $str (@stream_name) 
       { 
         if ($ln =~ m/$str/) 
         { 
           $str =~ s/(.)/$1: NOT-RUN/g; 

         } 
       } 
       push @a, $str; 
       #push @a, $ln; 
     } 
     open F, ">results.html" || die "$!"; 
     print "\n\n\nContents of Array is:@a\n\n\n"; 
     for my $e (@a) 
     { 
       print F "$e\n"; 
     } 
     close F; 

Answer 1

이 줄 :

push @a, $str; 

이 for 루프의 외부입니다. 당신은 정말로 use strict이 오류가 당신을 위해 잡힌하고 너무 많이 고생 할 필요가 없어야합니다.