8 lines
250 B
Perl
8 lines
250 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();
|