perl连接数据库的写法

来源:互联网 发布:java jdk1.8 32位 编辑:程序博客网 时间:2024/05/22 05:09
use DBI;my ($host, $user, $pwd, $db)=qw //;my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host","user","pwd");my $sth = $dbh->prepare("select * from tablename where var=?");my $value = $sth->fetchrow() if $sth->execute($tid);my $sth->finish();$dbh->disconnect();

原创粉丝点击