perl+SQlite模块

在开发处理大量的数据，且数据随机性超强悍（比如网络数据）的系统时，我们总会面临对数据正性的验证的问题，

尤其是当这些系统并非基于数据库、但又具有大量的条件查询的时候，我们常常需要要原始的数据进行统计，再通
过与系统中的值进行比较，来难数据的正确性,但可条件的灵活，以至手工的计算是苦不堪言的，大家还是喜欢将数据
导入到数据库系统中再用SQL语句来验证数据的正确性。

下面这段代码是为了将几个数据文件读入到SQLITE中，并创建相应的数据库文件。当在测试系统中，用户的权限受
限的时候，需要将perl相关的一些库放到自己的目录下面。
比如我的目录如下：

dongq@DongQ_Lap ~/workspace/test/perl $ tree imp_exp/

imp_exp
|-- DBD            －－－请自己编译sqlite的perl库代码，然后将目录拷贝过来
|   |-- SQLite.pm
|   `-- getsqlite.pl
|-- auto           －－－请自己编译sqlite的perl库代码，然后将目录拷贝过来
|   `-- DBD
|       `-- SQLite
|           |-- SQLite.bs
|           `-- SQLite.so
|-- createdb.pl           －－－自己的脚本代码
|-- dbitrace.log
|-- do.clear
|-- dump.db               －－生成的数据库文件
`-- test.dat                 －－导入的数据


4 directories, 9 files
dongq@DongQ_Lap ~/workspace/test/perl $ 


下面的数据那入的perl代码

#!/usr/bin/env perl
#***************************************
# createdb.pl dump1.txt dump2.txt
#***************************************
use DBI;
use strict;
use lib qw( ./. );	#说明库的位置
die "Usage: ./createdb.pl dump1.txt dump2.txt ..." unless $#ARGV >= 0;


＃建立数据库连接
my $dbh = DBI->connect( "dbi:SQLite:dbname=./dump.db" );
＃创建数据表
my $create_sth = $dbh->do( "CREATE TABLE arp_record(
							ar_hrd INTEGER,
							ar_pro INTEGER,
							ar_hln INTEGER,
							ar_pln INTEGER,
							ar_op INTEGER,
							ar_sha VARCHAR(17),
							ar_spa INTEGER,
							ar_tha VARCHAR(17),
							ar_tpa INTEGER )" );


＃创建索引
my $index_sth = $dbh->do( "CREATE INDEX idx_ar_sha ON arp_record( ar_sha )" );
$index_sth = $dbh->do( "CREATE INDEX idx_ar_spa ON arp_record( ar_spa )" );
$index_sth = $dbh->do( "CREATE INDEX idx_ar_tha ON arp_record( ar_tha )" );
$index_sth = $dbh->do( "CREATE INDEX idx_ar_tpa ON arp_record( ar_tpa )" );


＃插入数据
my $insert_sth = $dbh->prepare( q{ INSERT INTO arp_record VALUES( ?, ?, ?, ?, ?, ?, ?, ?, ? ) } );


＃详细的调试信息
DBI->trace( 1, 'dbitrace.log');


$dbh->{ AutoCommit } = 0;


my $input_name;
foreach $input_name (@ARGV)
{
	open ( CSV, "<$input_name" ) or die "Can't open file: $!";


	while( <CSV> )
	{
		chomp;
		my( $ar_hrd, $ar_pro, $ar_hln, $ar_pln, $ar_op, $ar_sha, $ar_spa, $ar_tha, $ar_tpa ) = split /,/;
			
		$insert_sth->bind_param( 1, $ar_hrd );
		$insert_sth->bind_param( 2, $ar_pro );
		$insert_sth->bind_param( 3, $ar_hln );
		$insert_sth->bind_param( 4, $ar_pln );
		$insert_sth->bind_param( 5, $ar_op );
		$insert_sth->bind_param( 6, $dbh->quote( $ar_sha ) );
		$insert_sth->bind_param( 7, $ar_spa );
		$insert_sth->bind_param( 8, $dbh->quote( $ar_tha) );
		$insert_sth->bind_param( 9, $ar_tpa );
		$insert_sth->execute or die $dbh->errstr;
	}


}

$dbh->commit or die $dbh->errstr;

close ( CSV );
$dbh->disconnect;

exit;

呵呵，像上面的这种例子网上到处都是：）
参考： ＜＜perl DBI 编程＞＞一书