[PERL] Errore su chiamata a funzione disconnect() accedendo a MySQL

[grabro]

mi da questo errore da quando ho cambiato server
Can't call method "disconnect" on an undefined value at

ho installato tutte le librerie ma da sempre questo errore oppure
"prepare" nel file functions_mysql.cgi valore non definito ma non so come correggere è uno script che ho da molti anni
ed è sempre andato bene nonostante i cambi di server

queste le parti incriminate

sub click_connect {
$dbh->disconnect();
my ($database, $host, $username, $password) = @_;
$dbh = DBI->connect("DBI:mysql:$database:$host", "$username", "$password");
die ("database connect failed") unless $dbh;
}
###############################################

###############################################
sub disconnect {
#$sth->finish();
$dbh->disconnect();
undef $sth;
}

sub mySQL {
my ($statement) = @_;
my $sth = $dbh->prepare($statement);
$sth->execute || die "Bad statement ($statement) $DBI::errstr";
return $sth;
}

qualcuno è esperto di perl?

[saintex]

ciao,
mi mancano le chiamate alle funzioni,
ma da quello che vedo, qui:

sub click_connect {
    $dbh->disconnect();
...
}

$dbh->disconnect();
sta effettuando una disconessione a una connessione a db mai creata.
Dovrebbe bastare commentarla:

#$dbh->disconnect();

mi da questo errore da quando ho cambiato server
Can't call method "disconnect" on an undefined value at

ho installato tutte le librerie ma da sempre questo errore oppure
"prepare" nel file functions_mysql.cgi valore non definito ma non so come correggere è uno script che ho da molti anni
ed è sempre andato bene nonostante i cambi di server

queste le parti incriminate

sub click_connect {
$dbh->disconnect();
my ($database, $host, $username, $password) = @_;
$dbh = DBI->connect("DBI:mysql:$database:$host", "$username", "$password");
die ("database connect failed") unless $dbh;
}
###############################################

###############################################
sub disconnect {
#$sth->finish();
$dbh->disconnect();
undef $sth;
}

sub mySQL {
my ($statement) = @_;
my $sth = $dbh->prepare($statement);
$sth->execute || die "Bad statement ($statement) $DBI::errstr";
return $sth;
}

qualcuno è esperto di perl?

[grabro]

sub mySQL {
my ($statement) = @_;
my $sth = $dbh->prepare($statement);
$sth->execute || die "Bad statement ($statement) $DBI::errstr";
return $sth;
}

ciao,
mi mancano le chiamate alle funzioni,
ma da quello che vedo, qui:

sub click_connect {
    $dbh->disconnect();
...
}

$dbh->disconnect();
sta effettuando una disconessione a una connessione a db mai creata.
Dovrebbe bastare commentarla:

#$dbh->disconnect();

[grabro]

nel caso eliminassero l'allegato il file è qui

https://mega.nz/file/bFcziCxa#HUi4RR...yCRQdagOKpLcEQ

[saintex]

Il problema è che all'interno delle funzioni non ti vede il

my $dbh

della linea 14.

Non ho idea come sia strutturato l'applicativo, ma ipotizzando che si tratti di un package utilizzato da vari file:

1. decommenta pure il commento che ti ho fatto mettere alla linea 23;
2. prova a sostituire il

   my $dbh

   della linea 14 con un

   our $dbh

3. in generale fino alla linea 20 (quindi nel codice non compreso all'interno delle funzioni) prova a sostituire il

   my

   con

   our

   Quindi:
   

    our $path

   our $file_ext

[saintex]

risolto?

Il problema è che all'interno delle funzioni non ti vede il

my $dbh

della linea 14.

Non ho idea come sia strutturato l'applicativo, ma ipotizzando che si tratti di un package utilizzato da vari file:

1. decommenta pure il commento che ti ho fatto mettere alla linea 23;
2. prova a sostituire il

   my $dbh

   della linea 14 con un

   our $dbh

3. in generale fino alla linea 20 (quindi nel codice non compreso all'interno delle funzioni) prova a sostituire il

   my

   con

   our

   Quindi:
   

    our $path

   our $file_ext