Cgi::validop::check module to validate various demographics.
Should die.
Passes if value is a valid United States 2-letter abbreviation, as determined by the \s-1USPS:\s0 http://www.usps.com/ncsc/lookups/usps_abbreviations.html.
Passes if value is a 9-digit integer with optional dashes (e.g. 123-45-6789). If $constraint is \*(C`integer\*(C' the dashes are stripped:
# given CGI variable 'ssn' equal to '123-45-6789' $ssn = $cgi->param( 'ssn', [ 'demographics::ssn' ]); # eq '123-45-6789' $ssn = $cgi->param( 'ssn', [ 'demographics::ssn(integer)' ]); # eq '123456789'
Randall Hansen <[email protected]>
Copyright (c) 2003-2005 Randall Hansen. All rights reserved.
This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html