Gaestebuch

[Stefan Muenz]

Hallo Jan

Hat jemand eine Idee, wie ich das alles (da es sich ja wiederholt) zusammenfassen kann?

sub replace_umls
{
  $Returnstring = $_[0];
  $Returnstring =~ s/ä/&\auml;/g;
  $Returnstring =~ s/Ä/&\Auml;;/g;
  $Returnstring =~ s/ö/&\ouml;;/g;
  $Returnstring =~ s/Ö/&\Ouml;/g;
  $Returnstring =~ s/ß/&\szlig;/g;
  $Returnstring =~ s/ü/&\uuml;/g;
  $Returnstring =~ s/Ü/&\Uuml;/g;
  return $Returnstring;
}

Und Aufruf (Beispiel):
$htmlkommentar = &replace_umls($htmlkommentar);
oder:
$htmlstadt = &replace_umls($htmlstadt);

viele Gruesse
  Stefan Muenz

PS: Kannst die \ hinter den & auch weglassen, ich hab die nur eingebaut, damit das Forumsscript sie nicht umwandelt. Muss ich mich auch mal drum kuemmern...