14 lines
496 B
Perl
14 lines
496 B
Perl
|
#!\usr\bin\perl
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use DBI;
|
||
|
|
my ($dbh, $sth, $name, $id);
|
||
|
|
$dbh=DBI->connect('dbi:mysql:test','root','password') || die "Error opening database: $DBI::errstr\n";
|
||
|
|
$sth=$dbh->prepare("SELECT * from employee;") || die "Prepare failed: $DBI::errstr\n";
|
||
|
|
$sth->execute() || die "Couldn't execute query: $DBI::errstr\n";
|
||
|
|
while (( $id, $name) = $sth ->fetchrow_array) {
|
||
|
|
print "$name has ID $id\n";
|
||
|
|
}
|
||
|
|
$sth->finish();
|
||
|
|
$dbh->disconnect || die "Failed to disconnect\n";
|