Regexp::Common::CC -- provide patterns for credit card numbers.
use Regexp::Common qw /CC/;
while (<>) {
/^$RE{zip}{Visa}$/ and print "Visa card number\n";
}
Please consult the manual of Regexp::Common for a general description of the works of this interface.
Do not use this module directly, but load it via Regexp::Common.
This module offers patterns for credit card numbers of several major credit card types.
$Log: $
Regexp::Common for a general description of how to use this interface.
Credit Card Validation - Check Digits
Everything you ever wanted to know about CC's
Luhn formula
Damian Conway (damian@conway.org) and Abigail (regexp-common@abigail.nl).
This package is maintained by Abigail (regexp-common@abigail.nl).
Bound to be plenty. Send them in to regexp-common@abigail.nl.
Copyright (c) 2001 - 2004, Damian Conway and Abigail. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)
