algorithm::checkdigits::m07_001(3pm) [debian man page]
CheckDigits::M07_001(3pm) User Contributed Perl Documentation CheckDigits::M07_001(3pm)NAME
CheckDigits::M07_001 - compute check digits modulo 7 method 1
SYNOPSIS
use Algorithm::CheckDigits;
$m001 = CheckDigits('m001');
if ($m001->is_valid('1234567892')) {
# do something
}
$cn = $m001->complete('123456789'); # $cn = '1234567892'
$cd = $m001->checkdigit('1234567892'); # $cd = '2'
$bn = $m001->basenumber('1234567892'); # $bn = '123456789'
DESCRIPTION
ALGORITHM
1. All digits are added.
2. All digits at even positions are added.
3. The sum of step 1 and 2 is taken modulo 7.
4. This is the check digit.
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 undef if $number does not consist solely of digits.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return undef otherwise.
checkdigit($number)
Returns the check digit belonging to $number or undef if $number does not consist solely of digits.
EXPORT
None by default.
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
SEE ALSO
perl, www.pruefziffernberechnung.de.
perl v5.10.0 2008-05-17 CheckDigits::M07_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)
Hi There!
My final task for today is to delete lines starting with certain numbers
for e.g., my text block is
and i want to delete all lines starting with 11 or 17 or 21
I know i can use multiple sed commands like
sed '/^11,/d' <filename>
sed '/^17,/d' <filename>
sed '/^21,/d'... (2 Replies)
Hi There!
I have the following block of text in my input file
and in order to parse it correctly, i need to have
i.e. If a line starts with a number, ignore it else replace it with the number from the previous line until the first ','
So, for example,
15,9:5/12345
,10:1
... (5 Replies)
How could I check if a numeric variable has 5 digits in KSH...I have a zipcode variable that I know will always be 5 digits, and I want to print out an error if it is less or more than 5 digits the problem is that I have it as:
if ]
but this won't work because the statement doesn't see 0001 as... (3 Replies)
I have got a file that contains both single and double digits like this
10 3 48 39 20 6 8
and i want to add zeros in front of every single digit to become double digits like this
10 03 48 39 20 06 08
I tried using Sed
sed 's/\(\)/0&/g' filename
or
sed 's/\(\)*/0&/g' filename
but i... (3 Replies)
Hi Folks
Probably an easy one here but how do I get a sequence to get used as mentioned. For example in the following I want to automatically create files that have a 2 digit number at the end of their names:
m@pyhead:~$ for x in $(seq 00 10); do touch file_$x; done
m@pyhead:~$ ls file*... (2 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)
i am having the input file as
below
123456789: xxxxx12xxxxxxxxxxxxxxxxxx a_cnt
123456789: xxxxxxxxxxxxxxxxxxxxxxx a_cnt
123456789: a_cnt xxxxaq1wsxxxxxxxxxxxx12xxxxxxxxxx
123456789: xxxxxxxxxxxxasxxxx a_cnt
i need the numbers in the backets of a_cnt
O/p required as below
1
2
3
4... (2 Replies)
Hi All,
I am having an abc.txt , which contains some digits
Eg:abc.txt
145
566
355
I want write shellscript in suchway that if any digit is greter than 1000 then it shuld display " text files contain digit, which is greater than 1000"
Please help me to do so
Thanks.. (8 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)
Hi ,
I do have a fixedwidth flatfile that has data for 10 different datasets each identified by the first two digits in the flatfile.
01 in the first two digit position refers to Set A
02 in the first two digit position refers to Set B and so on
I want to genrate 10 different files from my... (6 Replies)
Dear All,
I have a string "1234567899*0#123456789#", it can be divided into:
- 1st: 1234567899 Validation: 10 digits, only 0-9
- 2nd: *0# Fixed Value
- 3rd: 123456789 Validation: 9 digits, only 0-9
- 4th: # Fixed Value
Would like to know if any 1 line statement perl,... (5 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)