I have a perl script that reports the avg time of a application call and the total number of calls. This works fine, however I would like to trim the number of decimal places reported from 12 to like 3 and I don't know how.
Any suggestions? Here is what I use to get the avg time...
for $eRef (... (2 Replies)
I'm using shell scripts to run some commands for the Configuration Management tool called Telelogic Synergy.
I need to get the script to compare version numbers of files. The version numbers of the files are part of the actual filename, such as the following example:
example_file-1... (7 Replies)
i have a script in which awk prints "($2-1700)/10000"
and the answer is -0.07,but i want the answer in 4 decimal places.
that is -0.0700.
How can i sue awk to get my results in four decimal places (4 Replies)
I am trying to perform arithmetric, for example, to increment the value of variable $a (say 3) by 0.05 but when I tried the following expression
let a=a+0.05
or a=$((a+0.05))
both returned
3.0499999999999998
I want to keep 2 decimal places so it returns 3.05 instead. (6 Replies)
Please help me in rounding up value upto 2 decimal palces using sed command
#!/usr/bin/bash
a=15.42
b=13.33
c=`echo $a*$b |bc -l`
echo $c
above code is is giving output "205.5486" but i want the output as "205.55"
Thank you... (15 Replies)
I have input file like below,
201424|9999|OSS|622010|RGT|00378228764
201424|8888|OM|587079|RGT|00284329675
201424|7777|OM|587076|RGT|00128671024
201424|6666|OM|581528|RGT|00113552084
Output should be like below, should add decimal (.) from last 4 digits.
... (2 Replies)
I used the below script to Sum up a field in a file based on some unique values. But the problem is when it is summing up the units, it is truncating to 2 decimals and not 6 decimals as in the input file (Input file has the units with up to 6 Decimals – Sample data below, when the units in the 2... (4 Replies)
Hi guys...
I am loving this integer maths thing.
64 bit systems are certainly easier than 32 bit, but hey, I don't intend to leave out my fav' platform.
Using one of the 'Brothers' methods, URL inside the code.
#!/bin/sh
#
# #!/usr/local/bin/dash
# e_constant.sh
# Brother's formula .
#... (2 Replies)
Discussion started by: wisecracker
2 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m11_017
CheckDigits::M11_017(3pm) User Contributed Perl Documentation CheckDigits::M11_017(3pm)NAME
CheckDigits::M11_017 - compute check digits for EC-No, EINECS, ELINCS
SYNOPSIS
use Algorithm::CheckDigits;
$ecno = CheckDigits('ecno');
if ($ecno->is_valid('200-236-6')) {
# do something
}
$cn = $ecno->complete('200-236-');
# $cn = '200-236-6'
$cd = $ecno->checkdigit('200-236-6');
# $cd = '6'
$bn = $ecno->basenumber('200-236-6');
# $bn = '200-236-'
DESCRIPTION
ALGORITHM
1. From left to right all digits are multiplied with their position in the sequence.
2. The sum of all products is computed.
3. The sum of step 2 is taken modulo 11.
The checkdigit is the last digit of the result.
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, http://en.wikipedia.org/wiki/EC-No.
perl v5.10.0 2008-05-17 CheckDigits::M11_017(3pm)