[rlug] perl + mysql

[Remus Anca]

am urmatoarea secventa de cod, in care, pina nu am definit procedura
EndRec, a mers OK.

 $dbsrs->finish il apelam la sfirsitul programului,
 ca si exit($dbsrs->disconnect)

 daca pun secventa asta intr-o procedura, zice "can't locate object
 method 'finish' (perhaps you forgot to load 'DBI::db')

 dar eu folosesc DBD::mysql care are si ea metoda finish ...


#!/usr/bin/perl -w
use DBD::mysql;
$srs="reccentru"; $dest="contcentru";
$hostname="localhost"; $user="**"; $password="***";

sub EndRec {
       print @_;
       $dbsrs->finish; $dbdest->finish;
       if ( $errmsg[0] == 0 ){
               exit($dbsrs->disconnect&&$dbdest->disconnect);
       }
}

# CONECTARE la DB
 $dbsrs= DBI->connect("DBI:mysql:$srs:$hostname",$user, $password) or die "EROARE: 
conectare imposibila la $dbsrs ($hostname) $!\n";
 $dbdest= DBI->connect("DBI:mysql:$dest:$hostname",$user, $password) or die "EROARE: 
conectare imposibila la $dbdest ($hostname) $!\n";

 $q = $dbsrs->prepare("SELECT idfil,cod,filiala FROM fil"); $q->execute;
 print "\tVerificare tabele:\n";
 $list[0]="fatal error!!!\n";
 if ($q->rows!=1){
        $list[1]="arhiva contine mai multe filiale!!!\n";
        &EndRec('0',@list);
 }


--- 
Detalii despre listele noastre de mail: http://www.lug.ro/