algorithm::checkdigits::mxx_005(3pm) [debian man page]
CheckDigits::MXX_005(3pm) User Contributed Perl Documentation CheckDigits::MXX_005(3pm)NAME
CheckDigits::MXX_005 - compute check digits for ESR9 (CH)
SYNOPSIS
use Algorithm::CheckDigits;
$esr = CheckDigits('esr9');
if ($esr->is_valid('123456786')) {
# do something
}
$cn = $esr->complete('12345678');
# $cn = '123456786'
$cd = $esr->checkdigit('123456786');
# $cd = '6'
$bn = $esr->basenumber('123456786');
# $bn = '12345678'
DESCRIPTION
ALGORITHM
1. Digits are processed left to right. For the first digit applies the balance is 0.
2. The new balance is taken from the balance table according to the current balance (row) and the digit (column).
3. The check digit is the difference from the last balance to 10 taken modulo 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::MXX_005(3pm)
Check Out this Related Man Page
CheckDigits::MBase_002(3pm) User Contributed Perl Documentation CheckDigits::MBase_002(3pm)NAME
CheckDigits::MBase_002 - compute check digits for blood bags (DE), BZUe (DE), VAT Registration Number (DE)
SYNOPSIS
use Algorithm::CheckDigits;
$bb = CheckDigits('blutbeutel');
if ($bb->is_valid('2761011234567893')) {
# do something
}
$cn = $bb->complete('276101123456789');
# $cn = '2761011234567893'
$cd = $bb->checkdigit('2761011234567893');
# $cd = '3'
$bn = $bb->basenumber('2761011234567893');
# $bn = '276101123456789';
DESCRIPTION
ALGORITHM
1. Start with values P = 10, S = 0.
2. Beginning left you do the following for all digits
1. S = (P + digit) modulo 10
2. If S is 0 then S = 10.
3. P = (2 * S) modulo 11
3. The check digit is (11 - P) modulo 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, www.eurocode.org.
perl v5.10.0 2008-05-17 CheckDigits::MBase_002(3pm)
I found below script to check whether the variable is a digit in ksh.
############################
#!/bin/ksh
REPLY="3f"
if ]*\)'` != ${REPLY} && "${REPLY}" != "0" ]]
then
print "is digit\n"
else
print "not digit\n"
fi
############################
Although it works fine, but... (6 Replies)
Ok so I have files that are going to land on /apps/, but I need to load balance them so I need to load balance them to four different folders.
The three file extensions I get are .mpe .mpd and mpf which will land here... /apps/ I can't move them until the mpf is there it triggers the next... (8 Replies)
Folks,
Is there a simple way to replace one digit by two digit using sed.
Example,
mydigit1918_2006_8_8_lag1.csv should be
mydigit1918_2006_08_08_lag01.csv.
I tried this way, but doesn't work.
echo mydigit1989_2006_8_8_lag1.csv|sed 's/]/0]/'
Thank you, (5 Replies)
Hello,
What's the best way to split a large into multiple files based on the last digit in the first column.
input file:
f
2738483300000x0y03772748378831x1y13478378358383x2y23743878383802x3y33787828282820x4y43748838383881x5y5
Desired Output:
f0
3738483300000x0y03787828282820x4y4
f1... (9 Replies)
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)
how can i list all files in my home directory that have a 4 digit id number, the line number where the id is located and the id itself not printing the entire line? (5 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 All,
I want to check load balance(or CPU utilzation) on server dynamically based on that value i want to perform some operation .
Means if load balance is <10 then start server .
Am using prstat -a 1
commadn it is listing CPU utilzation/load balancing dynamically ..
How to take this... (7 Replies)
Hello guys,
i have got a flat file and it has got balance amount value as one of its fields. my mission is to add the total of those balance values. i am getting that but the result is coming up in exponential form, which is not the right way. i want to see the sum as a normal decimal number but... (7 Replies)
sed -e '1d' -e 's/^\(]\{2\}\)-\(]\{3\}\)-\(]\{4\}\).*/"0000020\1\200\3"\,/g' abc.txt
This script returns many duplicates due to the duplciates in the .txt file.
i.e.
...
"000002012149000060",
"000002012149000064",
"000002012149000064",
"000002012149000064",
"000002012149000064",... (9 Replies)
Is there any program that can create 6 digit numbers with:
(DIGIT_1)+(DIGIT_2)+(DIGIT_3)+(DIGIT_4)+(DIGIT_5)+(DIGIT_6)=10
Any perl or C also can. Anyone can help me? Thank you (6 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)
Hi All,
I have a huge log file where user information such as name,address,point balance etc are stored.
I need to extract only point balance,first name,last name only.
How to achieve this, tried with awk and jq but could not get the result.
Log file
... (6 Replies)