hi all i want to read xml file in perl i am using XML::Simple for this. i am not getting how to read following file
removing xml file due to some reason (1 Reply)
I am very new to XML. Really I have an excel file that I am trying to read w/ Perl on a Linux machine. I don't have a mod for reading excel files so I have to convert the excel file to xml to be able to read it. I can read the file and everything is ok except...the Number style is being dropped... (0 Replies)
Hello
I want to write an xml- parser with perl an i use the libary XML::LibXML.
I have a problem with the command getElementsByTagName.
If there is an empty tag, the getElementsByTagName method returns a NodeList of length zero.
how can i check if this is a nodelist of lenght zero??
i... (1 Reply)
Hello.
Can anybody help me with some sub on perl that can parse config like this:
%CFG (
'databases' => {
'db1' => 'db_11', 'db_12', 'db_13',
'db2' => 'db_21', 'db_22', 'db_23'
}
'datafiles' => {
'datadir1' => 'datadir_11', 'datadir_12',
'datadir2' =>... (4 Replies)
Hello,
What's the best way to split a large into multiple files based on the last digit in the first column.
input file:
f
2738483300000x0y03772748378831x1y13478378358383x2y23743878383802x3y33787828282820x4y43748838383881x5y5
Desired Output:
f0
3738483300000x0y03787828282820x4y4
f1... (9 Replies)
Q: Where to get a 64 bit Expat.so?
I run a perl script and got this error:
Can't load '/usr/perl5/vendor_perl/5.8.4/i86pc-solaris-64int/auto/XML/Parser/Expat/Expat.so' for module XML:parser::Expat: ld.so.1:myPerl: fatal:... (0 Replies)
Dear Perl Experts,
Could some body help me to find the solution for my problem below:
Input file:
-----------
THE-0 tsjp
THE-32 tsjp
THE-64 tsjp
Output desired:
---------------
THE-0&&-31 tsjp
THE-32&&-63 tsjp
THE-64&&-95 tsjp
Note:
31 = 0+31, (2 Replies)
The below perl code imports the data in the attached document. However, I can not seem to update the perl code to include a parser like in the desired tab of that document. Thank you :).
Most of the data for the parse is included in the document except for the gene and RNA which can is... (0 Replies)
Like I have below string
XX_49154534_491553_201_122023_D
XX_49159042_491738_201_103901_D
and the expected output would be
0154534
0159042
XX and 49 can be dynamic. (1 Reply)
Discussion started by: nadeemrafikhan
1 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m10_010
CheckDigits::M10_010(3pm) User Contributed Perl Documentation CheckDigits::M10_010(3pm)NAME
CheckDigits::M10_010 - compute check digits for Postscheckkonti (CH)
SYNOPSIS
use Algorithm::CheckDigits;
$pck = CheckDigits('postcheckkonti');
if ($pck->is_valid('85-12345678-7')) {
# do something
}
$cn = $pck->complete('85-12345678');
# $cn = '85-12345678-7'
$cd = $pck->checkdigit('85-12345678-7');
# $cd = '7'
$bn = $pck->basenumber('85-12345678-7');
# $bn = '85-12345678'
DESCRIPTION
ALGORITHM
1. The sequence of digits is processed left to right. For the first digit we assume a carry forward of 0.
2. For each digit d(i) the carry forward cf(i) is the digit at the the position p in the sequence ( 0, 9, 4, 6, 8, 2, 7, 1, 3, 5 ), where
p is (d(i) + cf(i-1)) modulo 10.
3. The check digit is the difference of the sum from step 3 to the next multiple of 10.
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::M10_010(3pm)
03-07-2017
.