home *** CD-ROM | disk | FTP | other *** search
- =head1 NAME
-
- Mail::Address - Parse mail addresses
-
- =head1 INHERITANCE
-
- =head1 SYNOPSIS
-
- use Mail::Address;
- my @addrs = Mail::Address->parse($line);
-
- foreach $addr (@addrs) {
- print $addr->format,"\n";
- }
-
- =head1 DESCRIPTION
-
- C<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 C<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
-
- =over 4
-
- =item *
-
- no support for address groups, even not with the semi-colon as
- separator between addresses;
-
- =item *
-
- limitted support for escapes in phrases and comments. There are
- cases where it can get wrong; and
-
- =item *
-
- you have to take care of most escaping when you create an address yourself:
- C<Mail::Address> does not do that for you.
-
- =back
-
- 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 L<Mail::Message::Field::Full>,
- part of MailBox.
-
- example:
-
- my $s = Mail::Message::Field::Full->parse($header);
- # ref $s isa Mail::Message::Field::Addresses;
-
- 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;
-
- =head1 METHODS
-
- =head2 Constructors
-
- Mail::Address-E<gt>B<new>(PHRASE, ADDRESS, [ COMMENT ])
-
- =over 4
-
- Create a new C<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)
-
- example:
-
- Mail::Address->new("Perl5 Porters", "perl5-porters@africa.nicoh.com");
-
- =back
-
- $obj-E<gt>B<parse>(LINE)
-
- =over 4
-
- Parse the given line a return a list of extracted C<Mail::Address> objects.
- The line would normally be one taken from a To,Cc or Bcc line in a message
-
- example:
-
- my @addr = Mail::Address->parse($line);
-
- =back
-
- =head2 Accessors
-
- $obj-E<gt>B<address>
-
- =over 4
-
- Return the address part of the object.
-
- =back
-
- $obj-E<gt>B<comment>
-
- =over 4
-
- Return the comment part of the object
-
- =back
-
- $obj-E<gt>B<format>([ADDRESSes])
-
- =over 4
-
- Return a string representing the address in a suitable form to be placed
- on a C<To>, C<Cc>, or C<Bcc> line of a message. This method is called on
- the first ADDRESS to be used; other specified ADDRESSes will be appended,
- separated with commas.
-
- =back
-
- $obj-E<gt>B<phrase>
-
- =over 4
-
- Return the phrase part of the object.
-
- =back
-
- =head2 Smart accessors
-
- $obj-E<gt>B<host>
-
- =over 4
-
- Return the address excluding the user id and '@'
-
- =back
-
- $obj-E<gt>B<name>
-
- =over 4
-
- Using the information contained within the object attempt to identify what
- the person or groups name is.
-
- =back
-
- $obj-E<gt>B<user>
-
- =over 4
-
- Return the address excluding the '@' and the mail domain
-
- =back
-
- =head1 SEE ALSO
-
- This module is part of the MailTools distribution,
- F<http://perl.overmeer.net/mailtools/>.
-
- =head1 AUTHORS
-
- The MailTools bundle was developed by Graham Barr. Later, Mark
- Overmeer took over maintenance without development.
-
- Mail::Cap by Gisle Aas E<lt>aas@oslonett.noE<gt>.
- Mail::Field::AddrList by Peter Orbaek E<lt>poe@cit.dkE<gt>.
- Mail::Mailer and Mail::Send by Tim Bunce E<lt>Tim.Bunce@ig.co.ukE<gt>.
- For other contributors see ChangeLog.
-
- =head1 LICENSE
-
- Copyrights 1995-2000 Graham Barr E<lt>gbarr@pobox.comE<gt> and
- 2001-2007 Mark Overmeer E<lt>perl@overmeer.netE<gt>.
-
- This program is free software; you can redistribute it and/or modify it
- under the same terms as Perl itself.
- See F<http://www.perl.com/perl/misc/Artistic.html>
-
-