09-10-2008
Thank you very much Ikon for this solution!
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi
If I want to read user input and want to validate if it is a numeric number in some range of 1-100 what would be the best way?
Sabina (5 Replies)
Discussion started by: sabina
5 Replies
2. Shell Programming and Scripting
Can we replace the contents the of the rows of file, from one position to another position by mentioning, some start position & the width? (4 Replies)
Discussion started by: videsh77
4 Replies
3. Shell Programming and Scripting
In a shell script, how I can achieve substitution of shell script var to a regular
expression, as shown below.
var=`head -1 file1`
awk '$0!~/$var/ {print $0}' file1 > file2
In the case above $var value literally considered for non-exists criteria. (3 Replies)
Discussion started by: videsh77
3 Replies
4. UNIX for Dummies Questions & Answers
Hello!
I've got txt-file containing lots of data in sentences like this:
;;BA;00:00:03:00;COM;CLOQUET-LAFOLLYE;SIMON;
but sometime more than on in a line like this:
;;BA;00:00:03:00;COM;CLOQUET-LAFOLLYE;SIMON;;;BA;00:00:03:00;REA;RTL9;;;;BAC;:00;TIT;SEMAINE SPECIALE ~SSLOGAN~T DVD;;
... (3 Replies)
Discussion started by: maco_home
3 Replies
5. Shell Programming and Scripting
hi friends
can any body tell me how can i find sqrt of a any given number without using expr in bash shell
while i am doing i got some errors please take a look
and code is here
x=$((( ( sqrt($1) ) | bc )))
echo $x
$ sh quadratic-eqn-roots.sh 9
quadratic-eqn-roots.sh: line 12: ( (... (6 Replies)
Discussion started by: srinivas2828
6 Replies
6. Shell Programming and Scripting
Hi all,
I want to cut a column which match the regular expression "beta", if I don't know the column number?
cat test
alpha;beta;gamma
11;22;33
44;55;66
77;88;99
should be
command ....
beta
22
55 (6 Replies)
Discussion started by: research3
6 Replies
7. Shell Programming and Scripting
I know I asked a similar question but I want to know if there is a regular expression existing that with a korn shell cmd, finds any timestamp data records in a file where it is greater then a timestamp in a shell variable ?
something like :
grep all records where it has a timestamp >... (5 Replies)
Discussion started by: Browser_ice
5 Replies
8. Shell Programming and Scripting
Hello,
I am new in perl and in regular exprecion; so I am looking for help (or an experienced advise.)
The target is a triming spaces from a string: i.e., remove spases from begining and from end of a string.
One of main point of a searched solution is performance: for current task it is... (2 Replies)
Discussion started by: alex_5161
2 Replies
9. Programming
Hi All,
I need your input on how to mask out / ignore a string that does not match a working regular expression (continually refining) pattern in Java. Below is the code snippet which is picking up all the lines with the correct regular expression string except one known so far:
public... (0 Replies)
Discussion started by: gjackson123
0 Replies
10. Shell Programming and Scripting
Hi All,
I have a file of decimal numbers,
cat file1.txt
1.1382666907
1.2603107334
1.6118799297
24.4995857056
494.7632588468
560.7633734425
.....
I want to see the output as only 7 digits after decimal (5 Replies)
Discussion started by: senayasma
5 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m10_001
CheckDigits::M10_001(3pm) User Contributed Perl Documentation CheckDigits::M10_001(3pm)
NAME
CheckDigits::M10_001 - compute check digits for Bahncard (DE), IMEI, IMEISV, ISIN, Miles&More, Payback (DE), Personnummer (SE), Passport
(BR), Credit Cards, SSN (US), Samordningsnummer (SE), VAT RN (ES), VAT RN (IT), VAT RN (SE), International Securities Identifikation Number
(ISIN)
SYNOPSIS
use Algorithm::CheckDigits;
$visa = CheckDigits('visa');
if ($visa->is_valid('4111 1111 1111 1111')) {
# do something
}
$cn = $visa->complete('4111 1111 1111 111');
# $cn = '4111 1111 1111 1111'
$cd = $visa->checkdigit('4111 1111 1111 1111');
# $cd = '7'
$bn = $visa->basenumber('4111 1111 1111 1111');
# $bn = '4111 1111 1111 111'
DESCRIPTION
ALGORITHM
1. Beginning right all numbers are weighted alternatively 1 and 2 (that is the check digit is weighted 1).
2. The total of the digits 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.
To validate the total of the digits of all numbers inclusive check digit taken modulo 10 must be 0.
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.
For IMEI, IMEISV: ETSI Technical Specification TS 100 508 (v6.2.0)
perl v5.10.0 2008-05-17 CheckDigits::M10_001(3pm)