Re: [ LUGOS ] Perl & E-mail

[Saso Tavcar]

Napisal si :

>Uporabljal sem Mail::Header v perlu, in uspel dobiti From, To ... naslove
>iz samega e-maila, vendar so oblike:
>
>Iztok Umek <[EMAIL PROTECTED]>
>
>Kako bi iz tega izluscil sam e-mail naslov?

Recimo, da tole sparsa kar je med "<>"

#!/usr/local/bin/perl

$str = 'Iztok Umek <[EMAIL PROTECTED]>';

$| = 1;

if ($str =~ /\<(\w+)\.(\w+)\@(\w+)\.(\w+)\>/)   {
        print "E-mail = $1.$2\@$3.$4\n"
};

Pozdrav,
saso