Perl qr// und Substitution - #183057 (Allgemeines zu Perl)

Linuxer

2015-11-25 21:03

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Hi,
vielleicht hilft ein anderer Ansatz?
Baue einen Hash auf, der die Suchbegriffe mit den Ersetzungen verknüpft.
Baue aus den Suchbegriffen einen Regex auf.
Lasse dann einen gefundenen Suchbegriff durch den entsprechenden Ersetzungswert ersetzen.

Code (perl): (dl )

my %replacer = (
  foo => "Shrek",
  bar => "Fiona",
);

my $regex = join '|', keys %replacer;
$regex = qr{($regex)};

my $text = 'foo runs for bar.';

$text =~ s/$regex/$replacer{$1}/ig;

print $text, "\n";

Last edited: 2015-11-25 21:06:25 +0100 (CET)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!