Shell Programming and Scripting

Hi

i have the following code:
if(($line!=1) and (@field[0]!='\$')){
print ( "\nTRY TO CONNECT TO DATABASE................\n");

my $dbh = DBI->connect($dsn, $user, $pass);
print ("CONNECTED TO DATABASE\n");

eval
{
print("PERFORM THE SELECT COMMAND\n");
#my $sql = qq{ SELECT * FROM cc_test_cases};
my $sql= qq{select test_case_id, test_case_category, service_desc from cc_test_cases where sncode=$sncode AND zncode=$zncode AND zpcode
=$zpcode};

my $sth = $dbh->prepare( $sql );
$sth->execute( );
};

if ($@) {
print "An error occurred ($@), continuing\n";
next;
}




while(@row = $sth->fetchrow_array()) {
print("MATCH FOUND!\n");
print "$row[0]: $row[1]: $row[2]\n";
push (@field, $row[0].$row[1]);
push (@field,$row[2].'$');
..................................
................................

My rpoblem is that when i am tryying to run this code i get the following error:

Can't call method "fetchrow_array" without a package or object reference at program line 186, <MYFILE> line 3


If i remove the eval command the program works fine.
Any idea why this happens??

Thank you.

You are declaring a "my" variable $sth inside the eval scope. Those variables cannot be accessed outside of the scope (basically, curly braces, or in the absence of those, the file) they are declared in. If you take out the eval, the fetchvalue is in the same scope as the my declaration.

If you add use strict; use warnings; to the beginning of your script, you get more and better diagnostics for mistakes like this (but the strict pragma also forces you to write more disciplined code, for worse or, mostly, better).