使用DBI模块来批量插入数据库

要导入一批数据到数据库，使用DBI模块还是比较方便的

#!/usr/bin/perl -w
use DBI;
use strict;
my $dbh;
my $INFILE=$ARGV[0];
open LIST ,"<$INFILE" or die "can't open $INFILE\n";
my $table="table_appinfo";
$dbh=&connect();
my $qurey=qq{insert into $table (ip,name,manage,dev,location) values(?,?,?,?,?) };
my $sth=$dbh->prepare($qurey) || die $dbh->errstr;
my $dev="lab";
my $manage="namexxx";
my $location='location';
while(my $line=<LIST>){
    my ($ip,$name)=split /\s+/,$line;
    $sth->execute($ip,$name,$manage,$dev,$location);
    print "insert $ip  $name\n";
}
$dbh->disconnect();


exit(0);
##############################
sub connect() {
    my $source=q{DBI:mysql:database=xxx;host=xx.xx.xx};
    my $user="xxx";
    my $passwd="xxxx";
    my $dbh0=DBI->connect($source,$user,$passwd,{RaiseError=>1}) or die "connect mysql failed.";
    $dbh0->do("SET character_set_client = 'gb2312'");
    $dbh0->do("SET character_set_connection = 'gb2312'");
    $dbh0->do("SET character_set_results= 'gb2312'"); #解决GBK编码问题
    return $dbh0;
}