algorithm::checkdigits::m11_016(3pm) [debian man page]
CheckDigits::M11_016(3pm) User Contributed Perl Documentation CheckDigits::M11_016(3pm)NAME
CheckDigits::M11_016 - compute check digits vor VAT Registration Number (PL)
SYNOPSIS
use Algorithm::CheckDigits;
$ustid = CheckDigits('ustid_pl');
if ($ustid->is_valid('13669598')) {
# do something
}
$cn = $ustid->complete('1366959');
# $cn = '13669598'
$cd = $ustid->checkdigit('13669598');
# $cd = '8'
$bn = $ustid->basenumber('13669598');
# $bn = '1366959';
DESCRIPTION
ALGORITHM
1. Beginning left every digit is weighted with 7,9,10,5,8,4,2.
2. The weighted digits are added.
3. The sum from step 2 is taken modulo 11.
4. The checkdigit is 11 minus the sum from step 3. Is the difference 10, the number won't be taken. If the difference is 11, the
checkdigit is 0.
METHODS
is_valid($number)
Returns true only if $number consists solely of numbers and hyphens and the two digits in the middle are valid check digits according
to the algorithm given above.
Returns false otherwise,
complete($number)
The check digit for $number is computed and inserted into the middle of $number.
Returns the complete number with check digit or '' if $number does not consist solely of digits, hyphens and spaces.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return '' otherwise.
checkdigit($number)
Returns the check digits of $number if $number has valid check digits.
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::M11_016(3pm)
Check Out this Related Man Page
CheckDigits::M11_008(3pm) User Contributed Perl Documentation CheckDigits::M11_008(3pm)NAME
CheckDigits::M11_008 - compute check digits for VAT Registration Number (DK)
SYNOPSIS
use Algorithm::CheckDigits;
$ustid = CheckDigits('ustid_dk');
if ($ustid->is_valid('13585628')) {
# do something
}
$cn = $ustid->complete('1358562');
# $cn = '13585628'
$cd = $ustid->checkdigit('13585628');
# $cd = '8'
$bn = $ustid->basenumber('13585628');
# $bn = '1358562';
DESCRIPTION
ALGORITHM
1. Beginning left every digit is weighted with 2, 7, 6, 5, 4, 3, 2, 1
2. The weighted digits are added.
3. The sum from step 2 is taken modulo 11.
4. The number is valid if the sum from step 3 is zero(0).
METHODS
is_valid($number)
Returns true only if $number consists solely of numbers and hyphens and the two digits in the middle are valid check digits according
to the algorithm given above.
Returns false otherwise,
complete($number)
The check digit for $number is computed and inserted into the middle of $number.
Returns the complete number with check digit or '' if $number does not consist solely of digits, hyphens and spaces.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return '' otherwise.
checkdigit($number)
Returns '' if $number is valid.
Return undef 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::M11_008(3pm)
How is it possible under UNIX to restrain the number of digits of the PID number?
For instance, we have a product that generates a PID of 7 digits, and we would like to have only 6 digits maximum instead for the PID.
Thank you for your help. (1 Reply)
i have a variable 200612
the last two digits of this variable should be between 1 and 12, it should not be greater than 12 or less than 1 (for ex: 00 or 13,14,15 is not accepted)
how do i check for this conditions in a unix shell script.
thanks
Ram (3 Replies)
Hello! I have content in a log file that consists of a lot of spaces before and after a 3 digit integer which I need to strip out before I can use the file. The number of digits can change. When I had my logic in a 'for' loop and could output into another file, it was fine. but it turns out... (10 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 there!
I'm trying to validate a simple 6 digits number with reg expr. I ONLY want 6 digits so when i type 7 digits the script should no validate the number.
I've write this code:
#!/usr/bin/perl
while(<STDIN>){
if($_=~/\d{6}/){
print "Bingo!\n";
... (2 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)
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)
HI all,
I have output of something like this:
crab: ExitCodes Summary
>>>>>>>>> 12 Jobs with Wrapper Exit Code : 50117
List of jobs: 1-12
See https:///twiki/something/ for Exit Code meaning
crab: ExitCodes Summary
>>>>>>>>> 5 Jobs with Wrapper Exit Code : 8001
List of... (20 Replies)
Hello,
I would like to control and check the right parameters
$1 must have 4 alphabetics digits among eora qora pora fora
$2 must have 2 numerics digits 00 to 11
$3 must have 2 numerics digits 00 to 59
$4 must have 10 characters alpha numerics as 2013-02-26
For example :
In case 5) if i... (1 Reply)
Hello,
I would like to control and check the right parameters
$1 must have 4 alphabetics digits among eora qora pora fora
$2 must have 2 numerics digits 00 to 11
$3 must have 2 numerics digits 00 to 59
$4 must have 10 characters alpha numerics as 2013-02-26
For example :
In case 5) if i... (15 Replies)
I have an index file.txt and it consists of pdf files. I have to check the file exist based on A(it follows 8 digits) or B (it follows 9 digits).Please help with Linux Shell Scripting. I had tried below code but it shows an error.
... (0 Replies)