【linux系统下载_学习_教程_编程_软件】提供全系列Linux发行版下载学习-Linux部落
当前位置: 主页 > Linux脚本编程 >

perl操作mysql数据库

时间:2017-09-12 15:57来源:原创 作者:admin 点击:
------分隔线----------------------------
perl连接mysql数据库脚本:

先安装DBI模块
cpan DBI

#!/usr/bin/perl
use DBI;
use strict;

my $dbhost = 'localhost';
my $dbuser = 'linuxzone';
my $dbpass = '123';
my $dbdatabase = 'test';

#与mysql建立连接
my $dbh = DBI->connect("DBI:mysql:database=$dbdatabase;host=$dbhost",$dbuser, $dbpass, {'RaiseError' => 1 });
   $dbh->do("SET NAMES 'utf8'");

#插入数据
#$dbh->do(qq{update epm set id=55 where name='aa'});

my $sth = $dbh->prepare("select * from epm");
$sth->execute();

#显示数据方法一
while (my @ary = $sth->fetchrow_array()) {
print "@ary\n";
}

#显示数据方法二
#while (my $ref = $sth->fetchrow_hashref()) {
#    print "Found a row: id = $ref->{'id'}, name = $ref->{'name'}\n";
#  }

#关闭连接
$sth->finish();
$dbh->disconnect();

本文地址:http://www.linuxzone.net/shell/186.html
------分隔线----------------------------
栏目列表