Opened by pktm at 2008-04-02 05:07
Code (perl): (dl
)
$s =~ s/(.*[^0-9])([0-9])+([^0-9].*)/"$1 ".($2 >= 500 ? $data->{$2}->{node} : $data->{$2}->{node} . ' ' . $data->{$2}->{word} )." $3"/ge;
Option "e" Dann wird er Ersetzungsteil als Code ausgeführt und das Ergebnis in $_ als Ersetzung benutzt.