Joho,
Hmm, mit der evaluate option vielleicht, ist halt kein hardcore
Regexp mehr:
Das sehe ich nicht mehr als 'es mit einem RegEx hinkriegen' - das das
so geht, ist klar ;-)
sub count() {
if ($counter{'{'} ne $counter{'{'}) {
$counter{$_[0]}++;
return $_[0];
}else{
return "END";
}
}
Pfui - @_ direkt zu benutzen ist verpoent ;-) (auch wenns hier egal ist)
Gruss,
CK