perl 文本文件入库
#!/usr/bin/perluse 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(id ,name,age) values (?,?,?)");
open (FILE ,"</home/luogen30/桌面/a.txt");
while (chomp($inputdata=<FILE>)){
my ($id, $name,$age) = split( /,/, $inputdata);
$sth->execute($id, $name, $age);
}
$dbh->commit;
$dbh->disconnect;
页:
[1]