Perl连接数据库MySQL

参看 《Sams Teach Yourself MySQL in 10 Minutes》By Chris Newman.
环境: perl-5.8.8-38.fc8
mysql-5.0.45-6.fc8
首先是设置好MySQL。

1.创建数据库。

$su
#mysql
->create database hello;
->create table products (
   code  VARCHAR(10)    PRIMARY KEY,
   name          VARCHAR(40)    NOT NULL UNIQUE,
   weight        DECIMAL(6,2)   NOT NULL,
   price         DECIMAL(6,2)   NOT NULL
);
这样创建了数据库hello以及表格products.

2. 创建用户
$su
#mysql
->create user linux@localhost identified by '123456';
用户为 linux, 密码为 123456
给用户赋予权限。
->grant all privileges on hello.products to linux@localhost;

3. 插入数据
->inset into products(code,name,weight,price) values(‘MINI’，‘Small', 2.0,4.5);

4， Pel 调用

#!/usr/bin/perl
use DBI;
$dbh=DBI->connect("DBI:mysql:database=hello;host=localhost","liyropt","00203078");
$sth=$dbh->prepare("select * from products");
$sth->execute();
while(@row=$sth->fetchrow()){
print "@row";
print "\n";
}

输出结果
MINI Small 2.0 4.5