通过使用DBI,用Perl可以很容易的连接到mysql数据库:
代码如下:
use DBI;
# Connect to target DB
my $dbh = DBI->connect(\"DBI:mysql:database=eygle;host=localhost\",\"username\",\"password\", {\'RaiseError\' => 1});
# Insert one row
my $rows = $dbh->do(\"INSERT INTO test (id, name) VALUES (1, \'eygle\')\");
# query
my $sqr = $dbh->prepare(\"SELECT name FROM test\");
$sqr->execute();
while(my $ref = $sqr->fetchrow_hashref()) {
print \"$ref->{\'name\'}n\";
}
$dbh->disconnect();
本文地址:https://www.stayed.cn/item/3649
转载请注明出处。
本站部分内容来源于网络,如侵犯到您的权益,请 联系我