algorithm::checkdigits::m10_005(3pm) [debian man page]
CheckDigits::M10_005(3pm) User Contributed Perl Documentation CheckDigits::M10_005(3pm)NAME
CheckDigits::M10_005 - compute check digits for Deutsche Post Identcode/Leitcode (DE)
SYNOPSIS
use Algorithm::CheckDigits;
$ic = CheckDigits('identcode_dp');
if ($ic->is_valid('21.802 580.906 6')) {
# do something
}
$cn = $ic->complete('21.802 580.906');
# $cn = '21.802 580.9066'
$cd = $ic->checkdigit('21.802 580.906 6');
# $cd = '6'
$bn = $ic->basenumber('21.802 580.906 6');
# $bn = '21.802 580.906'
DESCRIPTION
ALGORITHM
1. Beginning left all numbers are weighted alternatively 4 and 9.
2. The sum of all products is computed.
3. The sum of step 3 ist taken modulo 10.
4. The check digit is the difference between 10 and the number from step 3.
METHODS
is_valid($number)
Returns true only if $number consists solely of numbers and the last digit is a valid check digit according to the algorithm given
above.
Returns false otherwise,
complete($number)
The check digit for $number is computed and concatenated to the end of $number.
Returns the complete number with check digit or '' if $number does not consist solely of digits and spaces.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return '' otherwise.
checkdigit($number)
Returns the checkdigit of $number if $number has a valid check digit.
Return '' otherwise.
EXPORT
None by default.
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de.
perl v5.10.0 2008-05-17 CheckDigits::M10_005(3pm)
Check Out this Related Man Page
CheckDigits::M10_008(3pm) User Contributed Perl Documentation CheckDigits::M10_008(3pm)NAME
CheckDigits::M10_008 - compute check digits for Sedol (GB)
SYNOPSIS
use Algorithm::CheckDigits;
$sedol = CheckDigits('sedol');
if ($sedol->is_valid('0123457')) {
# do something
}
$cn = $sedol->complete('012345');
# $cn = '0123457'
$cd = $sedol->checkdigit('0123457');
# $cd = '7'
$bn = $sedol->basenumber('0123457');
# $bn = '012345'
DESCRIPTION
ALGORITHM
1. Beginning left all numbers are weighted with 1,3,1,7,3,9 and 1 (checkdigit)
2. The sum of all products is computed.
3. The check digit is the difference of the sum from step 3 to the next multiple of 10.
METHODS
is_valid($number)
Returns true only if $number consists solely of numbers and the last digit is a valid check digit according to the algorithm given
above.
Returns false otherwise,
complete($number)
The check digit for $number is computed and concatenated to the end of $number.
Returns the complete number with check digit or '' if $number does not consist solely of digits and spaces.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return '' otherwise.
checkdigit($number)
Returns the checkdigit of $number if $number has a valid check digit.
Return '' otherwise.
EXPORT
None by default.
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de.
perl v5.10.0 2008-05-17 CheckDigits::M10_008(3pm)
I'm new to networking world. So please bear with me.
My Questions:
1. How do we send TCP/IP in a 802.3 frame? My understanding is that we have to incorporate the 802.3 LLC layer. The DSAP and SSAP in the LLC layer will provide information of the type of data inside the Information field of... (0 Replies)
Hi
Do you know how can I get all check in and check out comments for a period of time with Surround SCM CLI
---------- Post updated at 02:00 AM ---------- Previous update was at 01:56 AM ----------
Do you have NAnt tasks that allow us to access Evolution from an NAnt build script? (0 Replies)
Perl allow hex character with just one digit.
Such as \x0 \x9 \xA.
How to force to use 2 digits in m// and s///.
Such as \x00 \x09 \x0A.
---------- Post updated at 05:20 PM ---------- Previous update was at 03:38 PM ----------
I don't know why these code replace as text, not a real hex... (0 Replies)