% Ersetzungen (gelöst) - #176380 (Allgemeines zu Perl)

Muffi

2014-07-11 13:00

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Naja, obs dafür gleich ein Modul braucht

Code (perl): (dl )

my $a = 'Das %i das %h vom Nikolaus mit 3%% %r';

my %ersetzen = (
        i => 'ist',
        h => 'Haus',
        r => 'Rendite',
        '%' => '%',
);

~~$a =~ s/\%(\%|[\w+])/$ersetzen{$1}/ge;~~

Code (perl): (dl )

1
2
3

$a =~ s/\%(\%|\w+)/$ersetzen{$1}/ge;

print "$a\n";

Last edited: 2014-07-12 16:24:48 +0200 (CEST)

1 + 1 = 10