Re: [PERL] email grab

["Jesper Bunch" <sslug@sslug>]

"Kaare Rasmussen" <sslug@sslug> wrote in message
news:sslug@sslug
> Hej
>
> > Jeg har en en fil med html kode, som indeholder nogle email
> > adresser.
> > Hvordan får jeg disse emails listet uden de resterende html
koder
> > (i perl altså =))
>
> Jeg bruger din regex for at identificere emailadresser. Den er
sikkert fin.
>
> Så vil jeg gøre noget a la dette i Perl:
>
> #!/usr/bin/perl -n
> (@a) =
>
m/((?:[_a-z0-9-])+(?:\.[_a-z0-9-]+)*@(?:(?:[a-z0-9]+[a-z0-9-]*)+\
.)+(?:[a-z]{2,}))/mg;
> foreach $a (@a){
>  print "$a\n"
> }
>
Lækkert! Tak for hjælpen :)

// Jesper