How to use perl to connect MySQL?（利用Perl连接MySQL）

1. Install MySQL on Windows/Linux

1.1 Windows
      1) Download mysql-essential-5.0.86-win32.msi from MySQL "http://dev.mysql.com/downloads/mysql/5.0.html#win32"
      2) Click it to install MySQL on windows

1.2 Linux/Solris
       1) Download  pre compiled binary package from "http://dev.mysql.com/downloads/mysql/5.0.html"
       2) Unzip and Untar it to ur Linux/Solris machine.
       3) In "mysql-5.1.38-xxxxx-i386/  script  s", u can find "mysql_install_db"  script  . Execute it.
       4) Run command "nohup mysql-5.1.38-xxxxx-i386/bin/mysqld --basedir=which u untar the mysql"

2. Install DBD::mysql and DBI modules for ur perl

2.1 Active perl 5.x on Windows
      Use ppm tool to search DBD::mysql and DBI then install them.

2.2 Perl 5.x on Linux/Solris
      perl -MCPAN -e "install DBI"
      perl -MCPAN -e "install DBD::mysql"

3. How to write code to connect and do anything in MySQL against perl

use DBI;
use DBD::mysql;
use strict;
my $db = "mysql";
my $connectionInfo = "DBI:mysql:database=$db;host=localhost";
my $userid = "root";
my $passwd = "123456";

my $dbh = DBI->connect($connectionInfo,$userid,$passwd);
my $sql = 'select User from user';
my $sth = $dbh->prepare($sql);
$sth->execute();
my $rows = $sth->fetchrow_hashref();
$sth->finish();
foreach my $key(keys %$rows)
{
     print "$key => $rows->/n";
}
$dbh->disconnect;