perl - perl:「パターン一致」を出力するスクリプトを作成する方法

Question

$out="MMNT123 out in a1 a2";
    if($out=m(MM\w+\s\w+))
        print 'pattern matched';
    else
        print 'pattern not matched';

出力として「パターン一致」を取得するにはどうすればよいですか...?

Answer 1

Perl では、if/else ブロックには中かっこが必要です。=~演算子も使用する必要があります。

if($out =~ m(MM\w+\s\w+)) {
    print 'pattern matched';
} else {
    print 'pattern not matched';
}

Answer 2

if の中括弧は必要ありません

print 'pattern matched' if $out =~ /MM\w+\s\w+/;