Use of uninitialized value-- Error

[Waghmare, Satish (IE03x)]

Hello Friend,

 

I am using Active Perl 5.8. I am facing one problem with my PERL script.

 

Following is the error I'm getting when I ran my Perl script which makes use of hash tables.

 

 

Use of uninitialized value at updatesalesmaster.pl line 655, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 682, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 685, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 685, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 685, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 685, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 685, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 685, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 685, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 685, <FILE> chunk 1282.
Use of uninitialized value at updatesalesmaster.pl line 693, <FILE> chunk 1282.

 

 

 

Code Snippet in the script:-

Here i'm making use of hash tables to get the value using key.

$pcode   = $ytdsapprod{$region.$arr[$lprdcode]};
$lcode   = $ytdsaplocn{$region.$arr[$lloccode]};
$descode = $ytdsapdest{$region.$arr[$ldescode]};

 

 

 

These are lines which referred in error:-

 

line no.  Code on that Line

655        if($descode !~ /#N\/A/ && $arr[$dvcode] !~ /#N\/A/ &&

 

682        if(exists $mkt_do{$descode}) {

 

685        print DOERR join(' ',$descode,$mkt{$descode},$pcode ,$arr[$pname],
                               $mkt_dist{$descode},$district{$mkt_dist{$descode}}),"\n";

 

693        if(exists $district{$mkt_dist{$descode}} && $arr[$dvcode] !~ /NA/) {

 

 

Please help in resolving this Error so that I can run the script successfully.

Thanks in advance

Regards

Satish

 

_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs