algorithm::checkdigits::m16_001(3pm) [debian man page]
CheckDigits::M16_001(3pm) User Contributed Perl Documentation CheckDigits::M16_001(3pm)NAME
CheckDigits::M16_001 - compute check digits for ISAN
SYNOPSIS
use Algorithm::CheckDigits;
$isan = CheckDigits('isan');
if ($isan->is_valid('123A567B8912E01A')) {
# do something
}
$cn = $isan->complete('123A567B8912E01');
# $cn = '123A567B8912E01A'
$cd = $isan->checkdigit('123A567B8912E01A');
# $cd = '4'
$bn = $isan->basenumber('123A567B8912E01A');
# $bn = '123A567B8912E01'
DESCRIPTION
ALGORITHM
1. "a(1) = 16"
"b(i) = a(i) % 17 +d(i)", where d(i) is the decimal value of the hexdigit at position i.
"c(i) = b(i) % 16"
"a(i) = c(i-1) * 2", for i greater than 1
2. Beginning left for each i = 1..16, "a", "b", "c" are computed.
3. The check digit is the value for "d(16)" where "c(16)" equals 1.
4. The check digit is appended as hexadecimal value to the number.
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::M16_001(3pm)
Check Out this Related Man Page
CheckDigits::M23_001(3pm) User Contributed Perl Documentation CheckDigits::M23_001(3pm)NAME
CheckDigits::M23_001 - compute check digits for DNI (ES)
SYNOPSIS
use Algorithm::CheckDigits;
$dni = CheckDigits('dni_es');
if ($dni->is_valid('54362315K')) {
# do something
}
$cn = $dni->complete('54362315');
# $cn = '54362315K'
$cd = $dni->checkdigit('54362315K');
# $cd = 'K'
$bn = $dni->basenumber('54362315K');
# $bn = '54362315'
DESCRIPTION
ALGORITHM
1. The checkdigit is the whole number taken modulo 23 and coded according to a keytable.
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::M23_001(3pm)
I have to write a c program which takes a 3 digit number n and calculates the value of (2^n)+1 and then determines the number is prime or not.
I have tried to first calculate the value of 2^n and then adding one to it and then apply the logic of prime number.
but the ultimate problem is that... (7 Replies)
Hi,
I have the below sample code to hash the input number read from file. File will have 16 to 19 digit number and executable hash the number using some logic and returns the hashed value. Each digit in the 16 digit number is converted to a 4 byte value. That if the input is 16digit integer, the... (6 Replies)
Hi,
I am trying to write a regex for myscript and need some input from experts.
here is what I must grep for
TICKET{Sapce}{Space}{hyphen}
so here is the example data
TICKET 34554, CT-12345, TICKET 12345: some text here
TICKET 2342, CT-12345, MA-12344: some text here
TICKET... (5 Replies)
Dear Buddies,
My query may be pretty simple but I am stuck because of it. Please give me a solution.
Query is I have a variable (say $A) which can have any number starting from 1 digit to 8 digit i.e. any number from 1 to 99999999.
Now, I want output as 8 digit even if variable has only 1 digit.... (3 Replies)
The perl parser below works as expected assuming the last digit in the NC_ before the . is a single digit.
perl -ne 'next if $. == 1;
if(/.*del(+)ins(+).*NC_0{4}(+).*g\.(+)_(+)/) # indel
{
print join("\t", $3, $4, $5, $1, $2), "\n";
}
' out_position.txt > out1.txt
... (8 Replies)