| Mail::Address(3) | User Contributed Perl Documentation | Mail::Address(3) |
foreach $addr (@addrs) {
print $addr->format,"\n";
}
"Mail::Address" extracts and manipulates email addresses from a message header. It cannot be used to extract addresses from some random text. You can use this module to create RFC822 compliant fields.
Although "Mail::Address" is a very popular subject for books, and is used in many applications, it does a very poor job on the more complex message fields. It does only handle simple address formats (which covers about 95% of what can be found). Problems are with
- no support for address groups, even not with the semi-colon as separator between addresses;
- limited support for escapes in phrases and comments. There are cases where it can get wrong; and
- you have to take care of most escaping when you create an address yourself: "Mail::Address" does not do that for you.
Often requests are made to the maintainers of this code improve this situation, but this is not a good idea, where it will break zillions of existing applications. If you wish for a fully RFC2822 compliant implementation you may take a look at Mail::Message::Field::Full, part of MailBox.
my @g = $s->groups; # all groups, at least one # ref $g[0] isa Mail::Message::Field::AddrGroup; my $ga = $g[0]->addresses; # group addresses my @a = $s->addresses; # all addresses # ref $a[0] isa Mail::Message::Field::Address;
=c_method new $phrase, $address, [ $comment ] Create a new "Mail::Address" object which represents an address with the elements given. In a message these 3 elements would be seen like:
PHRASE <ADDRESS> (COMMENT) ADDRESS (COMMENT)
Note: This function tries to be smart with the "phrase" of the email address, which is probably a very bad idea. Consider to use phrase() itself.
POD ERRORS
Hey! The above document had some coding errors, which are explained below:
- Around line 14:
- Unknown directive: =chapter
- Around line 17:
- Unknown directive: =chapter
- Around line 25:
- Unknown directive: =chapter
- Around line 58:
- Unknown directive: =examples
- Around line 69:
- Unknown directive: =chapter
- Around line 190:
- Unknown directive: =section
- Around line 199:
- Unknown directive: =example
- Around line 208:
- Unknown directive: =method
- Around line 212:
- Unknown directive: =example
- Around line 258:
- Unknown directive: =section
- Around line 260:
- Unknown directive: =method
- Around line 263:
- Unknown directive: =method
- Around line 266:
- Unknown directive: =method
- Around line 283:
- Unknown directive: =method
- Around line 327:
- Unknown directive: =section
- Around line 329:
- Unknown directive: =method
- Around line 333:
- Deleting unknown formatting code M<>
- Around line 364:
- Unknown directive: =method
- Around line 374:
- Unknown directive: =method
| 2026-10-24 | perl v5.44.0 |