Regexp: ersetzung - #84115 (Allgemeines zu Perl)

jan

2004-07-12 19:47

User since
2003-08-04
2536 Artikel
ModeratorIn

Code: (dl )

 $back =~ s/\n/<br>/gm;
 $back =~ s/\;/&sbquo\;/g;
 $back =~ s/ä/&auml\;/g;
 $back =~ s/ö/&ouml\;/g;
 $back =~ s/ü/&uuml\;/g;
 $back =~ s/Ä/&Auml\;/g;
 $back =~ s/Ö/&Ouml\;/g;
 $back =~ s/Ü/&Uuml\;/g;
 $back =~ s/ß/&szlig\;/g;
 $back =~ s/\"/&quot\;/g;
 $back =~ s/&/&amp\;/g;

ist problematisch, weil das letzte & bei & natürlich auch auf " matcht.
nimm dafür mal lieber CPAN:

HTML::Entities.
statt

Code: (dl )

$data = ants($data);

nimmst du

Code: (dl )

1
2

use HTML::Entities; # naja, oben, wo du deine module definierst...
encode_entities($data);