[Perl/DBI] error bij disconnect

[urk_forever]

Ik heb het volgende geprogt in Perl:

code:

#!/usr/bin/perl -w

use Mysql;
# use strict;

$database = "test";
$wachtwoord = "";
$gebruiker = "test";

$dbh = Mysql->connect($gebruiker, $wachtwoord, $database) or die "Can't connect!!\n";
$dbh->disconnect;

print "Klaar!\n";

Als ik dit uitvoer krijg ik de volgende foutmelding:

DBI->disconnect is not a DBI method. Read the DBI manual. at test.pl line 14

Snap er niks van! Wie kan me helpen?? Heb al gegoogled en ook UTFS!!

[Verwijderd]

Doe wat er staat zou ik zeggen Lees de DBI manual Vast wel te vinden op CPAN.

[urk_forever]

Verwijderd schreef op 14 oktober 2002 @ 17:19:
Doe wat er staat zou ik zeggen Lees de DBI manual Vast wel te vinden op CPAN.

ik heb je advies ter harte genomen en ben nog eens goed gaan zoeken op CPAN waar ik het volgende tegen kwam:

code:

 #!/usr/bin/perl
  use strict;
  use DBI();
  # Connect to the database.
  my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost",
                         "joe", "joe's password",
                         {'RaiseError' => 1});
  # Drop table 'foo'. This may fail, if 'foo' doesn't exist.
  # Thus we put an eval around it.
  eval { $dbh->do("DROP TABLE foo") };
  print "Dropping foo failed: $@\n" if $@;
  # Create a new table 'foo'. This must not fail, thus we don't
  # catch errors.
  $dbh->do("CREATE TABLE foo (id INTEGER, name VARCHAR(20))");
  # INSERT some data into 'foo'. We are using $dbh->quote() for
  # quoting the name.
  $dbh->do("INSERT INTO foo VALUES (1, " . $dbh->quote("Tim") . ")");
  # Same thing, but using placeholders
  $dbh->do("INSERT INTO foo VALUES (?, ?)", undef, 2, "Jochen");
  # Now retrieve data from the table.
  my $sth = $dbh->prepare("SELECT * FROM foo");
  $sth->execute();
  while (my $ref = $sth->fetchrow_hashref()) {
    print "Found a row: id = $ref->{'id'}, name = $ref->{'name'}\n";
  }
  $sth->finish();
  # Disconnect from the database.
  $dbh->disconnect();

Dit werkt goed, hier kan ik verder mee, thnx!

[RvdH]

Verduidelijking: Je deed $dbh->disconnect; terwijl je $dbh->disconnect(); moest doen

[Verwijderd]

Precies. Ik had hem ook gezien, want die fout maak ik zelf ook regelmatig =)

[tomato]

Dat is niet waar, je kunt hier net zo goed $dbh->disconnect; gebruiken, net als bij alle subs.

De oorzaak lag denk ik in de Mysql->connect(), die zo te zien geen object teruggeeft met een diconnect method.
Waarom dat zo is begrijp ik eigenlijk ook niet goed, ik zou verwachten dat Mysql een subclass van DBI is, maar ik heb nog nooit met DBI gewerkt, dus verder zie ik er niet zo veel in.