08-11-2005
excellent. I appreciate the quick reply!
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi guys,
I have a text file report generated from egrepping multiple files.
The text files themselves are obtianed after many succesive refinements, so they contain already the desired number, but this is surrounded by unwanted characters, newlines, spaces, it is not always at the start of the... (6 Replies)
Discussion started by: netfreighter
6 Replies
2. Shell Programming and Scripting
My input file:
<accession>Q91G55</accession>
<name>043L_IIV6</name>
<protein>
<recommendedName>
<location>
<position position="294"/>
</location>
<fullName>Uncharacterized protein 043L</fullName>
<accession>P18556</accession>
<name>1106L_ASFB7</name>
<protein>
<recommendedName>... (5 Replies)
Discussion started by: patrick87
5 Replies
3. UNIX for Advanced & Expert Users
Hello,
I need to construct a pattern to match the below string (especially the timestamp at the beginning)
20101222100436_temp.dat
The below pattern works _temp.dat
However I am trying find if there are any other better representations.
I tried {14}, but it did not work.
I am on... (5 Replies)
Discussion started by: krishmaths
5 Replies
4. Shell Programming and Scripting
hi all, im having problems. I need to change all number 10 in a text file to word form, or in short from 10->ten. the thing is number 10 including in dates such as 10/22/1997 or 03-10-2011 should not be changed. im having some trouble because the file contains numbers like "price range from... (11 Replies)
Discussion started by: perlishell
11 Replies
5. Shell Programming and Scripting
Hi,
I just need to check whether number of digits in a phone number is 10 or not. If I am not wrong regex will be: {9}
I have to use this inside nawk as this is a small portion of a big program.
nawk '
BEGIN { RS="";FS=";";
regex="{9}";
}
{
for (i=1;i<=NF;i++) {
if... (6 Replies)
Discussion started by: shekhar2010us
6 Replies
6. Shell Programming and Scripting
i need to search for a pattern from a big file and print everything expect the next 6 lines from where the pattern match was made. (8 Replies)
Discussion started by: chidori
8 Replies
7. UNIX for Dummies Questions & Answers
Hi experts , im new to Unix,AWK ,and im just not able to get this right.
I need to match for some patterns if it matches I need to print the next few words to it.. I have only three such conditions to match… But I need to print only those words that comes after satisfying the first condition..... (2 Replies)
Discussion started by: 100bees
2 Replies
8. Shell Programming and Scripting
Im using the command below , but thats not the output that i want. it only prints the odd and even numbers.
awk '{if(NR%2){print $0 > "1"}else{print $0 > "2"}}'
Im hoping for something like this
file1:
Text hi this is just a test
text1 text2 text3 text4 text5 text6
Text hi... (2 Replies)
Discussion started by: invinzin21
2 Replies
9. Shell Programming and Scripting
Hello Experts , require help . See below output:
File inputs
------------------------------------------
Server Host = mike
id rl images allocated last updated density
vimages expiration last read <------- STATUS ------->... (4 Replies)
Discussion started by: tigerhills
4 Replies
10. UNIX for Dummies Questions & Answers
Trying to find out how to discover if the first 2 characters of a string are "22"
Not sure how.
I could use
if ]; then echo "yes";fi
But I think that will only grab the pattern 22 and not the first 2 digits. (5 Replies)
Discussion started by: newbie2010
5 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m11_011
CheckDigits::M11_011(3pm) User Contributed Perl Documentation CheckDigits::M11_011(3pm)
NAME
CheckDigits::M11_011 - compute check digits for VAT Registration Number (NL)
SYNOPSIS
use Algorithm::CheckDigits;
$ustid = CheckDigits('ustid_nl');
if ($ustid->is_valid('123456782')) {
# do something
}
if ($ustid->is_valid('123456782B04')) {
# do something
}
$cn = $ustid->complete('12345678');
# $cn = '123456782'
$cn = $ustid->complete('12345678.B04');
# $cn = '123456782B04'
$cd = $ustid->checkdigit('123456782');
# $cd = '2'
$cd = $ustid->checkdigit('123456782B04');
# $cd = '2'
$bn = $ustid->basenumber('123456782');
# $bn = '12345678';
$bn = $ustid->basenumber('123456782B04');
# $bn = '12345678.B04';
DESCRIPTION
This VATRN has 12 "digits", the third last must be a B, the fourth last is the checkdigit. I don't know anything about the meaning of the
last two digits.
You may use the whole VATRN or only the first eight digits to compute the checkdigit with this module.
ALGORITHM
1. Beginning right with the digit before the checkdigit all digits are weighted with their position. I.e. the digit before the checkdigit
is multiplied with 2, the next with 3 and so on.
2. The weighted digits are added.
3. The sum from step 2 is taken modulo 11.
4. If the sum from step 3 is 10, the number is discarded.
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.
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de,
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
COPYRIGHT AND LICENSE
Copyright 2004,2005 by Mathias Weidner
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.0 2008-05-17 CheckDigits::M11_011(3pm)