[perl] regex, iets ergens uit halen

[Verwijderd]

hallo,

ik wil uit een string een emailadres halen maar ik kom er ff niet op hoe ik dat ga aanpakken. Heeft iemand tips?

ik heb nu:

code:

 $email =~ s/.+\@(\\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)/$&/i;

ik kan dus al wel het emailadres vervangen in een tekst,maar dat wil ik dus niet
ik kom er echt niet op, heb al van alles gezocht en ik weet dat het iets heel simpels moet zijn

[Juup]

Ik weet natuurlijk niet wat je eisen aan dat emailadres zijn, maar dit werkt:

code:

my $string = 'blaat [e-mail] more blaat';
if ($string =~ m/\s(\w+?\@\w+?\.\w+?)\s/)
{ my $email = $1;
}

[Verwijderd]

dankjewel voor je antwoord..... ik kwam er net achter dat ik de oplossing wel had, maar in mijn test kwam er ook een <br> achter een emailadres (dus zonder spatie) dus dat telde hij ook mee

fenks ben stuk verder op weg

[Soultaker]

Duidelijke topic-titel trouwens; 'iets ergens uit halen'.

[Verwijderd]

Op dinsdag 09 april 2002 15:33 schreef Soultaker het volgende:
Duidelijke topic-titel trouwens; 'iets ergens uit halen'.

ach joh ga je moeder pesten

sorry zal in t vervolg duidelijker proberen te zijn....