perl连接mysql

perl连接mysql


#!/usr/bin/perl -w

# yum install perl perl-devel 
#             perl-Test-Simple.x86_64 
#             perl-Time-HiRes perl-ExtUtils-CBuilder 
#             perl-ExtUtils-MakeMaker 
#             perl-Digest perl-Digest-MD5 
#             perl-DBD-MySQL perl-DBI 
#             libaio libaio-devel libev 


use strict;
use DBI;

my $host = "10.0.0.11";         # 主机地址
my $port = "3306";              # 端口
my $driver = "mysql";           # 接口类型 默认为 localhost
my $database = "app01";         # 数据库

# 驱动程序对象的句柄
my $dsn = "DBI:$driver:database=$database:$host:$port";
my $userid = "root";            # 数据库用户名
my $password = "123";           # 数据库密码

# 连接数据库
my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;
my $sth = $dbh->prepare("SELECT * FROM t1;");   # 预处理 SQL 语句
$sth->execute();    # 执行 SQL 操作

# 注释这部分使用的是绑定值操作
# $alexa = 20;
# my $sth = $dbh->prepare("SELECT name, url
#                        FROM Websites
#                        WHERE alexa > ?");
# $sth->execute( $alexa ) or die $DBI::errstr;

# 循环输出所有数据
while ( my @row = $sth->fetchrow_array() )
{
       print join(' ', @row)."
";
}

$sth->finish();
$dbh->disconnect();