Kann man das abkürzen (reg.Expr) ?

[xNeTworKx]

Hallo,
ich will an einem Eingabetext sehr viele Modifikationen vornehmen. Jetzt ist es sehr umständlich, wenn ich
    $text =~ s/ä/ä/g
    $text =~ s/Ä/Ä/g
    $text =~ s/ö/ö/g
    $text =~ s/Ö/Ö/g
    $text =~ s/ü/ü/g
    $text =~ s/Ü/Ü/g
    $text =~ s/ß/ß/g
    $text =~ s/Ä/Ä/g
    $text =~ s/[s1]/<img src="pics/smiley1.gif">/g

usw usw schreibe, kann man das nicht irgendwie in einen Ausdruck packen ?

[Cheatah]

Hi,

$text =~ s/ä/ä/g

warum machst Du das mit Regular Expressions? Da reicht ein simpler String-Replace, der um einiges performanter ist.

usw usw schreibe, kann man das nicht irgendwie in einen Ausdruck packen ?

Klar, wenn Du ein Hash entsprechend füllst. Aber warum verwendest Du nicht einfach HTML::Entities? Siehe

perldoc HTML::Entities

Cheatah

[xNeTworKx]

Hallo

warum machst Du das mit Regular Expressions? Da reicht ein simpler String-Replace, der um einiges performanter ist.

Wie würde das dann aussehen ? Weis nämlich nicht genau was du damit meinst.

[xNeTworKx]

Hallo nochmal,
ich hab jetzt dieses Entities verwendet und nun sieht es so aus.

encode_entities($text);
      my $i;

for ($i = 1; $i <= 40; $i++)   {
      my $var = "[s$i]";
      my $image = "<img src="smiley$i.gif">";
      $text =~ s/$var/$image/g;
      }