Perl は条件付き正規表現をサポートしていますか?
(?(condition)true-pattern|false-pattern)
つまり、条件が true の場合は true パターンとの一致を試み、それ以外の場合は false パターンとの一致を試みます
Perl が条件付き正規表現をサポートしているのなら、なぜこのコードは出力されなかったの1
でしょうか?
use strict;
use warnings;
$_ = 'AB';
if ( /(?(A)B|C)/ ) {
print 1;
}