Re^2: 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]