Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: rounding time in perl
Top Forums Shell Programming and Scripting rounding time in perl Post 302394475 by hojung-yoon on Thursday 11th of February 2010 01:10:59 PM
Old 02-11-2010
Code:
use 5.010;

use warnings;
use strict;

sub round_by_five {
    my ($hour, $min, $sec) = @_;

    my $tot = $min * 60 + $sec;
    my $rem = $tot % 300;

    my $new_min = $rem >= 150 ? ($tot+300-$rem)/60 : ($tot-$rem)/60 ;

    return $new_min == 60
        ? ($hour+1, 0, 0)
        : ($hour, $new_min, 0)
        ;
}

say join ",", round_by_five(23, 52, 30);
say join ",", round_by_five(23, 50, 01);
say join ",", round_by_five( 7, 59, 59);
say join ",", round_by_five( 7,  1, 30);

Also note that 0-prefixed numbers are octal(8-based).
So 08 is wrong number that it will emit an error.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Rounding off using BC.

Hello again. I'm trying to use BC to calculate some numbers in a shell script. I want to have the numbers rounded off to 1 decimal place. for example: initsize=1566720 zipsize=4733 I'm trying to get the ratio between them. the equation is: (($initsize-$zipsize)/$initsize)*100 so... (3 Replies)
Discussion started by: noodlesoup
3 Replies

2. UNIX for Dummies Questions & Answers

Rounding problem

Hi, Can any one help me in finding a solution for rounding off to 2 decimal places. I am using the following code: VAR1=.01292105263157894736 VAR2=`echo "scale=2; $VAR1 * 100" | bc -l` The result I 'm getting is 1.29210526315789473600 But I need the output as 1.29 Thanks Shash (2 Replies)
Discussion started by: shash
2 Replies

3. Shell Programming and Scripting

Rounding off decimals to the nearest number in PERL

Hi Guys, I am generating a statistical report , below is the snippet of the code : Now, $nSlices stands for the time duration,meaning,the statistics will be displayed for that particular time duration. Trouble is, for certain values of $totalTime (which is the end time - start time ), i... (9 Replies)
Discussion started by: rdlover
9 Replies

4. Linux

Rounding Script Help

I need some help with my rouding script. I have started pretty much from scratch and have no idea if its correct or even close but I have been trying and have gotten to this point. i keep getting syntax errors and im not sure what is wrong. Here is what I got let value=$1; while do let... (0 Replies)
Discussion started by: kingrj46
0 Replies

5. Shell Programming and Scripting

PERL - rounding fractional number

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

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

7. Shell Programming and Scripting

Rounding number, but....

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. Shell Programming and Scripting

Help required between "wall time" and Elapsed time in perl.

Hi, I have having a great confusion in under standing the below terms. a) "wall time" (time according the the clock on the wall vs. cpu time spent executing it) what exactly it means? For example: wall time cpu time line:text 4.22404 24.186 if(some junk condition) ... (1 Reply)
Discussion started by: vanitham
1 Replies

9. Shell Programming and Scripting

printf (awk,perl,shell) float rounding issue

Hi guys, could someone throw some light on the following behaviour of printf (I'll start with info about the system and the tool/shell/interpreter versions)?: $ uname -a Linux linux-86if.site 3.1.0-1.2-desktop #1 SMP PREEMPT Thu Nov 3 14:45:45 UTC 2011 (187dde0) x86_64 x86_64 x86_64... (9 Replies)
Discussion started by: elixir_sinari
9 Replies

10. UNIX for Dummies Questions & Answers

Rounding off a decimal

How to round off a decimal number to higher whole number using ceil command in unix? Eg. 4.41 or 4.11 or 4.51 should be rounded off to 5. (11 Replies)
Discussion started by: SanjayKumar28
11 Replies

LEARN ABOUT REDHAT

tk_getjoinstyle

Tk_GetJoinStyle(3)					       Tk Library Procedures						Tk_GetJoinStyle(3)

__________________________________________________________________________________________________________________________________________________

NAME

       Tk_GetJoinStyle, Tk_NameOfJoinStyle - translate between strings and join styles

SYNOPSIS

       #include <tk.h>

       int
       Tk_GetJoinStyle(interp, string, joinPtr)

       const char *
       Tk_NameOfJoinStyle(join)

ARGUMENTS

       Tcl_Interp *interp (in)		 Interpreter to use for error reporting.

       const char *string (in)		 String containing name of join style: one of "bevel", "miter", or "round".

       int *joinPtr (out)		 Pointer to location in which to store X join style corresponding to string.

       int join (in)			 Join style: one of JoinBevel, JoinMiter, JoinRound.
_________________________________________________________________

DESCRIPTION

       Tk_GetJoinStyle places in *joinPtr the X join style corresponding to string, which will be one of JoinBevel, JoinMiter, or JoinRound.  Join
       styles are typically used in X graphics contexts to indicate how adjacent line segments should be joined together.  See the X documentation
       for information on what each style implies.

       Under  normal circumstances the return value is TCL_OK and interp is unused.  If string does not contain a valid join style or an abbrevia-
       tion of one of these names, then an error message is stored in interp->result, TCL_ERROR is returned, and *joinPtr is unmodified.

       Tk_NameOfJoinStyle is the logical inverse of Tk_GetJoinStyle.  Given a join style such  as  JoinBevel  it  returns  a  statically-allocated
       string corresponding to join.  If join is not a legal join style, then "unknown join style" is returned.

KEYWORDS

       bevel, join style, miter, round

Tk																Tk_GetJoinStyle(3)
All times are GMT -4. The time now is 03:49 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy