Code Index:

package RFC::RFC822::Address
- valid
__DATA__
EOF

NAME

RFC::RFC822::Address - RFC 822 style address validation.

SYNOPSIS

    use RFC::RFC822::Address qw /valid/;

    print "Valid\n" if valid 'abigail@example.com';

DESCRIPTION

This module checks strings to see whether they are have the valid syntax, as defined in RFC 822 [1]. One subroutine, valid, can be imported, which takes a single string as argument. If the string is valid according to RFC 822, a true value is returned, else a false value is returned.

REFERENCES

[1]: David H. Crocker (revisor): "STANDARD FOR THE FORMAT OF ARPA INTERNET TEXT MESSAGES". RFC 822. 13 August 1982.

CAVEATS and BUGS

This module sets the variable $Parse::RecDescent::skip. This will influence all other Parse::RecDescent parsers. And this parser will break if you set $Parse::RecDescent::skip to another value. It doesn't look that it is possible to set an alternative skip value for each parser, other than setting the skip value on each production.

Example A.1.5 in RFC 822 is wrong. It should use "Galloping Gourmet"@ANT.Down-Under.

This module should have been named RFC::822::Address. However, perl 5.004 doesn't like the 822 part, and at the time of this writing MacPerl is still at 5.004.

This module is slow.

DEVELOPMENT

The current sources of this module are found on github, git://github.com/Abigail/rfc--rfc822--address.git.

AUTHOR

Abigail mailto:cpan@abigail.be.

COPYRIGHT and LICENSE

Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

package RFC::RFC822::Address; require 5.006; use strict; use warnings; no warnings 'syntax'; use Exporter (); use Parse::RecDescent; our @ISA = qw /Exporter/; our @EXPORT = qw //; our @EXPORT_OK = qw /valid/; our %EXPORT_TAGS = (); our $VERSION = '2009110702'; my $CRLF = '\x0D\x0A'; $Parse::RecDescent::skip = "((?:$CRLF)?[ \t])*"; local $/; # Now, pay attention. There are only 2 important lines of Perl in this # module, and they follow now. ;-) my $parser = Parse::RecDescent -> new (<DATA>) or die "Compilation error.\n"; sub valid ($) {$parser -> valid (shift)} # That's it. The rest is just data.... 1;

__DATA__ HTAB: /\x09/ # ASCII Horizontal tab LF: /\x0A/ # ASCII Linefeed CR: /\x0D/ # ASCII Carriage return SPACE: ' ' # ASCII space AT: '@' # ASCII AT LWSP_char: SPACE | HTAB # Semantics = SPACE CHAR: /[\x00-\x7F]/ # Any ASCII character. CTL: /[\x00-\x1F\x7F]/ # Any ASCII control character # and DEL special: /[]()<>@,;:\\".[]/ # Must be in quoted string # to be use within word. CRLF: <skip: ""> CR LF linear_white_space: # Semantics = SPACE <skip: ""> # CRLF => folding (CRLF(?) LWSP_char)(s) atom: /[^]\x00-\x20 \x7F\x80-\xFF()<>@,;:\\".[]+/ # Any CHAR except specials, # SPACE and CTLs # Added '+' to regex in [cdq]text # for efficiency reasons. ctext: /[^)\\\x0D\x80-\xFF(]+/ # Any CHAR, excepting [, ], \, | linear_white_space # and CR, and including # linear-white-space => # may be folded dtext: /[^]\\\x0D\x80-\xFF[]+/ # Any CHAR, excepting [, ], \, | linear_white_space # and CR, and including # linear-white-space => # may be folded qtext: /[^"\\\x0D\x80-\xFF]+/ # Any CHAR, excepting ", \, | linear_white_space # and CR, and including # linear-white-space => # may be folded quoted_pair: '\\' <skip: ""> CHAR # May quote any char quoted_string: # Regular qtext or quoted chars '"' <skip: ""> (qtext | quoted_pair)(s?) '"' domain_literal: '[' <skip: ""> (dtext | quoted_pair)(s?) ']' comment: '(' <skip: ""> (ctext | quoted_pair | comment)(s?) ')' # May be folded. ocms: comment(s?) # To keep grammar more # readable. Not in RFC. word: atom | quoted_string phrase: <leftop: word ocms word> # sequence of words valid: ocms address ocms /^\Z/ {1} address: mailbox # one addressee | group # named list group: phrase ocms ':' ocms <leftop: mailbox (ocms ',' ocms) mailbox>(s?) ocms ';' mailbox: addr_spec # simple address | phrase ocms route_addr # name & addr-spec route_addr: '<' ocms route(?) ocms addr_spec ocms '>' route: <leftop: (AT ocms domain) # path-relative (ocms ',' ocms) (AT ocms domain)> ocms ':' addr_spec: local_part ocms '@' ocms domain # global address local_part: <leftop: word (ocms '.' ocms) word> # uninterpreted # case-preserved domain: <leftop: sub_domain (ocms '.' ocms) sub_domain> sub_domain: domain_ref | domain_literal domain_ref: atom # symbolic reference