대체에서 변수를 사용하는 방법은 무엇입니까?

Question

(줄 바꿈을 유의하시기 바랍니다) 나는 텍스트 파일을했습니다 나는 일치하고 다음 텍스트를 지울 :

이

[ From: 
http://www.website.com ] 

다음 코드는

$text =~ s/\[.*\]//ms; 

이 다른하지 않는

작동

my $patt = \[.*\]; 
$text =~ s/$patt//ms; 

누군가 내게 왜 친절한 설명을 해주겠습니까?

#!/usr/bin/perl 

use strict; 
use warnings; 

my $text = qq{a[ From: 
http://www.website.com ]b}; 

my $patt = qr/\[.*?\]/s; 
$text =~ s/$patt//; 

print $text; 

인쇄 :

ab 

내가 추가를하면 패턴 문자열을 인용하고 구문 오류를 제거하는 경우 사전

Answer 1

두 번째 변종 덕분에, 완벽하게 작동? replizer를 ungreedy로 만들기 위해 정규 표현식에 한정 기호를 사용합니다. m 수정자를 제거했습니다. 정규 표현식에서 ^와 $를 사용하지 않으므로 m은 쓸모가 없습니다.

Answer 2

변형이 작동하지 않는 유일한 이유는 $patt 문자열 주위에 따옴표를 넣지 않았기 때문입니다. 그것이 그대로 구문 오류를 throw합니다. 이

my $patt = '\[.*\]'; 
$text =~ s/$patt//ms; 

내 유일한 코멘트는 당신이 여기에 사용하지 않는 $ 및 ^ 앵커의 동작을 수정로 /m 수정이 불필요하다는 것이다 잘 작동합니다. . 일치하는 개행 문자를 만들려면 /s 만 필요합니다.