[ 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 <Iztok.Umek na simobil.si>
>
>Kako bi iz tega izluscil sam e-mail naslov?

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

#!/usr/local/bin/perl

$str = 'Iztok Umek <Iztok.Umek na simobil.si>';

$| = 1;

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

Pozdrav,
saso