Error : Use of uninitialized value in string at perl25.plx

[pnsreee]

Hi All,

I have the following code.

The array @sub_data will contain integers or a string"NO". I have to validate if the array contain integer. If it contain "NO" then no need to validate.

for ($i=1;$i<10;$i+ +)
{
Tie::CheckVaria bles->on_error(sub{p rint "ERROR!"});
tie my $data,'Tie::Che ckVariables','i nteger';
$data = $sub_data[$i];

if ("$data" ne "NO") {

if (($data < $firstVar) || ($data > $secVar))
{
#print " the subscriber $subph dosnot have valid data field $sub_fld .\n";
$erracur = 1;
}

} else {
print "NO";
}
}


I am getting following error.

Use of uninitialized value in string at perl25.plx line 269.
Use of uninitialized value in numeric lt (<) at perl25.plx line 273.
Use of uninitialized value in string at perl25.plx line 269.
Use of uninitialized value in numeric lt (<) at perl25.plx line 273.
ERROR!ERROR!



If any thing wrong please let me Know.


Regards
Naveen

[KevinADC]

those are warnings, not errors. The problem is probably in here:

$data = $sub_data[$i];
 
if ("$data" ne "NO") {
 
if (($data < $firstVar) || ($data > $secVar))

$data must not be getting defined which means $sub_data[$i] must not be defined. Print $data to the screen as the script runs to check its value. Did you get Tie::CheckVaria bles working?

[pnsreee]

those are warnings, not errors. The problem is probably in here:

$data = $sub_data[$i];
 
if ("$data" ne "NO") {
 
if (($data < $firstVar) || ($data > $secVar))

$data must not be getting defined which means $sub_data[$i] must not be defined. Print $data to the screen as the script runs to check its value. Did you get Tie::CheckVaria bles working?

Hi kevin,

I got working Tie::CheckVaria bles .

The array @sub_data have to empty fields.So I got that warning message.

Now i solved It.
Thanks for your help.

Regards
Naveen