Alle Zeichen durch definierte andere ersetzen (Perl/CGI)

[thread]12321[/thread]

Alle Zeichen durch definierte andere ersetzen

oll

2008-08-08 22:04

User since
2008-08-08
1 Artikel
BenutzerIn
[default_avatar]

Moin,

ich bin ganz frisch bei Perl, hab vorher nur mit PHP/mysql gearbeitet. Jetzt arbeite ich aber mit dem CMS Imperia, und das benutzt Perl.

Meine Frage ist, wie ich in einen String bestimmte Zeichen durch andere ersetze. Hintergrund ist, dass ich E-Mailadressen durch HTML Entities ersetzen will, damit Spamharvester ein wenig mehr Probleme damit haben.

Die E-Mailadressen sind ja immer unterschiedlich lang und es muss auf das ganze Alphabet und . (Punkt) getestet werden und halt entsprechend ersetzt werden. Die E-Mailadresse werd ich wohl teilen, beim @ am besten, dann muss ich das nicht mit reinnehmen.

Gibt's für's Ersetzen wie ich's will ne Funktion?

pktm

2008-08-08 22:42

User since
2003-08-07
2921 Artikel
BenutzerIn

Du kannst es entweder mit regulären Ausdrücken machen (googlen nach regex) oder du nimmst ein Modul, dass dir auch noch die Arbeit abnimmt, für die ganzen Zeichen eigenhändig die Entities zu ersetzen: CPAN:

HTML::Entities

Eine einfache Substitution kannst du so machen:

Code: (dl )

1
2

my $string = "abc";
$string =~ s/a/xx/g; ersetze alle a durch zwei x.

Mehr dazu gibts in der perlfunc: http://perldoc.perl.org/perlfaq6.html

Probiers mal aus, wenn du noch Fragen hast, frag hier :)

http://www.intergastro-service.de (mein erstes CMS :) )

cbxk1xg

2008-09-09 20:59

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Ich würde HTML::Entities benutzen.

Code (perl): (dl )

use strict;
use warnings;
use HTML::Entities ();
my $mailaddress = "micky.miller\@foo.bar";

# Encoding
HTML::Entities::encode($mailaddress);

# Decoding
HTML::Entities::decode($mailaddress);

View all threads created 2008-08-08 22:04.