|< 1 2 >| | 17 Einträge, 2 Seiten |
1
2
3
4
$from = $head->get('From');
($from_name, $from_adress) = split( / <[/, $from );
$from_adress =~ s/]>//g;
$from_name =~ s/"//g;
QuoteMail::Address ist genau dafür gedacht, es richtig zu machen;
1
2
3
4
5
6
$from = $head->get('From');
@from_addresses = Mail::Address->parse($from);
my $address;
if (@from_addresses) {
$from = $from_addresses[0]->address();}
else {exit;}
|< 1 2 >| | 17 Einträge, 2 Seiten |