電子メールの分解

---

　Mail::Addressのparseで分解できます。

use strict;
use warnings;
use Mail::Address;

my $line = 'Administrator <admin@mail.example.com>';
my $addr = (Mail::Address->parse($line))[0];

print $addr->user,"\n"; # admin
print $addr->host,"\n"; # mail.example.com
print $addr->name,"\n"; # Administrator

---

関連項目

・URIの分解