On 8/27/07, Mihir Kamdar <[EMAIL PROTECTED]> wrote:
> > Not a one.  Can you provide some test data?
> >
> Sure Chas...
>
> Following is some sample records:-
snip

Seems to be working for me (with substr  $cdr[3], 0, $len;).  I get the output

the rate for +126312437 is 0.3: 3.795
the rate for +1235111519 is 0.3: 1.665
+60135768776 does not have a rate
+60199479787 does not have a rate
the rate for +4429253850 is 0.7: 0.21
+0168445479 does not have a rate
+0129253850 does not have a rate
+60199479787 does not have a rate

This makes sense since the only valid keys are +44, +1234, +12, and
+134.  There are no matches that start with +6 or +0 so they do not
get a rate.  You will need to add keys to %prefix_to_rate if you wish
to be able to handle them.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to