Wer kann mir weiterhelfen?
Wer kann mir bei meinem Perl-Problem weiterhelfen?
Ich habe mir die ähnlichen Beiträge schon angeschaut - aber keiner passt
Ich will mysql-select in einem "Untermodul" aufrufen.
Rufe ich den select im Hauptmodul auf klappt alles prima
Verwende ich das Umtermodul "sql_sub" bekomme ich folgenden Fehler:
Can't call method "prepare" on an undefined value at SQL_sub.pm
----------------------------------------------------------------
Es hängt an der DBI-Connect-Variablen (hier $dbh).
Ich kann diese Variable anscheinend nicht in meinem Untermodul erreichen.
Übergebe ich $dbh über Parameter, läuft alles perfekt aber es soll ohne Parameterübergabe laufen.
Haupt-Modul:
...
$dbh = DBI->connect("........
...
($idx, $valx) = sql_call();
------------------
package SQL_sub;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(sql_call);
$VERSION = 1.0;
sub sql_call {
$sth = $dbh->prepare(select * from table1 where idx = 100);
$rv = $sth->execute;
@arr = $sth->fetchrow_array;
$rc = $sth->finish;
return @arr; }
Gruss Holzpuppe
Wer kann mir bei meinem Perl-Problem weiterhelfen?
Ich habe mir die ähnlichen Beiträge schon angeschaut - aber keiner passt
Ich will mysql-select in einem "Untermodul" aufrufen.
Rufe ich den select im Hauptmodul auf klappt alles prima
Verwende ich das Umtermodul "sql_sub" bekomme ich folgenden Fehler:
Can't call method "prepare" on an undefined value at SQL_sub.pm
----------------------------------------------------------------
Es hängt an der DBI-Connect-Variablen (hier $dbh).
Ich kann diese Variable anscheinend nicht in meinem Untermodul erreichen.
Übergebe ich $dbh über Parameter, läuft alles perfekt aber es soll ohne Parameterübergabe laufen.
Haupt-Modul:
...
$dbh = DBI->connect("........
...
($idx, $valx) = sql_call();
------------------
package SQL_sub;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(sql_call);
$VERSION = 1.0;
sub sql_call {
$sth = $dbh->prepare(select * from table1 where idx = 100);
$rv = $sth->execute;
@arr = $sth->fetchrow_array;
$rc = $sth->finish;
return @arr; }
Gruss Holzpuppe