新金沙3777

代码如下

一月 27th, 2020  |  未分类

以后很多统计数据可以直接通过Perl写入Mysql数据库,操作起来方便多了。

1.下载DBI包: wget
2 解压
tar xzf DBI-1.620.tar.gz 3…

use DBI;

    1. 同上
      在进行第三步是可能会出现mysql_config找不到的情况,应该是没有安装开发工具包
      sudo apt-get install libmysqld-dev
      sudo apt-get install libmysqlclient-dev
      来安装这两个包。
      其余同上。
      完成安装后就可以利用perl脚本进行mysql数据的操作了。
      编写perl脚本操作数据库

# Connect to target DB my $dbh =
DBI->connect(“DBI:mysql:database=eygle;host=localhost”,”username”,”password”,
{‘RaiseError’ => 1});

#! /usr/bin/perl
use DBI;
my $driver=”DBI:mysql”;
my $database=”perl_test”;
my $user=”root”;
my $host=”localhost”;
my $passwd=”root”;
my $rules=”alert_rules”;
my $dbh =
DBI->connect(“$driver:database=$database;host=$host;user=$user;password=$passwd”)
or die “Can’t connect: ” . DBI->errstr;
my $sth=$dbh->prepare(“select app_name,receivers from $rules “);
$sth->execute() or die “Can’t prepare sql statement”.
$sth->errstr;
my $sth=$dbh->prepare(“select app_name,receivers from $rules “);
$sth->execute() or die “Can’t prepare sql statement”.
$sth->errstr;
# 打印获取的数据
while(@recs=$sth->fetchrow_array){
print $recs[0].”:”.$recs[1].”n”;
}
$sth->finish();
$dbh->disconnect();

# Insert one row my $rows = $dbh->do(“INSERT INTO test VALUES ;

代码如下。复制代码 代码如下:

复制代码 代码如下:[root@eygle ~]# perl
test.cgi eygle

DBI安装:DBI详细信息参考:
1.下载DBI包: wget

2 解压
tar xzf DBI-1.620.tar.gz
3 进入解压包内,
perl Makefile.PL
4 make test
5 make
6 make install (如果不是root用户,要sudo一下)
DBD安装:
新金沙3777 ,1.下载DBD
wget

代码如下: 复制代码 代码如下:#十大正规网赌网址 ,!/bin/perl

while(my $ref = $sqr->fetchrow_hashref { print “$ref->{‘name’}n”;
}

通过使用DBI,用Perl可以很容易的连接到mysql数据库:

执行结果:

# query my $sqr = $dbh->prepare(“SELECT name FROM test”);
$sqr->execute();

$dbh->disconnect();

相关文章

Your Comments

近期评论

    分类目录

    • 没有分类目录

    功能


    网站地图xml地图