! ~ 정규식에서 이해할 수 없습니다

Question

내 요구 사항은 + (예 : ABC + DEF)와 문자열을 전달하는 것입니다. 그리고 그것은 actual_state에 대한 어떤 값과도 일치해야합니다. 값은 ABC+DEF ABC+DEF, ABC+DEF,, 등이 될 수 있습니다. ABC + DEF 뒤에 하나 이상의 쉼표가있을 수 있습니다. 하지만 ABC+DEF, PQR-SL과 일치해서는 안됩니다.

아래 코드는 내가 뭘하려 니펫을 : 내가 ABC+DEF를 통과 할 경우

sub verify_state{ 
    my $expected_state = shift; 
    my $vol   = 'vol'; 
    my $actual_state = 'ABC+DEF,'; 
    print "Verify backend state for $vol\n"; 
    print "Expected backend state for $vol = $expected_state\n"; 
    print "Actual backend state for $vol = $actual_state\n"; 
    if ($expected_state !~ /$actual_state,*$/) { 
     print 
      "Expected state was $expected_state but got $actual_state for $vol\n" 
     ; 
     return 0; 
    } 
    return 1; 
} 

my $val = verify_state('ABC+DEF'); 
print $val,"\n"; 

은이 날 1을 반환해야한다. 0 값 ABC+DEF ABC+DEF, ABC+DEF,,가 특정 키 등의 해시 값의 일환으로 오는되기 때문에 내가 my $actual_state = 'ABC+DEF,'; 을 쓴 이유는 ABC+DEF, PQR-SL

전달됩니다. my $actual_state = $status->{state};.

Answer 1

$actual_state에는 쉼표 ,이 하드 코드되어 있습니다. 따라서 테스트중인 입력과 일치 할 수 없습니다. ABC+DEF 쉼표없이 입력하십시오. 그래서

my $actual_state = 'ABC\+DEF'; 

당신은 또한 + (slebetman 덕분에) 탈출하는 데 필요한 패턴을 구축하는 방법, 및 게시 된 코드 내 테스트에서 작동합니다.

입력 내용이 실제로 해당 문자열로 끝나야하며, 선택적으로 쉼표로 끝나야한다는 것을 전제로합니다.

Answer 2

내가 $ actual_state = 'ABC + DEF'를 쓴 이유; 값 ABC + DEF ABC + DEF, ABC + DEF ,,가 특정 키에 대한 해시 값 의 일부로오고 있기 때문에 예. my $ actual_state = $ status -> {state}; .

그렇다면 $actual_state에서 쉼표를 제거하거나 패턴 일치에서 무시할 수 있습니다.

quotemeta도 사용하십시오. 아이디어를 얻으려면 아래 예제를 참조하십시오.

#!/usr/bin/perl 
use strict; 
use warnings; 
my $expected = qr{ABC+DEF}; 
my $actual_state = qr{ABC+DEF}; 
#my $actual_state = qr{ABC+DEF,}; 
#my $actual_state = qr{ABC+DEF,,}; 
#if $actual_state has comma then you can do search and replace 
$actual_state =~ s/,//g; 
print "Matched" if $expected =~ /\Q$actual_state\E/; 
#prints "Matched"