Opened by supersucker at 2006-04-06 13:29
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
ich habe deinen code mal abgeändert, so das es
das gefundene durch X ersetzt
Irgendwas läuft schief. (siehe Ausgabe)
Du willst doch die ganze Mailadresse oder?
Ausgabe:
ps. Es ist einfacher die Emails einzeln zu betrachten, als eine
komplizierte regexp. zu machen. Deine regexp. sollte immer so einfach wie möglich sein.\n\n
<!--EDIT|master|1144317217-->
das gefundene durch X ersetzt
Code: (dl
)
1
2
3
4
5
$line = 'huber@go.com peter@muh.com';
my $regexEmail = qw((\s+)([a-z0-9\-._]+@[a-z0-9\-.]+\.(de|org))(\b));
$line =~ s/$regexRfqEmail/X/gi;
print $line;
Irgendwas läuft schief. (siehe Ausgabe)
Du willst doch die ganze Mailadresse oder?
Ausgabe:
Code: (dl
)
[EMAIL=XtXeXsXtX@XtXeXsXtX.XdXeX]XtXeXsXtX@XtXeXsXtX.XdXeX[/EMAIL] [EMAIL=XtXeXsXtX@XtXeXsXtX.XoXrXgX]XtXeXsXtX@XtXeXsXtX.XoXrXgX[/EMAIL]
ps. Es ist einfacher die Emails einzeln zu betrachten, als eine
komplizierte regexp. zu machen. Deine regexp. sollte immer so einfach wie möglich sein.\n\n
<!--EDIT|master|1144317217-->
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;