Traditionally, the way is to convert your minutes and seconds into seconds, then add the seconds, and then convert it back. This is easy if you use split to split the number into the "minutes" and "seconds" part, the rest then is simple application of multiplication, addition and division. So, what code have you written already?

ok thanks for your easy way corion, i planned to do using Time::Piece module.

Hi gube, as Corion suggested you can do it simply without using module. Here is my try, but it can be still simplified.

use strict;

my @a = qw(1:08 2:53 1:00);

my ($tt, $mins, $sec);

for my $t (@a)
{
    my ($m, $s) = split /:/, $t;
    
    my $tm = $m*60;
    
    $tt = $tt + $tm + $s;      

}
$sec = sprintf ("%02d", $sec = $tt%60); #seconds

$mins = int($tt/60); #minutes

print "$mins:$sec";
[download]

• time calculation
• Add time

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

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

perl -e 'for (@ARGV) { /(d+):(\d+)/; $time += $1*60 + $2 } printf "%d:%.2d\n", $time/60, $time%60' 1:08 2:53 1:00