正規表現では〜〜を理解できません

Question

私の要件は、+（たとえば：ABC + DEF）の文字列を渡すことです。 actual_stateの値と一致する必要があります。値はABC+DEF ABC+DEF, ABC+DEF,,などです。ABC + DEFの後にカンマが1つ以上あることがあります。しかし、それはABC+DEF, PQR-SLと一致しません。以下は

コードである私が試したどのようなスニペット：

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"; 

私はABC+DEFを渡しますならば、それは私に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カンマなし。あなたはまた、+（slebetmanのおかげで）エスケープする必要があるパターンを構築する方法は、そう

my $actual_state = 'ABC\+DEF'; 

と投稿のコードでは、私のテストで動作します。

これは入力が実際にその文字列で終わらなければならないことを前提としています。

Answer 2

なぜ私は$ actual_state = 'ABC + DEF'を書きました。値 ABC + DEF ABC + DEF、ABC + DEF ,,が特定のキーのためのハッシュ値 の一部として来ているためです。私の$ actual_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"