Re: [PERL] email grab

[Kaare Rasmussen <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"
}

-- 
Kaare Rasmussen            --Linux, spil,--        Tlf:        3816 2582
Kaki Data                tshirts, merchandize      Fax:        3816 2501
Howitzvej 75               Åben 14.00-18.00        Web:      www.suse.dk
2000 Frederiksberg        Lørdag 11.00-17.00       Email: sslug@sslug