Re: email-adressen ausschneiden

[Philipp Meier <meier@meisterbohne.de>]

On Thu, Nov 20, 2003 at 11:45:53PM +0000, Daniel Jung wrote:
> Hi,
> 
> ich möchte aus dem mit formail extrahierten To:-Headereintrag die
> einzelnen email-adressen so ausschneiden, daß nur noch die nackten
> adressen übrig bleiben.
> 
> Bsp:
> 
> To: mail1@dj-web.de, "hans mustermann" <hans@mustermann.de>,
> mail2@muster.de
> 
> soll werden zu:
> 
> mail1@dj-web.de
> hans@mustermann.de
> mail2@muster.de

echo 'To: mail1@dj-web.de, "hans mustermann" <hans@mustermann.de>, 
      mail2@muster.de, foo@bar.org' | 
perl -MMail::Address -MMail::Header -ne '
	print join "\n", (map { $_->address() }
	Mail::Address->parse(new Mail::Header([$_])->get("To")));
'

Gruß,
	-billy

-- 
Meisterbohne   Meisterbohne GbR, Küfner, Mekle, Meier   Tel: +49-731-399 499-0
   eLösungen   Söflinger Straße 100                     Fax: +49-731-399 499-9
               89077 Ulm                           http://www.meisterbohne.de/