동일한 텍스트와 일치하지 않는 변수가있는 Perl 정규식

Question

누군가 여기서 내게 어떤 일이 일어 났는지 설명 할 수 있습니까? 그리고 그 해결 방법은 무엇입니까 ??

my $test1 = "/k?user"; 
my $test2 = "/k?user"; 
if ($test1 =~ m/$test2/) { 
    print "match"; 
} 
else { 
    print "fail"; 
} 

인쇄물이 매번 "실패"합니다. 내가 $test1과 $test1을 "/k?"으로 변경하면 일치가 작동합니까?

분명히 다음과 같은 텍스트와 관련이 있습니다. 하지만 일치시키려는 변수에는 물음표가 있고, 모든 것을 따로 따로 모아 조각을 일치시킨 다음 모든 것을 재구성하지 않아도됩니다.

어떤 아이디어 ???

Answer 1

?은 special character in a regex입니다. quotemeta 사용 (전용) 일치

my $test1 = "/k?user"; 
my $test2 = quotemeta "/k?user"; 
if ($test1 =~ m/$test2/) { 
    print "match"; 
} 
else { 
    print "fail"; 
} 

Answer 2

을

/k?user 

하나가 "?는"정규식 패턴에 자신을 일치하지 않는

^/k\?user\z 

때문에 패턴을 사용해야합니다. "?"과 일치하도록 문자를 이스케이프 ("\?"사용)하고 quotemeta을 사용하여 특수 문자 (예 : "?")를 이스케이프 처리해야합니다.

my $str = '/k?user'; 
my $pat = quotemeta($str); 
/^$pat\z/ 

quotemeta은 이중 인용 문자열 리터럴 및 정규식 패턴 리터럴에 \Q..\E을 통해 액세스 할 수 있습니다.

my $str = '/k?user'; 
/^\Q$str\E\z/ 

(이전 toolic 제안이 솔루션은 또한 "!/k?userf"를 일치합니다.)