perl 文本文件入库

#!/usr/bin/perl
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(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;

评论

2 楼 luogen33 2011-10-17  

su - lgg -c "perl /home/lgg/mms_home/utl/cdrTrans/decompose_bill.pl"

1 楼 luogen33 2011-10-17  

404152934  何俊霞