perl 操作mysql
use DBI;@driver_names = DBI->available_drivers;
#%drivers = DBI->installed_drivers;
print "@driver_names\n";
# print "%drivers";
$username = "root";
$password = "123";
$data_source = "dbi:mysql:mytest"; # 格式 dbi:$drivername:$dbname
local $dbh = DBI->connect( $data_source, $username, $password );
#query();
insert();
$dbh->disconnect();
sub query {
my $sth = $dbh->prepare("select * from address");
$sth->execute();
while ( $a = $sth->fetchrow_hashref ) {
#print "name:$a, email:$a\n";
print "name:$$a{name}, email:$$a{email}, date:$$a{d}\n";
}
}
sub insert{
my $sth =$dbh->prepare("insert into address(id,name,email,telephone,d) values(2,'zhang san','aa\@123.com','137',?) ");
$sth->execute('2010-11-11');
}
页:
[1]