USE Perl DBI模块 一例

#!/usr/bin/perl
use DBI;
my $driver="DBI:mysql";
my $database="test";
my $user="abc";
my $host="xx.xx.xx.xx";
my $pass="xxxxxx";
my $port="xxxx";
my $dbh=DBI->connect ("$driver:database=$database:host=$host:port=$port;user=$user;password=$pass")or die "Can't connect"  . DBI->errstr;
my $sth=$dbh->prepare("select xx  from table where xx1=? AND xx2=?);
$sth->bind_param(1,"$ARGV[0]");
$sth->bind_param(2,"$ARGV[1]