CheckDigits::M10_002(3pm) | User Contributed Perl Documentation | CheckDigits::M10_002(3pm) |
CheckDigits::M10_002 - compute check digits for CINS (US), SIREN (FR), SIRET (FR)
use Algorithm::CheckDigits; $siret = CheckDigits('siret'); if ($siret->is_valid('73282932000074')) { # do something } $cn = $siret->complete('7328293200007'); # $cn = '73282932000074' $cd = $siret->checkdigit('73282932000074'); # $cd = '4' $bn = $siret->basenumber('73282932000074'); # $bn = '7328293200007'
Returns false otherwise,
Returns the complete number with check digit or '' if $number does not consist solely of digits and spaces.
Return '' otherwise.
Return '' otherwise.
None by default.
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
perl, CheckDigits, www.pruefziffernberechnung.de. www.dsi.cnrs.fr/bureau_qualite/admindonnees/documents/siren.pdf
2008-05-17 | perl v5.10.0 |