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[1], email:$a[2]\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');

}