マッチしなかった時の値を取り出したい

質問

perl5.8.5を使っています。
次のような形で$1の値を表示させたいのですが（そのまま$strを表示させれば良いとは思いますが、とりあえず）

$str = "aaa";
if ($str !~ /^(bbb|ccc|ddd)/) {
print "t=".$1;
}

これだと$1に値が入ってきません。
この場合はどのようにすれば$strの「aaa」を取り出すことができるのでしょうか？

回答No.1

t-okura · ベストアンサー

先頭が bbb でも ccc でも ddd でもない任意の文字列とマッチさせたいと
いうことでしょうか。

こんな感じでしょうか
my $str = "aaa";
if ($str =~/^(?!bbb|ccc|ddd)(.+)/) {
print "t=".$1,"\n";
}

お礼

ご返答ありがとうございます。
そのやり方でできました。ありがとうございます。