Lorenzo Caggioni wrote:
> Attached you can find the code an a input file to try it.
>
> I'm sorry if the code is not realy commented and if it is no real clear, but
> i have to delete some line because it is base on a database....
>
> Now the program can run without any DB.
> You can find even a profile for the program.
Others have mentioned optimizations but I noticed a few errors:
89 if ($InvalidReason eq undef)
You can not use the value undef in a comparison, that should be:
if ( ! defined $InvalidReason )
And:
311 @{$inputCDR_HASH{"0"}} = @{$xInputCDR} if $xInputCDR != undef;
@{$inputCDR_HASH{"0"}} = @{$xInputCDR} if defined $xInputCDR;
392 return $globalParameters{"GNV_INTERF_MODIFIER"}{"11"}{"NATTLG"} if
$xServiceCode = 9510;
393 return $globalParameters{"GNV_INTERF_MODIFIER"}{"10"}{"INTTLG"} if
$xServiceCode = 9520;
If you had warnings enabled then perl would have warned you that you are doing
an asignment instead of a comparison. You should have these two lines at the
beginning of your program:
use warnings;
use strict;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
