hi everybody,
i have a file, in it I need to extract some data that follows a particular pattern..
For example: my file contains like
now running Speak225
sep 22 mon 16:34:05 2008
--------------------------------
... (4 Replies)
Hi All,
I have a requirement where I have to search the file with some text say "Exception". This exception word can be repeated for more then 10 times.
Suppose the "Exception" word is repeated at line numbers say x=10, 50, 60, 120. Now I want to extract all the lines starting from x-5 to... (3 Replies)
I had an immediate work to sort out the error code and error message which are associated within the log. But here im facing an problem to extract 3 different fields from the XML log can some one please help. I tried using different script including awk & nawk, but not getting the desired output.
... (18 Replies)
Hi Freinds,
I have a file1.txt in the following format
File1.txt
I want to get 2 files from the above file filextra.txt should have the lines which are ending with "<" and remaining lines in the filecompare.txt file.
Please help. (3 Replies)
Hey all,
i´ve got the following problem:
i´m aquiring data with an instrument and i get data in a .txt file.
This is how the txt file looks like:
Report of AU program poptau
F1P=-49.986ppm F2P=-110.014ppm
Target directory for serfile: D:/data/Spect500/nmr/Thoma/882
Linear... (17 Replies)
Hi
I am writing a shell script to parse a CSV file , in which i am facing a problem to separate the columns . Could some one help me with it.
IN301330/00001 pvavan kumar limited xyz@ttccpp.com
IN302148/00002 PRECIOUS SECURITIES (P) LTD viash@yahoo.co.in
IN300239/00000 CENTRE india... (8 Replies)
Hi ,
I have a situation where I need to search an xml file for the presence of a tag
<FollowOnFrom> and also , presence of partial part of the following tag <ContractRequest _LoadId and if these 2 exist ,then
extract the value from the following tag <_LocalId> which is
"CW2094139". There... (2 Replies)
Hi All,
I have a data file and need to extract and convert it into csv format:
1) Read and extract the line containing string ending with "----" (file sample_linebyline.txt file) and to make a .csv file from this.
2) To read the flat file flatfile_sample.txt which consists of similar data (... (9 Replies)
Discussion started by: abhi_123
9 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m10_009
CheckDigits::M10_009(3pm) User Contributed Perl Documentation CheckDigits::M10_009(3pm)NAME
CheckDigits::M10_009 - compute check digits for Betriebsnummer (DE)
SYNOPSIS
use Algorithm::CheckDigits;
$betrnr = CheckDigits('betriebsnummer');
if ($betrnr->is_valid('73282932000074')) {
# do something
}
$cn = $betrnr->complete('7328293200007');
# $cn = '73282932000074'
$cd = $betrnr->checkdigit('73282932000074');
# $cd = '4'
$bn = $betrnr->basenumber('73282932000074');
# $bn = '7328293200007'
DESCRIPTION
ALGORITHM
1. Beginning left all numbers are weighted alternatively 1 and 2.
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 taken modulo 10.
HINT: The last digit of the 'Betriebsnummer' may be the check digit or the last digit of the sum of the constant 5 and 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 '' 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.dsi.cnrs.fr/bureau_qualite/admindonnees/documents/siren.pdf
perl v5.10.0 2008-05-17 CheckDigits::M10_009(3pm)