NAME
CheckDigits - Perl extension to generate and test check digits
SYNOPSIS
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();
ABSTRACT
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).
CHECK SUM METHODS
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
- amex, bahncard, diners, discover, enroute, happydigits, jcb, klubkarstadt, mastercard, miles&more, visa
- siren, siret
- ups
- betriebsnummer
- ismn
- ean, iln, nve, 2aus5
- identcode_dp
- rentenversicherung
- upc
- sedol
- postscheckkonti
- isbn, issn, ustid_pt, hkid, wagonnr_br, nhs_gb, vat_sl
- pzn
- pkz
- cpf, titulo_eleitor
- blutbeutel, bzue_de, ustid_de
- ccc_es
- sici
- ustid_fi
- ustid_dk
- nric_sg
- ahv_ch
- ustid_nl
- bwpk_de
- ustid_pl
EXPORT
None by default.
SEE ALSO
perl, www.pruefziffernberechnung.de.
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
COPYRIGHT AND LICENSE
Copyright 2004 by Mathias Weidner
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.