www.GunnarD.se

Har ett tag haft ett problem med att kunna plocka ut (extract) email adresser ur en textmassa m.h.a perl, har googlat ett tag efter reguljära uttryck för detta, hittat flera men antingen varit för krångliga eller inte lyckats få med sig hela mailadressen.

Men nu äntligen har jag hittat ett uttryck som klarar allt jag matat den med och den är så enkel så att jag borde kommit på den själv

\w\.\-]+@[\w\.\-]+\w+

Gjorde en liten perl subroutin för detta:

sub GetEmailAdress {
my ($Adress)=@_;
my $Res="";

$Res=$1 if $Adress=~/([\w\.\-]+@[\w\.\-]+\w+)/;

$Res;
}