[Perl] Compacte regex om e-mail adressen te matchen..

[Hans]

Ik ben bezig met een regex die adressen in de From: header matched
tegen een array met e-mail adressen. Nu heb ik daar een keer een
prachtige compacte regex voor gevonden, maar helaas kwijt geraakt en
het is (natuurlijk) niet meer (404) op het web te vinden..

Misschien dat jullie zoiets nog hebben?

TIA

--
Hi! I'm a UNIX .signature virus!
Copy me into your ~/.signature to help me spread..

[shaimelz]

if (!($email_to_check =~ /.+\@.+?\..+/)) {
print "$email_to_check is not valid \n";
}

Hans wrote:

> Ik ben bezig met een regex die adressen in de From: header matched
> tegen een array met e-mail adressen. Nu heb ik daar een keer een
> prachtige compacte regex voor gevonden, maar helaas kwijt geraakt en
> het is (natuurlijk) niet meer (404) op het web te vinden..
>
> Misschien dat jullie zoiets nog hebben?
>
> TIA
>
> --
> Hi! I'm a UNIX .signature virus!
> Copy me into your ~/.signature to help me spread..

[robert]

shaimelz <shaimelz@hotmail.com>:
> if (!($email_to_check =~ /.+\@.+?\..+/)) {
> print "$email_to_check is not valid \n";
> }

Een regex die RFC822-geldige adressen matcht is te vinden op
http://www.ex-parrot.com/~pdw/Mail-RFC822-Address.html

--
robert

[Hans]

On Fri, 07 Mar 2003 10:17:12 +0100,
shaimelz <shaimelz@hotmail.com> wrote..

> Hans wrote:

>> Ik ben bezig met een regex die adressen in de From: header matched
>> tegen een array met e-mail adressen. Nu heb ik daar een keer een
>> prachtige compacte regex voor gevonden, maar helaas kwijt geraakt en
>> het is (natuurlijk) niet meer (404) op het web te vinden..
>> Misschien dat jullie zoiets nog hebben?
>> TIA

> if (!($email_to_check =~ /.+\@.+?\..+/)) {
> print "$email_to_check is not valid \n";
> }

Dank je.. maar 't is niet wat ik bedoelde.

Ik heb een From: regel, bv:
[$from] From: shaimelz <shaimelz@hotmail.com>;
en een database met e-mail adressen, bv:
[$adres] shaimelz@hotmail.com;

Nu wil ik het e-mail adres laten matchen tegen de from: regel.
Ik zou dus: if ($from =~ /$adres/) {; kunnen doen, maar in de
regex die ik bedoel zit een prachtige sanity check verwerkt en
daar ben ik naar op zoek.

Naald in een hooiberg.. ;-)

--
Hi! I'm a UNIX .signature virus!
Copy me into your ~/.signature to help me spread..

[robert]

Hans <usenet@mailforce.net>:
> Ik heb een From: regel, bv:
> [$from] From: shaimelz <shaimelz@hotmail.com>;
> en een database met e-mail adressen, bv:
> [$adres] shaimelz@hotmail.com;
>
> Nu wil ik het e-mail adres laten matchen tegen de from: regel. Ik zou
> dus: if ($from =~ /$adres/) {; kunnen doen, maar in de regex die ik
> bedoel zit een prachtige sanity check verwerkt en daar ben ik naar op
> zoek.

Wat zou die sanitycheck dan moeten doen?

--
robert

[shaimelz]

Hopelijk heb je hier wat aan:

$from = 'From: shaimelz <shaimelz@hotmail.com>';
$adres = 'shaimelz@hotmail.com';

($from_name, $from_adres) = $from =~ /(\S+)\s+<(([^@]+)[^>]+)>/;

print "from_adres: $from_adres - adres: $adres \n";


Hans wrote:

> On Fri, 07 Mar 2003 10:17:12 +0100,
> shaimelz <shaimelz@hotmail.com> wrote..
>
> > Hans wrote:
>
> >> Ik ben bezig met een regex die adressen in de From: header matched
> >> tegen een array met e-mail adressen. Nu heb ik daar een keer een
> >> prachtige compacte regex voor gevonden, maar helaas kwijt geraakt en
> >> het is (natuurlijk) niet meer (404) op het web te vinden..
> >> Misschien dat jullie zoiets nog hebben?
> >> TIA
>
> > if (!($email_to_check =~ /.+\@.+?\..+/)) {
> > print "$email_to_check is not valid \n";
> > }
>
> Dank je.. maar 't is niet wat ik bedoelde.
>
> Ik heb een From: regel, bv:
> [$from] From: shaimelz <shaimelz@hotmail.com>;
> en een database met e-mail adressen, bv:
> [$adres] shaimelz@hotmail.com;
>
> Nu wil ik het e-mail adres laten matchen tegen de from: regel.
> Ik zou dus: if ($from =~ /$adres/) {; kunnen doen, maar in de
> regex die ik bedoel zit een prachtige sanity check verwerkt en
> daar ben ik naar op zoek.
>
> Naald in een hooiberg.. ;-)
>
> --
> Hi! I'm a UNIX .signature virus!
> Copy me into your ~/.signature to help me spread..