Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Netzwerkprogrammierung und Netzwerke mit Perl
[thread]4371[/thread]

Regex für E-Mail: die soundsovielte (Seite 2)



<< |< 1 2 3 >| >> 22 Einträge, 3 Seiten
Crian
 2003-09-10 01:17
#38450 #38450
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Ich verweise mal wieder auf das Reguläre Ausdrücke Buch, dort ist eine sehr sehr umfangreiche RE um E-Mail-Adressen zu erkennen.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Relais
 2003-09-10 12:42
#38451 #38451
User since
2003-08-06
2257 Artikel
ModeratorIn
[Homepage] [default_avatar]
[E|B
,09.09.2003, 20:08][quote=Ishka,09.09.2003, 20:04]»_« würd ich in den adressen zulassen

(Fast) alle meiner E-Mail Adressen enthalten einen Underscore! ;)[/quote]
pssst, _ ist in \w enthalten...
Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming
pq
 2003-09-10 13:54
#38452 #38452
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
CPAN:"This module determines whether an email address is well-formed, and optionally, whether a mail host exists for the domain."
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
Thorium
 2003-09-10 21:38
#38453 #38453
User since
2003-08-04
232 Artikel
BenutzerIn
[Homepage] [default_avatar]
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11

 &#36email =~ m/
   ^               # Vom Anfang
   [\w.+-]+      # mindestens ein Buchstabe, Zahl, . - + _
   \@              # das @-Zeichen
   [a-zA-Z0-9.-]* # keine oder beliebig viele Buchstaben, Zahlen, . -
   [a-zA-Z0-9]     # genau einen Buchstaben oder eine Zahl.
   [a-zA-Z0-9.-]* # keine oder beliebig viele Buchstaben, Zahlen, . -
   \.              # ein Punkt
   [a-zA-Z]{2,}    # zwei oder mehr Buchstaben
   &#36               # bis zum Ende
/x and print "OK\n";


Ist es nicht so, dass . + u.s.w ihre Bedeutungen in [ ] verlieren? Ich denke ja. Desshalb ein paar Backslashes rausgenommen...
Per|li|nist der; -en, -en <zu ↑...ist>: a) Anhänger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.
Relais
 2003-09-11 12:46
#38454 #38454
User since
2003-08-06
2257 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=Thorium,10.09.2003, 19:38]Ist es nicht so, dass . + u.s.w ihre Bedeutungen in [ ] verlieren? Ich denke ja. Desshalb ein paar Backslashes rausgenommen...[/quote]
ja, stümmt, merci. Einzig mit dem "-"-Zeichen muß man etwas aufpassen, drum stell ich's ans Ende. :)
Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming
pq
 2003-10-04 18:02
#38455 #38455
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
[quote=Netspider,04.10.2003, 10:44]mal eine frage zu Mail::RFC822::Address
wie kann ich das so einstellen, dass er checkt, ob die domain existiert, ich hab dazu keine funktion gefunden.
In der hilfe steht auch nix dazu...[/quote]
vielleicht hast du ja meinen beitrag übersehen.
hier nochmal der link auf ein anderes modul:
CPAN:"This module determines whether an email address is well-formed, and optionally, whether a mail host exists for the domain."
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
pq
 2003-09-09 20:26
#38456 #38456
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
darf man fragen, warum es kein modul sein soll?
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
[E|B]
 2003-09-09 22:08
#38457 #38457
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
[quote=Ishka,09.09.2003, 20:04]»_« würd ich in den adressen zulassen[/quote]
(Fast) alle meiner E-Mail Adressen enthalten einen Underscore! ;)
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
Strat
 2003-09-10 01:18
#38458 #38458
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
kennst du schon CPAN:Mail::RFC822::Address ? das besteht - wenn ich mich recht erinnere - aus pure-perl und RegExen....
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Relais
 2003-09-10 14:02
#38459 #38459
User since
2003-08-06
2257 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=pq,10.09.2003, 11:54]CPAN:"This module determines whether an email address is well-formed, and optionally, whether a mail host exists for the domain."[/quote]
sehr schön! 8)
Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming
<< |< 1 2 3 >| >> 22 Einträge, 3 Seiten



View all threads created 2003-09-09 21:28.