Re^2: How to add minutes with seconds?


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re^2: How to add minutes with seconds?

by bioMan (Beadle)

on Mar 15, 2006 at 23:04 UTC ( [id://536983]=note: print w/replies, xml )

Need Help??

in reply to Re: How to add minutes with seconds?
in thread How to add minutes with seconds?

I believe you can further reduce the code to:

perl -e 'my @a = qw(1:08 2:53 1:00); foreach(@a){($min, $sec)=split /:
+/;$time+=(
+$min*60)+$sec}; print int($time/60).":".(sprintf "%.2d", $time%60)."\
+n"'
[download]

It only saves six keystrokes; however, I do love the economy of your code.

Mike

Comment on Re^2: How to add minutes with seconds? Download Code

Replies are listed 'Best First'.
Re^3: How to add minutes with seconds? by Anonymous Monk on Mar 15, 2006 at 23:15 UTC
`perl -e 'for (@ARGV) { /(d+):(\d+)/; $time += $1*60 + $2 } printf "%d:%.2d\n", $time/60, $time%60' 1:08 2:53 1:00`	[reply] [d/l]
Re^4: How to add minutes with seconds? by smokemachine (Hermit) on Mar 15, 2006 at 23:42 UTC
`perl -e '$_+=$a*60+$b while($a,$b)=split/:/,shift; printf"%d:%.2d\n",$ +_/60,$_%60' 1:08 2:53 1:00` [download]	[reply] [d/l]
Re^5: How to add minutes with seconds? by bioMan (Beadle) on Mar 16, 2006 at 21:18 UTC
LOL. I should have known better. This is what I get with a bunch of hackers who play golf with their programming language. If I wait long enough I'm sure someone will condense the code down to a single character. Mike	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://536983]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others lurking in the Monastery: (5)

As of 2024-04-25 14:32 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found