Hello again all...

I was trying to add some times up, and well doing it manually was a bit of a pain. I started writing a script and that is when things went badly for me. I can get the raw numbers (with decimals which I don't want). However, I can't get it to do hours, minutes, and seconds in that order.

use strict;
use warnings;

use List::Util qw(sum);

my @times = qw(5:21 8:01 5:37 7:19 5:46 7:44 6:43 7:17 8:02 6:50 7:54 
+8:44);
# @times are minutes and seconds.

my @times_in_seconds;
for my $time (@times) {
  my @individual_time = split(':',$time);
  my $seconds = ($individual_time[0] * 60) + $individual_time[1];
  push @times_in_seconds,$seconds;
}

my $total_time_in_seconds = sum(@times_in_seconds);
my $total_time_in_minutes = $total_time_in_seconds/60;
my $total_time_in_hours = $total_time_in_minutes/60;

[download]

I was talking to someone on IRC who gave me the following, however, I can't for the life of me figure out how it works even after looking at the docs for the module.

use Date::Manip;

my $t = Date::Manip::Delta->new;

for (@times) {
  $t = $t->calc($t->new_delta($_));
}

print $t->printf("%hyh:%02mmm:%02sss\n");

[download]

I am very confused. I have never written code that looks like that. It is the -> and the printf (which has never made sense to me) that have me stumped. I haven't written a from scratch script for several months so forgive me if I missed the obvious.

Have a nice day!
Lady Aleena

In reply to Getting times (weeks, days, hours, minutes, seconds) by Lady_Aleena

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.