DBI SQLite外部数据批量写入

#!usr/bin/perl-w
use DBI;

$dbh = DBI->connect( "dbi:SQLite:dbname=d:/test.db",
    ,, { RaiseError => 1, AutoCommit => 0 } );
my $sql =
q{CREATE Table ip (Id Integer primary key, name_1 varchar(10),name_2 varchar(10))};
$dbh->do($sql);

my $insert_sth = $dbh->prepare(q{INSERT INTO ip (name_1,name_2) VALUES(?,?)});

open my $FH, "D:/text.txt";
while (<$FH>) {
    chomp;
    my ( $name_1, $name_2 ) = split /\s+/;

    #方法1:
    $insert_sth->bind_param( 1, $name_1 );
    $insert_sth->bind_param( 2, $name_2 );

    #quote方法被用来“转义”包含在string中的任何特殊字符并增加所需的外部的引号
    #$insert_sth->bind_param(2,$dbh->quote($name_2));
    $insert_sth->execute() or die $dbh->errstr;

    #方法2:
    #$insert_sth->execute($name_1,$name_2) or die $dbh->errstr;
}

close $FH;

my $sth = $dbh->prepare(q{select * from ip});
$sth->execute();
while ( my @row_ary = $sth->fetchrow_array ) {
    print "@row_ary\n";
}
$dbh->disconnect();