perl操作mysql数据库

#!/usr/bin/perl -w
use DBI;
my $driver="DBI:mysql";
my $database="test";
my $user="root";
my $host="localhost";
my $passwd="luogen30";
my $dbh = DBI->connect("$driver:database=$database;host=$host;user=$user;password=$passwd")
    or die "Can't connect: " . DBI->errstr;
    # 操作多列
    my $sth=$dbh->prepare("select * from testtable ");
#操作一列
#my $sth=$dbh->prepare("SELECT NAME FROM testtable")
#   or die "Can't prepare sql statement" . DBI->errstr;

$sth->execute() or die "Can't prepare sql statement". $sth->errstr;
# 操作多列
while(@recs=$sth->fetchrow_array){
    print $recs[0].":".$recs[1].":".$recs[2]."\n";
    }
#操作一列
#my($name);
#$sth->bind_columns(\$name);
#while( $sth->fetch()){
#     printf $name ."\n";
#}

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

评论

2 楼 luogen33 2011-09-26  

插入数据 ：


#!/usr/bin/perl -w
use DBI;
my $driver="DBI:mysql";
my $database="test";
my $user="root";
my $host="localhost";
my $passwd="luogen30";
my $dbh = DBI->connect("$driver:database=$database;host=$host;user=$user;password=$passwd")
    or die "Can't connect: " . DBI->errstr;
    my $sth=$dbh->prepare("insert into testtable values (66,'luogen',50)");
$sth->execute() or die "Can't prepare sql statement". $sth->errstr;
     $dbh->commit;
$sth->finish();
$dbh->disconnect();

1 楼 luogen33 2011-09-26  

my $database = "DBI:mysql:$dbname:$location:$port";