Regulärer Ausdruck für Mail-Adressen (Allgemeines zu Perl)

[thread]5991[/thread]

Regulärer Ausdruck für Mail-Adressen

Leser: 1

Gast Gast

2004-12-30 22:23

Hi Leute,
also, ich suche den "perfekten" regulären Ausdruck zum suchen einer e-Mail Adresse. Mein bisheriger Ausdruck lautet so:

Code: (dl )

m/\w+@.*?\.\w{2,}/g;

sprich: ein oder mehrere Wörter, gefolgt von einem "@", gefolgt von 0 oder mehreren Zeichen, gefolgt von einem ".", gefolgt von einem Wort mit 2 oder mehr Buchstaben (sprich de, com, uk, pl, ...).
Allerdings finde ich so keine Mail-Adressen mit einem "-" oder so.
Verwende ich nun ".*?", also ein beliebiges Zeichen 0,1 oder mehrmals, klemmt mein Skript (rechnet ewig bzw. endet nie):

Code: (dl )

m/.+?@.+\.\w{2,}/g;

Den HTML-Parser möchte ich nicht verwenden, da es auch so funktionieren muss, ich kann die Mail-Adressen nur leider nicht allgemein genug formulieren!
Vielleicht habt Ihr eine Idee oder bereits eine Lösung ;)
Danke!!

...und einen guten Rutsch ;)

esskar

2004-12-30 22:26

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ich benutze dafür immer Mail::Address + folgende Erweiterung:

Code: (dl )

package Sources::Address;

use strict;
use warnings;

use Mail::Address;


use vars qw(@ISA);

@ISA = qw( Mail::Address );

