|
CheckDigits - Perl extension to generate and test check digits
|
CheckDigits - Perl extension to generate and test check digits
use Algorithm::CheckDigits;
$isbn = CheckDigits('ISBN');
if ($isbn->is_valid('3-930673-48-7')) {
# do something
}
$cn = $isbn->complete('3-930673-48'); # $cn = '3-930673-48-7'
$cd = $isbn->checkdigit('3-930673-48-7'); # $cd = '7'
$bn = $isbn->basenumber('3-930673-48-7'); # $bn = '3-930673-48'
Algorithm::CheckDigits->method_list();
This module provides a number of methods to test and generate check
digits. For more information have a look at the web site
www.pruefziffernberechnung.de (german).
Use the following to find out which methods your version of
Algorithm::CheckDigits provides and where to look for further
information.
perl -MAlgorithm::CheckDigits -e Algorithm::CheckDigits::print_methods
At the moment these methods to compute check digits are provided:
- euronote
-
See the Algorithm::CheckDigits::M09_001 manpage.
- amex, bahncard, diners, discover, enroute, happydigits, jcb,
klubkarstadt, mastercard, miles&more, visa
-
See the Algorithm::CheckDigits::M10_001 manpage.
- siren, siret
-
See the Algorithm::CheckDigits::M10_002 manpage.
- ups
-
See the Algorithm::CheckDigits::M10_011 manpage.
- betriebsnummer
-
See the Algorithm::CheckDigits::M10_009 manpage.
- ismn
-
See the Algorithm::CheckDigits::M10_003 manpage.
- ean, iln, nve, 2aus5
-
See the Algorithm::CheckDigits::M10_004 manpage.
- identcode_dp
-
See the Algorithm::CheckDigits::M10_005 manpage.
- rentenversicherung
-
See the Algorithm::CheckDigits::M10_006 manpage.
- upc
-
See the Algorithm::CheckDigits::MBase_001 manpage.
- sedol
-
See the Algorithm::CheckDigits::M10_008 manpage.
- postscheckkonti
-
See the Algorithm::CheckDigits::M10_010 manpage.
- isbn, issn, ustid_pt, hkid, wagonnr_br, nhs_gb, vat_sl
-
See the Algorithm::CheckDigits::M11_001 manpage.
- pzn
-
See the Algorithm::CheckDigits::M11_002 manpage.
- pkz
-
See the Algorithm::CheckDigits::M11_003 manpage.
- cpf, titulo_eleitor
-
See the Algorithm::CheckDigits::M11_004 manpage.
- blutbeutel, bzue_de, ustid_de
-
See the Algorithm::CheckDigits::MBase_002 manpage.
- ccc_es
-
See the Algorithm::CheckDigits::M11_006 manpage.
- sici
-
See the Algorithm::CheckDigits::MBase_003 manpage.
- ustid_fi
-
See the Algorithm::CheckDigits::M11_007 manpage.
- ustid_dk
-
See the Algorithm::CheckDigits::M11_008 manpage.
- nric_sg
-
See the Algorithm::CheckDigits::M11_009 manpage.
- ahv_ch
-
See the Algorithm::CheckDigits::M11_010 manpage.
- ustid_nl
-
See the Algorithm::CheckDigits::M11_011 manpage.
- bwpk_de
-
See the Algorithm::CheckDigits::M11_012 manpage.
- ustid_pl
-
See the Algorithm::CheckDigits::M11_016 manpage.
None by default.
the perl manpage,
www.pruefziffernberechnung.de.
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
Copyright 2004,2005 by Mathias Weidner
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
|
CheckDigits - Perl extension to generate and test check digits
|