[PERL] расчленить почтовый адрес

[Alex Keda]

ковыряю perl совместно с exim
надо разобрать адрес который содержится в поле

Код: Выделить всё

mail to:

содержаться там может что-то типа

Код: Выделить всё

vasya@domain.su

Код: Выделить всё

"Василий Пупкин" <vasya@domain.su>

или любые комбинации перечисленного через запятую.
собсно - проблем особых нету, но вот думаю - не велосипед ли я изобретаю? может уже модуль какойнить есть?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[hizel]

велосипед, посмотри на cpan, Luke

[Alex Keda]

http://cpansearch.perl.org/src/RJBS/Ema ... 892/README
нашёл. решило 90% моих проблем сразу
вот тока не могу понять как вычленить этой штукой адрес типа vasya@domain.su из той галиматьи что на входе
(щас уже обкоцал до одного адреса - мне нужен тока этот случай)

Код: Выделить всё

               # get destination address
                my @addresses = Email::Address->parse($dst_addrr);
                #my $addr_spec = $Email::Address::addr_spec;
                $num_mails = scalar @addresses;
                print LOGFILE "num adresses = " . $num_mails . "\n";
                # how many adresses?
                if ( $num_mails eq "1" )
                {
                        # get address
                        $dst_addrr = $addresses[0];
                        #my $host = $address->host;
                        #my $user = $address->user;
                        $dst_addrr =~ $Email::Address::addr_spec;
                        print LOGFILE "found address = " . $dst_addrr . "\n";

некатит. печатает в лог "Василий Пупкин" <vasya@domain.su>

[hizel]

Код: Выделить всё

$dst_addrr->address;

[Alex Keda]

индейское жилищще

[hizel]

хз

Код: Выделить всё

#!/usr/bin/env perl

use Email::Address;
use strict;

my $dst_addr = 'Gans Otto <olo@fuck.com>';
my @address = Email::Address->parse($dst_addr);
print $address[0]->address, "\n";

Код: Выделить всё

>perl tst.pl
olo@fuck.com

[Гость]

в двойные кавычки возьми своего ганса отто

[hizel]

ну взял и чо

[thefree]

а то, что там в двойных кавычках @
===
use Data::Dumper;
print Dumper(@addresses);

[hizel]

что сказать то хотел?

[Tuchka]

что сказать то хотел?

Наверно про интерполяцию переменных хотел сказать. Что массив у тебя будет подставляться. Хотя в чем проблема я пока из обсуждения тоже не уловила

[Гость]

судя по

$dst_addrr->address;

индейское жилищще

хз
'Gans Otto <olo@fuck.com>';

логично предположить что разница только в кавычках

некатит. печатает в лог "Василий Пупкин" <vasya@domain.su>

а работает у лиса или нет он уже не сказал
полагаю что не работает
а пример с кавычками хизель не продемонстрировал

[hizel]

пример с кавычками работает, демонстрировать его нет нужды

[Alex Keda]

всем сорри, заработало
сказалось моё незнание синтаксиса perl

Код: Выделить всё

mx# vim /tmp/functions.pl
#!/usr/bin/perl -w

# подрубаем мусю /usr/ports/databases/p5-DBD-mysql50
use DBI;
use Email::Address;


# search and return rewritten email address
sub mysql_rewrite {
        my ($search_addr, $dst_addrr) = @_;
                print "$search_addr -> $dst_addrr\n";
                # get destination address
                my @addresses = Email::Address->parse($dst_addrr);
                #my $addr_spec = $Email::Address::addr_spec;
                $num_mails = scalar @addresses;
                print "num adresses = " . $num_mails . "\n";
                # how many adresses?
                if ( $num_mails eq "1" )
                {
                        # get address
                        $dst_addrr = $addresses[0];
                        #$dst_addrr =~ $Email::Address::angle_addr;
                        $dst_addrr = $dst_addrr->address;
                        print "found address = " . $dst_addrr . "\n";
                }

        return  $dst_addrr;

}       # end mysql_rewrite

#sub check

print mysql_rewrite ('petrov@isp.su','"А. Кеда" <akeda@isp.su>') . "\n";

Код: Выделить всё

mx# /tmp/functions.pl
petrov@isp.su -> "А. Кеда" <akeda@isp.su>
num adresses = 1
found address = akeda@isp.su
akeda@isp.su
mx#     

[hizel]

так не должно быть, по RFC там должон быть что то типа

Код: Выделить всё

=?windows-1251?B?wuvg5Ojs6PAg1A==?=

[Alex Keda]

это адрес внутри exim
он уже расчленил ваш rfc

[hizel]

а, ну ок, чо :}