perl DBI 使用一例

发布时间:2020-07-26编辑:脚本学堂
perl DBI模块 使用一例,具体看代码。

perl DBI模块 使用一例,具体看代码。

复制代码 代码如下:
#!/usr/bin/perl
use strict;
use DBI;
my $user="root";
my $passwd="123456";
my $host="192.168.10.239";
my $dbtest1="test";
my $data_source_test1="DBI:mysql:database=$dbtest1;host=$host";
my $dbh=DBI->connect($data_source_test1,$user,$passwd,{'RaiseError'=>1});
my $sql=qq/select s1 from t1/;
my $sth=$dbh->prepare($sql) ;
$sth->execute();
$sth->dump_results();
$sth->finish();
$dbh->disconnect();