[Allegro] Vorgehensweise

[Fischer, Thomas]

Hallo Herr Berger,

> my $riesenRegExp = join("|", map{quotemeta} reverse sort keys %konk);
>
> while ( <> ) {
>   chomp;
>   1 while s!^(#31.*[/;]\s*)($riesenRegExp)(\s*[/;]|$)!$1.$konk{$2}.$3/eo;
>   print "$_\n";
>
> }

das kommt mir etwas brachial vor.
Ich lese für Übersetzungen die Konkordanz in ein Array %replacements ein und arbeite meine Ersetzungen mit einer Konstruktion der Art
$_ = $replacements{$_} || $_;
ab.

Innerhalb von Allegro würde setze ich für so etwas Ersetzungsregister ein, in denen dann die Ersetzung nachgeschlagen wird.

Falls gewünscht kann ich das genauer beschreiben.

Mit freundlichen Grüßen
Thomas Fischer