Hi
Eher im Gegenteil. Ich bezweifle auch, dass das mit einem RegEx so
einfach hinzubekommen ist.
Hmm, mit der evaluate option vielleicht, ist halt kein hardcore Regexp mehr:
DRAFT (ich verstehe etwas mehr von RegEx als von Perl ;):
Bei jeder Klammer wird count aufgerufen, der bis gleichstand mitzählt und
die letzte Klammer mit END ersetzt. Na und dann zwischen Start und End
ausschneiden. Ich bin mir sicher mein Code das funzt nicht auf
anhieb aber es geht hier ums Prinzip ;)
MIt etwas getrickse bekommt man alles auch in eine regex!
s/START.*?([{}])/count($1)/ge;
^
(da bin ich mir unsicher!)
sub count() {
if ($counter{'{'} ne $counter{'{'}) {
$counter{$_[0]}++;
return $_[0];
}else{
return "END";
}
}
Byebye
Rolf