An approximate translation, note I'm inferring/guessing a few things (such as that %all_calls contains a set of call records):

• The function get_abandonned takes one argument, I'm guessing this is some kind of identifier (DNIS = Dialed Number Identification Service?)
• It loops over the set of call records in %all_calls, skipping those whose key contains the string "duplicate", and selecting those where the "DNIS" item in the record matches the one given to the function as an argument and whose "SPEECH" value is zero and whose "TRANSFER" value is "hungup"
• For each of those records, it calls the function get_call_length, giving it the "TIME" item from the call record; if the value that the function returns is less than or equal to -29, increment the "total" counter by one.
• After having processed all the records, the function returns the "total" counter.

A note on the apparent data structure: %all_calls is a hash that contains a set of key/value pairs, where the keys sometimes contain the word "duplicate" (can't tell more than that from this code), and the values are arrays (arrayrefs to be more specific). I'm guessing that DNIS, SPEECH, etc. are integer constants are the indices of those arrays.

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.