sub _extract_name
{
    local $_ = shift || '';

    # Bug in unicode \U, perl 5.8.0 breaks when casing utf8 in regex
    if($] eq 5.008)
    {   require utf8;
        eval 'utf8::downgrade($_)';
    }

    # trim whitespace
    s/^\s+//;
    s/\s+$//;
    s/\s+/ /;

    # Disregard numeric names (e.g. [EMAIL=123456.1234@compuserve.com]123456.1234@compuserve.com[/EMAIL])
    return "" if /^[\d ]+$/;

    # remove outermost parenthesis
    s/^\(|\)$//g;

    # remove outer quotation marks
    s/^"|"$//g;

    # remove embedded comments
    # s/[^\\]\(.*[^\\]\)//g;
    s/^\s*\(((?:[^)\\]+|\\.)*)\)//;

    # remove quotes
    s/\\(.)/$1/g;

    # reverse "Last, First M." if applicable
    s/^([^\s]+) ?, ?(.*)$/$2 $1/;
    s/,.*//;

    # Set the case of the name to first char upper rest lower
    # Upcase first letter on name
    s/\b([a-zA-ZäüöÄÜÖß]+)/\L\u$1/igo;

    # Scottish names such as 'McLeod'
    s/\bMc([a-zA-ZäüöÄÜÖß])/Mc\u$1/igo;

    # Irish names such as 'O'Malley, O'Reilly'
    s/\bo'([a-zA-ZäüöÄÜÖß])/O'\u$1/igo;

    # Roman numerals, eg 'Level III Support'
    s/\b(x*(ix)?v*(iv)?i*)\b/\U$1/igo;

    # some cleanup
    s/\[[^\]]*\]//g;
    s/(^[\s'"]+|[\s'"]+$)//g;
    s/\s{2,}/ /g;

    return $_;
}

sub name
{
    my $me = shift;
    my $phrase = $me->phrase;
    my $addr = $me->address;

    $phrase = $me->comment unless(defined($phrase) && length($phrase));

    my $name = _extract_name($phrase);

    # first.last@domain address
    if($name eq '' && $addr =~ /([^\%\.\@_]+([\._][^\%\.\@_]+)+)[\@\%]/o)
    {
	($name = $1) =~ s/[\._]+/ /go;
	$name = _extract_name($name);
    }

    if($name eq '' && $addr =~ m#/g=#oi)
    # X400 style address
    {
	my ($f) = $addr =~ m#g=([^/]*)#oi;
	my ($l) = $addr =~ m#s=([^/]*)#io;

	$name = _extract_name($f . " " . $l);
    }

    return length($name) ? $name : undef;
}

1;

für hilfe, schau dir die Mail:Address doku an;

renee

2004-12-30 22:29

User since
2003-08-04
14371 Artikel
ModeratorIn

Dafür gibt es dieses Modul: Mail::RFC822::Address

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

anti

2004-12-30 22:46

User since
2003-11-29
155 Artikel
BenutzerIn
[default_avatar]

Danke für die schnellen Antworten, nur leider komme ich damit nicht so recht klar *schäm*.
Ich habe ein html-Dokument in einem String gespeichert: Wie kann ich daraus alle Mail-Adressen auslesen?
Mit einem einfachen Regulären Ausdruck scheint es ja nicht zu gehen, oder?!?
Ich dachte, ich kann einfach den gesamten String nach meinem Regulären Ausdruck "irgendwas@irgendwas.domain" durchsuchen - aber irgendwie sind Mail-Adressen doch komplizierter als ich dachte :(.

renee

2004-12-30 23:27

User since
2003-08-04
14371 Artikel
ModeratorIn

dann such doch erstmal die E-Mail-Adresse raus und überprüf diese dann separat mit einem der Module

Code: (dl )

1
2
3

my $string = '<html> [EMAIL=email@adresse.tld]email@adresse.tld[/EMAIL] </html>';
my (@emails) = $string =~ m/([\s]+\@[^\s]+)/g;
# jetzt adressen überprüfen

[E|B]

2004-12-31 00:44

User since
2003-08-08
2561 Artikel
HausmeisterIn

Mail::Verify ist auch nicht schlecht. Und vor allem leicht zu handhaben!

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]

KKO

2004-12-31 13:32

User since
2003-11-05
124 Artikel
BenutzerIn

user image

man kann es beim filtern schon ziemlich gut checken:

Code: (dl )

$text='xxxxxx [EMAIL=1.birne@onlinehome.de]1.birne@onlinehome.de[/EMAIL] xxxxxx [EMAIL=2.apfel@gmx.de]2.apfel@gmx.de[/EMAIL] xxxxx [EMAIL=3_phirsich@aol.com]3_phirsich@aol.com[/EMAIL]
xxxxxxxxx  4_pflaume@web.info    xx     [EMAIL=5.kirsche@plus-minus.de]5.kirsche@plus-minus.de[/EMAIL] ';

$such='[a-zA-Z0-9\.\-\_]+'; #alles was erlaubt ist
(@emails) = $text =~ m/($such\@$such)/gi;

Gruß
KKO

havi

2004-12-31 13:50

User since
2003-08-04
2036 Artikel
BenutzerIn

Eine ziemlich einfach aber gute Loesung hat Relais vor einiger
Zeit mal gepostet.
Benutze doch einfach mal die Such-Option im (neuen) Forum.

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

format_c

2004-12-31 14:34

User since
2003-08-04
1706 Artikel
HausmeisterIn

[E|B
,30.12.2003, 23:44]Mail::Verify ist auch nicht schlecht. Und vor allem leicht zu handhaben!

Zumal es auch den passenden DNS-Entry des MX-Servers versucht zu finden.

Gruß Alex

Effizente Linuxshell

havi

2004-12-31 14:38

User since
2003-08-04
2036 Artikel
BenutzerIn

Ich lese gerade das Buch Programmieren mit Perl-Modulen.
Werd bei Zeiten mal nachsehen ob ueber dieses Modul auch etwas zu finden ist.

... sehr, sehr gutes Buch von O'Reilly!

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

View all threads created 2004-12-30 22:23.