03-29-2009
Thanks Rikxik! I guess that's gonna work! I am trying to write a logical if else statement in Perl to use the 'ceil' and 'floor' functions , but my novice programming skills is hampering the progress!
This is what i am trying to accomplish , if the value of a variable $nSlice is a number greater than .5 (ex : 23.5 or 16.8 or 17.9 etc), ceil that number,else floor that number. Any suggestions or help would be appreciated. Thanks again!
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello,
I searched a lot on this Forum.
Please help me with the below problem.
I want to divide two numbers and the result should be the next nearest whole number.
E.G. Dividing 10.8/5 ideally gives 2.16. But the result should be 3 i.e. rounded off to the next whole number.
Any help will... (2 Replies)
Discussion started by: damansingh
2 Replies
2. Shell Programming and Scripting
Hi Experts,
I have a command that gives me the output as below
root@ckpgpay11core> cat sara | awk '{ sum += $1} ; END { print sum }' | awk {'print $1/90'}
8.88889
how do i remove the decimal spaces so that the figure will round itself to 9?
Thanks. (3 Replies)
Discussion started by: aismann
3 Replies
3. Shell Programming and Scripting
Hi,
I am trying to find if there is a way to convert regular decimal values to Paced decimal values. I tried to find a c program but I could get a Packed converted to regular decimal not the other way round.
If not unix please let me know if any other progrimming language I can use to do... (2 Replies)
Discussion started by: mgirinath
2 Replies
4. Shell Programming and Scripting
Is there a way I can round time in perl to the nearest five minutes?
For example if I have log giving the following time stamps
23,52,30 it would rounded up to 23,55,00
and
23,50,01 would be rounded to 23,50,00 (3 Replies)
Discussion started by: borderblaster
3 Replies
5. Shell Programming and Scripting
It seems that perl sprintf uses the round-to-even method:
foreach my $i ( 0.5, 1.5, 2.5, 3.5 ) {
printf "$i -> %.0f\n", $i;
}
__END__
0.5 -> 0
1.5 -> 2
2.5 -> 2
3.5 -> 4
4.5 -> 4
Where we probably wants to use round-half-up, i.e. output should be as below:
0.5 -> 1
1.5 -> 2... (8 Replies)
Discussion started by: ganapati
8 Replies
6. Shell Programming and Scripting
Hello Guys,
I'm very new on here and require some help matching up and printing some columns using awk.
I have two text files. The first file has Longitude data in column 1 (lon.txt) and the second one (node.txt) has again another Longitude data in column 1 (not exact as the first one) + in... (7 Replies)
Discussion started by: ian_gooch
7 Replies
7. Shell Programming and Scripting
Dear Experts,
I'm trying to find a way to round a number but in this way:
14367.577 ---> 14000
I used the following to round the number to the closer integer:
echo $var|awk '{print int($1+0.5)}'
and also:
xargs printf "%1.0f"
However, they don't work for my above... (9 Replies)
Discussion started by: Gery
9 Replies
8. UNIX for Dummies Questions & Answers
Hi all of you,
Would be great if you help me with how to round up to whole number from my input values like
2.99996,2.17890,3.00002,-2.3456,-2.7890
o/p should be like 3,2,3,-2,-3
thnks in adv!!!!
regards (3 Replies)
Discussion started by: Indra2011
3 Replies
9. Shell Programming and Scripting
I have a number, which I want to convert into the nearest floating number upto two places after the decimal point.
E.g.
1.2346 will become 1.23
but
1.2356 will become 1.24 .
Similarly
0.009 will be 0.01
and
0.001 will be 0.00 or 0.0 (not 0, wnat to keep the decimal... (1 Reply)
Discussion started by: hbar
1 Replies
10. Shell Programming and Scripting
Heyas
Trying to calculate the total size of a file by reading its bitrate.
Code snippet:
fs_expected() { #
# Returns the expected filesize in bytes
#
pr_str() {
ff=$(cat $TMP.info)
d="${ff#*bitrate: }"
echo "${d%%,*}" | $AWK '{print $1}' | head -n 1
}
t_BYTERATE=$((... (9 Replies)
Discussion started by: sea
9 Replies
LEARN ABOUT DEBIAN
format::human::bytes
Format::Human::Bytes(3pm) User Contributed Perl Documentation Format::Human::Bytes(3pm)
NAME
Format::Human::Bytes - Format a bytecount and make it human readable
VERSION
Version 0.05
SYNOPSIS
Ever showed 12345678 bytes to the user instead of just saying 11MB? This module returns you a printable string which is more readable by
humans than a simple bytecount.
use Format::Human::Bytes;
$readable = Format::Human::Bytes::base2($bytecount[,$decimals]);
$readable = Format::Human::Bytes::base10($bytecount[,$decimals]);
$readable = Format::Human::Bytes->base2($bytecount[,$decimals]);
$readable = Format::Human::Bytes->base10($bytecount[,$decimals]);
my $fhb = Format::Human::Bytes->new();
$readable = $fhb->base2($bytecount[,$decimals]);
$readable = $fhb->base10($bytecount[,$decimals]);
All functions do "intelligent" switching to the next unit, for example:
1000 => 1000B
[...]
8000 => 8000B
9000 => 9kB
The difference between 1000 bytes and 1500 bytes is usually bigger (for example because of a slow link) than between 95kB and 95,5kB. The
same applies to 8000kB vs. 9 MB and for the other units.
Depending on your usage, you may want to specify how many decimals should be shown (defaults to no decimals).
FUNCTIONS
/ METHODS
new
my $fhb = Format::Human::Bytes->new();
Creates and returns a Format::Human::Bytes - object.
base2
Callable as a function:
$readable = Format::Human::Bytes::base2($bytecount[,$decimals]);
Callable as a class method:
$readable = Format::Human::Bytes->base2($bytecount[,$decimals]);
Callable as a object method:
$readable = $fhb->base2($bytecount[,$decimals]);
Returns the correct readable form of the given bytecount.
Correct in this case means that 1kB are 1024 Bytes which is how computers see the world.
If you specify a decimal parameter, the result number will have the number of decimal numbers you specified.
base10
Callable as a function:
$readable = Format::Human::Bytes::base10($bytecount[,$decimals]);
Callable as a class method:
$readable = Format::Human::Bytes->base10($bytecount[,$decimals]);
Callable as a object method:
$readable = $fhb->base10($bytecount[,$decimals]);
Returns the incorrect readable form of the given bytecount.
Incorrect in this case means that 1kB is 1000 Bytes and 1 MB is 1000000 bytes which is how some (many) people see the world, but it's wrong
for computers.
If you specify a decimal parameter, the result number will have the number of decimal numbers you specified.
AUTHOR
Sebastian Willing, "<sewi at cpan.org>"
BUGS
Please report any bugs or feature requests to "bug-format-human-bytes at rt.cpan.org", or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Format-Human-Bytes>. I will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Format::Human::Bytes
You can also look for information at:
o RT: CPAN's request tracker
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Format-Human-Bytes>
o AnnoCPAN: Annotated CPAN documentation
<http://annocpan.org/dist/Format-Human-Bytes>
o CPAN Ratings
<http://cpanratings.perl.org/d/Format-Human-Bytes>
o Search CPAN
<http://search.cpan.org/dist/Format-Human-Bytes/>
HISTORY
The functions are in use since late 2003 or early 2004 but I didn't pack them for CPAN before 2009.
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5 itself.
perl v5.10.1 2010-04-08 Format::Human::Bytes(3pm)