12/04/07 14:04:05.24 JQgWnhCe
【スレのURL】ｽﾚﾘﾝｸ(tech板)
【本文】↓
my $str="
(AACCCDDAABBB)
(AACAABBDBABC)
CDAA(DB(CC)C)(CDD)
C(AA(ABBD)(BCCC)C)";
my $re="CCC";
$str =~ s/\(([^()]*?)($re)([^()]*?)\)/(*$1$2$3*)/g;
print $str;
12/04/07 14:04:05.24 JQgWnhCe
【スレのURL】ｽﾚﾘﾝｸ(tech板)
【本文】↓
my $str="
(AACCCDDAABBB)
(AACAABBDBABC)
CDAA(DB(CC)C)(CDD)
C(AA(ABBD)(BCCC)C)";
my $re="CCC";
$str =~ s/\(([^()]*?)($re)([^()]*?)\)/(*$1$2$3*)/g;
print $str;