LinuxSir.cn,穿越时空的Linuxsir!

 找回密码
 注册
搜索
热搜: shell linux mysql
查看: 1310|回复: 3

请教一个问题

[复制链接]
发表于 2004-3-5 17:21:15 | 显示全部楼层 |阅读模式
perl怎么访问数据库呀?Thanks
发表于 2004-3-5 18:08:01 | 显示全部楼层
用perl访问mysql数据库(转帖) <====================

用perl访问mysql数据库
作者:nighthawk

一. 安装DBI模块

步骤1:

从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件:
Readme
DBI.ppd
DBI.tar.gz

步骤2:

在DOS窗口下,temp目录中运行下面的DOS命令:
ppm install DBI.ppd

如果提示无效命令,可在perl/bin目录下运行

二. 安装DBD-Mysql模块

从软件下载中下载DBD-Mysql.zip,安装方法同一.

三. 准备数据库

启动mysql,首先创建一个数据库mydata,然后创建一个表address

mysql> create database mydata;
Query OK, 1 row affected (0.00 sec)

mysql> use mydata;
Database changed
mysql> create table address (
-> id int(5) not null,
-> name varchar(40) not null,
-> email varchar(50) not null,
-> telephone int(12) null);
Query OK, 0 rows affected (0.05 sec)

输入些数据:

mysql> insert into address values (
-> 1,’Nighthawk’,’nighthawk@163.net’,92384092);
Query OK, 1 row affected (0.00 sec)
四. 下面用perl程序来插入若干记录并做查询.

use DBI;

#连接数据库mydata
my $dbh = DBI->connect(’DBI:mysql:mydata’) or die "无法连接数据库: " . DBI->errstr;

print "插入若干记录n";
my $sth = $dbh->prepare(q{
INSERT INTO address (id, name,email,telephone) VALUES (?, ?, ?, ?)
}) });

print "输入记录,回车结束:";
while ($inputdata =<>) {
chop $inputdata;
last unless($inputdata);
my ($id, $name,$email, $tel) = split( /,/, $inputdata);
$sth->execute($id, $name, $email,$tel)
}
# $dbh->commit;

print "下面根据输入的名字打印出EMAIL地址和电话n";
my $sth = $dbh->prepare(’SELECT * FROM address WHERE name=?’)
or die $dbh->errstr;
print "请输入姓名,回车结束:";
while ($inputname =<>) {
my @data;
chomp $inputname;
last unless($inputname);
$sth->execute($inputname) or die "错误: " . $sth->errstr;
while (@data = $sth->fetchrow_array()) {
print "Emaildata[2]t Telephonedata[3]n";
}
}
#断开连接
$dbh->disconnect;



Nighthawk 版权所有,转载请保留署名


用perl访问mysql数据库<===========================

一. 安装DBI模块


步骤1:


从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件:

Readme

DBI.ppd

DBI.tar.gz


步骤2:


在DOS窗口下,temp目录中运行下面的DOS命令:

ppm install DBI.ppd


如果提示无效命令,可在perl/bin目录下运行


二. 安装DBD-Mysql模块


从软件下载中下载DBD-Mysql.zip,安装方法同一.


三. 准备数据库


启动mysql,首先创建一个数据库mydata,然后创建一个表address


mysql> create database mydata;

Query OK, 1 row affected (0.00 sec)


mysql> use mydata;

Database changed

mysql> create table address (

-> id int(5) not null,

-> name varchar(40) not null,

-> email varchar(50) not null,

-> telephone int(12) null);

Query OK, 0 rows affected (0.05 sec)


输入些数据:


mysql> insert into address values (

-> 1,’Nighthawk’,’nighthawk@163.net’,92384092);

Query OK, 1 row affected (0.00 sec)



perl连接access数据库<==========================
2000/10/13 10:14 作者:nighthawk  



前题是必须安装好activeperl (505以上),以及MS Access 97

一. 安装Win32-ODBC模块
步骤1:
从TOOLS栏目中下载Win32-ODBC.zip,下载完后用winzip解开到一个temp目录,共有三个文件:
Readme
Win32-ODBC.ppd
Win32-ODBC.tar.gz
步骤2:
在DOS窗口下,temp目录中运行下面的DOS命令:
ppm install Win32-ODBC.ppd

二. 准备测试用数据库(ACCESS)
步骤1:
启动MS ACCESS,建立一个新空数据库,命名为odbctest.mdb,保存在某一目录中(记住路径)。
步骤2:
然后新建一个表,建立三个字段:
字段名称 数据类型
Name 字符,长度50
Email 字符,长度50
Age 数字,长整型

将这个表保存为address(注意这个例子中,没有用自动增加的ID).输入若干记录:
Nighthawk nighthawk@163.net 20 1234567
John jt@163.net 24 0284393293
kit kit@21cn.com 18 3948932

保存后,关闭数据库文件。
步骤3:
打开控制面板中的 ODBC数据源(32位),在用户DSN栏中,找到用户数据源列表,选中名称为“MS Access 97 Database”的一行,然后按“配置”键。
在Database框中按"Select..",选择步骤1.2中建立的数据库文件odbctest.mdb,按OK即可。ODBC设置中的其它项目全部采用缺省设置,然后就是OK,确定,关闭对话窗口。

