You didn't say what part of it your team is having difficulty understanding, so here's a basic rundown of what is going on:

sub get_abandonned($) {                                # Subroutine de
+finition.
  my $dnis = shift;                                    # $dnis will ho
+ld
                                                       # the parameter
+.

  my $total = 0;                                       # $total holds 
+0.

  for my $key(keys %all_calls) {                       # There is a ha
+sh named
                                                       # %all_calls.  
+Iterate
                                                       # over the keys
+ of the
                                                       # hash and assi
+gn each
                                                       # key to $key o
+n its
                                                       # respective it
+eration.

    next if ($key =~ /duplicate/);                     # Proceed to ne
+xt
                                                       # iteration if 
+the
                                                       # current key c
+ontains
                                                       # the text 'dup
+licate'.

    if(                                                # If all of the
                                                       # following are
+ true:
         $all_calls{$key}->[DNIS] eq $dnis
      && $all_calls{$key}->[SPEECH] == 0
      && $all_calls{$key}->[TRANSFER] eq "hungup"
    ) {                                                # then do the f
+ollowing:

      my $time_length                                  # Give a value 
+to
                                                       # time_length,
        = &get_call_length($all_calls{$key}->[TIME]);  # from this fun
+ction
                                                       # call.

      if($time_length <= -29) {                        # Now if this i
+s true...
        $total++;                                      # increment $to
+tal.
      }
    }
  }                                                    # Move on to ne
+xt key.
  return $total;                                       # return the $t
+otal.
}

[download]

Dave

In reply to Re: Help with Perl Script by davido
in thread Help with Perl Script by hunt1218

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.