ActivePerl Documentation
Table of Contents
Getting Started
Welcome To ActivePerl Release Notes Readme ActivePerl Change Log Install Notes Linux Solaris Windows ActivePerl Components Overview PPM Windows Specifics OLE Browser PerlScript Perl for ISAPI PerlEZ ActivePerl FAQ Introduction Availability & Install Using PPM Docs & Support Windows Specifics Perl for ISAPI Windows 9X/NT/2000 Quirks Web Server Config Web programming Programming Modules & Samples Embedding & Extending Using OLE with Perl Windows Scripting Active Server Pages Windows Script Host Windows Script ComponentsCore Perl Documentation
perl perlfaq perltoc perlbook perlsyn perldata perlop perlreftut perldsc perllol perllexwarn perldebug perlrun perlfunc perlopentut perlvar perlsub perlmod perlpod perlstyle perlmodlib perlmodinstall perltrap perlport perlsec perlref perlre perlform perllocale perlunicode perlboot perltoot perltootc perlobj perlbot perltie perlipc perlnumber perlfork perlthrtut perldiag perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5 perlfaq6 perlfaq7 perlfaq8 perlfaq9 perlcompile perlembed perlxstut perlxs perlguts perlcall perlfilter perldbmfilter perlapi perlintern perlapio perltodo perlhack perlhist perldelta perl5005delta perl5004delta perlamiga perlcygwin perldos perlhpux perlmachten perlos2 perlos390 perlvms perlwin32Pragmas
attributes attrs autouse base blib bytes charnames constant diagnostics fields filetest integer less lib locale lwpcook open ops overload perllocal re sigtrap strict subs utf8 vars warningsLibraries
ActivePerl DocTools TOC RDF AnyDBM_File Archive Tar AutoLoader AutoSplit B Asmdata Assembler Bblock Bytecode C CC Debug Deparse Disassembler Lint Showlex Stackobj Terse Xref Benchmark Bundle LWP ByteLoader Carp Heavy CGI Apache Carp Cookie Fast Pretty Push Switch Class Struct Compress Zlib Config CPAN FirstTime Nox Cwd Data Dumper DB Devel DProf Peek SelfStubber Digest HMAC HMAC_MD5 HMAC_SHA1 MD2 MD5 SHA1 DirHandle Dumpvalue DynaLoader English Env Errno Exporter Heavy ExtUtils Command Embed Install Installed Liblist MakeMaker Manifest Miniperl Mkbootstrap Mksymlists MM_Cygwin MM_OS2 MM_Unix MM_VMS MM_Win32 Packlist testlib Fatal Fcntl File Basename CheckTree Compare Copy CounterFile DosGlob Find Glob Listing Path Spec Functions Mac OS2 Unix VMS Win32 stat FileCache FileHandle FindBin Font AFM Getopt Long Std HTML AsSubs Element Entities Filter Form FormatPS Formatter FormatText HeadParser LinkExtor Parse Parser TokeParser TreeBuilder HTTP Cookies Daemon Date Headers Util Message Negotiate Request Common Response Status I18N Collate IO Dir File Handle Pipe Poll Seekable Select Socket INET UNIX IPC Msg Open2 Open3 Semaphore SysV LWP Debug MediaTypes MemberMixin Protocol RobotUA Simple UserAgent Math BigFloat BigInt Complex Trig MD5 MIME Base64 QuotedPrint NDBM_File Net Cmd Config Domain DummyInetd FTP hostent libnetFAQ netent Netrc NNTP PH Ping POP3 protoent servent SMTP SNPP Time O ODBM_File Opcode Pod Checker Find Html InputObjects Man Parser ParseUtils Plainer Select Text Color Termcap Usage POSIX PPM SOAPClient SOAPServer Safe SDBM_File Search Dict SelectSaver SelfLoader SHA Shell SOAP Defs Envelope EnvelopeMaker GenericHashSerializer GenericInputStream GenericScalarSerializer Lite OutputStream Packager Parser Transport HTTP Apache CGI Client Server LOCAL MAILTO POP3 TCP TypeMapper Socket Symbol Sys Hostname Syslog Term ANSIColor Cap Complete ReadLine Test Harness Text Abbrev ParseWords Soundex Tabs Wrap Thread Queue Semaphore Signal Specific Tie Array Handle Hash RefHash Scalar SubstrHash Time gmtime Local localtime tm UDDI Lite UNIVERSAL URI data Escape file Heuristic ldap URL WithBase User grent pwent Win32 AuthenticateUser ChangeNotify Clipboard Console Event EventLog File FileSecurity Internet IPC Mutex NetAdmin NetResource ODBC OLE Const Enum NEWS NLS TPJ Variant PerfLib Pipe Process Registry Semaphore Service Sound TieRegistry Win32API File Net Registry WWW RobotRules AnyDBM_File XML Element Parser Expat PPD PPMConfig ValidatingElement XSLoader|
C |
NAME
Business::CreditCard - Validate/generate credit card checksums/names
SUPPORTED PLATFORMS
- Linux
- Solaris
- Windows
SYNOPSIS
use Business::CreditCard;
print validate("5276 4400 6542 1319");
print cardtype("5276 4400 6542 1319");
print generate_last_digit("5276 4400 6542 131");
Business::CreditCard is available at a CPAN site near you.
DESCRIPTION
These subroutines tell you whether a credit card number is self-consistent -- whether the last digit of the number is a valid checksum for the preceding digits.
The validate() subroutine returns 1 if the card number provided passes
the checksum test, and 0 otherwise.
The cardtype() subroutine returns a string containing the type of
card: ``MasterCard'', ``VISA'', and so on. My list is not complete;
I welcome additions.
The generate_last_digit() subroutine computes and returns the last
digit of the card given the preceding digits. With a 16-digit card,
you provide the first 15 digits; the subroutine returns the sixteenth.
This module does not tell you whether the number is on an actual card, only whether it might conceivably be on a real card. To verify whether a card is real, or whether it's been stolen, or what its balance is, you need a Merchant ID, which gives you access to credit card databases. The Perl Journal (http://tpj.com/tpj) has a Merchant ID so that I can accept MasterCard and VISA payments; it comes with the little pushbutton/slide-your-card-through device you've seen in restaurants and stores. That device calculates the checksum for you, so I don't actually use this module.
These subroutines will also work if you provide the arguments
as numbers instead of strings, e.g. validate(5276440065421319).
To install this module, change directories to wherever
your system keeps Perl modules (e.g. /usr/local/lib/perl5) and
create a Business directory if there's isn't one already.
Then copy this file there. That's it!
AUTHOR
Jon Orwant
The Perl Journal and MIT Media Lab
|
C |