三. 这时候,数据库已经可以用了,我们来测试一下:

#!/usr/bin/perl

use Win32::ODBC;

$DSN = "MS Access 97 Database";
$DBase = "access.mdb";

#连接数据库

if (!($db = new Win32::ODBC($DSN))){
print "连接数据库失败.n";
exit();
}
else{
print "连接数据库成功 (连接号:", $db->Connection(), ")nn";
}

#数据库中的表
print "数据库中的表:";
@tables = $db->TableList;
print @tables;
print "n";

#选择数据表
if (! $db->Sql("SELECT * FROM [address] WHERE age>=20") ){

@FieldNames = $db->FieldNames();

$Cols = $#FieldNames + 1;

#表中字段数
print "表address字段数Colsn";

#字段列表
for ($i = 0; $i < $Cols; $i++){
print "$FieldNames[$i]t";
}
print "n";

#列出年龄大于20的记录
while($db->FetchRow()) {
@values = $db->Data();
print @values;
print "n";
}

}

##### sql #########
#添加记录
$sqlinsert = "INSERT INTO address VALUES ('Euler', 'euler@21cn.com', 28, '021-345689')";
#更新记录
$sqlupdate = "UPDATE address SET age = age+10 ";
#删除记录
$sqldelete = "DELETE FROM address WHERE name='jimtyan'";

$rc = $db->Sql($sqlinsert);
die qq(SQL 失败 "$sqlinsert": ), $db->Error(), qq(n) if $rc;

$rc = $db->Sql($sqlupdate);
die qq(SQL 失败 "$sqlupdate": ), $db->Error(), qq(n) if $rc;

$rc = $db->Sql($sqldelete);
die qq(SQL 失败 "$sqldelete": ), $db->Error(), qq(n) if $rc;

#关闭链接
$db->Close();

进一步学习请访问Win32-ODBC模块作者主页:http://www.roth.net/perl/odbc/
Nighthawk 版权所有,转载请保留署名


全部转自CU!!
发表于 2004-3-5 22:11:44 | 显示全部楼层
我想补充一下,:)
有一个纯Perl的连接MySQL数据库的组件,你可以放置到你的WEB目录中作为连接数据库之用,当然也可以安装以后使用,性能稍逊于DBI
windows的Activeperl5.8下载:
http://ppm.activestate.com/PPMPa ... ndows/Net-MySQL.zip
Linux可以到CPAN上去找吧:)

下载了看里面的安装说明
我举一个列子:

#!/usr/bin/perl
  use Net::MySQL;
  my $mysql = Net::MySQL->new(
      hostname => 'localhost',   # Default use UNIX socket
      database => 'mytest',
      user     => 'root',
      password => ''
  );
  
  # Drop table 'foo'. This may fail, if 'foo' doesn't exist.
  # Thus we put an eval around it.
  eval { $mysql->query(q{
          DROP TABLE foo
  })};
  print "Dropping foo failed: $@\n" if $@;
  
  # Create a new table 'foo'. This must not fail, thus we don't
  # catch errors.
  $mysql->query(q{
      CREATE TABLE foo (username VARCHAR(20), password VARCHAR(20))
  });
  
  # INSERT example
  $mysql->query(q{
      INSERT INTO foo (username, password) VALUES ('alchemy', 'World')
  });
  printf "Affected row: %d\n", $mysql->get_affected_rows_length;
  
  # SLECT example
  $mysql->query(q{SELECT * FROM foo});
  my $record_set = $mysql->create_record_iterator;
  while (my $record = $record_set->each) {
      printf "First column: %s Next column: %s\n",
          $record->[0], $record->[1];
  }
  $mysql->close;
发表于 2004-3-5 22:17:24 | 显示全部楼层
另外还有一个模块叫Mysql,可以用来连接mSQL和mysql的,性能我没有测试过,下面发一个文档中的大纲 :)

use Msql;
  $dbh = Msql->connect($host);
  $dbh = Msql->connect($host, $database);
      or
  use Mysql;
  $dbh = Mysql->connect(undef, $database, $user, $password);
  $dbh = Mysql->connect($host, $database, $user, $password);
      or
  $dbh = Msql1->connect($host);
  $dbh = Msql1->connect($host, $database);
  $dbh->selectdb($database);
  @arr = $dbh->listdbs;
  @arr = $dbh->listtables;
  $quoted_string = $dbh->quote($unquoted_string);
  $error_message = $dbh->errmsg;
  $error_number = $dbh->errno;   # MySQL only
  $sth = $dbh->listfields($table);
  $sth = $dbh->query($sql_statement);
  @arr = $sth->fetchrow;        # Array context
  $firstcol = $sth->fetchrow;   # Scalar context
  @arr = $sth->fetchcol($col_number);
  %hash = $sth->fetchhash;
  $sth->dataseek($row_number);
  $sth->as_string;
  @indices = $sth->listindices                   # only in mSQL 2.0
  @arr = $dbh->listindex($table,$index)          # only in mSQL 2.0
  ($step,$value) = $dbh->getsequenceinfo($table) # only in mSQL 2.0
  $rc = $dbh->shutdown();
  $rc = $dbh->createdb($database);
  $rc = $dbh->dropdb($database);
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表