10 lines
253 B
Perl
10 lines
253 B
Perl
use DBI;
|
|
$db=DBI->connect('DBI:mysql:sample_db;user=root;password=');
|
|
|
|
$sth=$db->prepare("SELECT * FROM employee") or die "Can't prepare sql statement" . DBI->errstr;
|
|
$sth->execute();
|
|
$sth->dump_results();
|
|
|
|
$sth->finish();
|
|
$dbh->disconnect();
|