18 lines
574 B
Perl
18 lines
574 B
Perl
use DBI;
|
|
$dbh=DBI->connect(qq(DBI:mysql:database=sample_db;user=root;password=)) or die "Can't connect";
|
|
$namestring=qq(O'C);
|
|
$namestring=$dbi->quote($string);
|
|
print $namestring;
|
|
$sth=$dbi->prepare("SELECT * FROM Employee WHERE name=$namestring") or die "Can't prepare sql statement" . DBI->errstr;
|
|
$sth->execute();
|
|
|
|
while(my @val = $sth->fetchrow_array()){
|
|
print "id=$val[0]\n";
|
|
print "name=$val[1]\n";
|
|
print "name=$val[2]\n";
|
|
print "name=$val[3]\n";
|
|
print "start_date=$val[4]\n\n";
|
|
}
|
|
|
|
$sth->finish();
|
|
$dbh->disconnect(); |