Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^3: functions and arguments

by jrtayloriv (Pilgrim)
on Feb 18, 2008 at 21:11 UTC ( #668662=note: print w/replies, xml ) Need Help??


in reply to Re^2: functions and arguments
in thread functions and arguments

Global symbol "$dbh" requires explicit package name at comb1.pl line 1 +3. Global symbol "$dbh" requires explicit package name at comb1.pl line 1 +4. Global symbol "@row" requires explicit package name at comb1.pl line 1 +6. Global symbol "$values" requires explicit package name at comb1.pl lin +e 18. Global symbol "@row" requires explicit package name at comb1.pl line 1 +8. Global symbol "@row" requires explicit package name at comb1.pl line 1 +9.

These are telling you you need to use my and declare these things...

For instance:

$dbh = DBI -> connect("DBI:Oracle:".$var1,$var2,$var3) || die ("not connected:DBI::errstr");

should be

my $dbh = DBI -> connect("DBI:Oracle:".$var1,$var2,$var3) || die ("not connected:DBI::errstr");


And what are you doing with this?:
while(@row=$sth->fetchrow_array()) #Fetch the number of rows { #returned by the query $values=$row[0]; print "@row\n"; }

I'm not too familiar w/ DBI, but it looks to me like are storing each row of the query results into @row , then storing first element of @row (which needs to be declared w/ my first) into $values (which also needs a my), but are not using $values for anything. Why did you do this?

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://668662]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2020-12-01 06:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?