use DBI; @driver_names = DBI->available_drivers; print "@driver_names\n"; $DSN="DBI:mysql:database=test"; my $dbi=DBI->connect($DSN,"","") or die "Can't connect\n"; my $sth=$dbi->prepare("SHOW DATABASES"); $sth->execute(); $databases=$sth->fetchall_arrayref; for(@$databases){print "@$_\n"} $sth->finish(); $dbi->disconnect; exit;
In reply to Re: perl + mysql
by chas
in thread perl + mysql
by rjsaulakh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |