Perl实现文件及数据库访问

写了一个perl脚本，使用了循环、控制台输出、访问文件以及访问数据库等特性，实现从文本文件中，读入多条已格式化的记录，按规定的分隔符解析，并插入到mysql数据库中。

一、预备条件：
０、安装perl解释器（废话）；
１、安装有数据库（本人使用的是mysql）；
２、perl已安装DBI模块。（注意：使用访问数据库功能时，须先安装相应的模块，即DBI模块，安装方法如链接所示：http://www.cnblogs.com/itech/archive/2009/08/10/1542832.html）

二、准备工作：
１、新建文本文件 test.log，perl将会从此文件读取数据，并插入数据库。其内容为：

引用

20120507|192.168.10.1|50
20131222|172.18.33.55|24
20130706|202.116.60.5|61

２、在mysql中新建数据表，从文本文件读来数据将会插入此表。脚本内容为：

create database testdb;
use testdb;

create table test(createtime datetime not null default '19000101', ipaddr varchar(20) not null default '', counter int not null default 0);

三、perl脚本代码：

#!/usr/bin/perl

use DBI;
#use DBD::mysql;

my $maillog = "./test.log";

my ($dataSoureName) = "DBI:mysql:test:localhost";		#data source name
my ($userName) = "root";		# user name
my ($password) = "";		# password
my ($dbh, $sth);		#database and statement handles
my $dbh = DBI->connect($dataSoureName, $userName, $password, {'RaiseError'=>1});

open(FF, $maillog) || die "ERROR:$!";
while(<FF>) {
	my($createtime,$ipaddr,$counter) = (split /\|/, $_);
	
	&insert_test($createtime, $ipaddr, $counter);
}
close(FF);
$dbh->commit();
$dbh->disconnect();

sub insert_test(){
	my ($createtime,$ipaddr,$counter) = @_;
	
	#my $sql = $createtime." ".$ipaddr." ".$counter;
	#print $sql
	my $sql = "insert into test(createtime, ipaddr, counter)  values(?, ?, ?)";
	eval {
		$sth = $dbh->prepare($sql);
		
		$sth->bind_param(1, $createtime);
		$sth->bind_param(2, $ipaddr);
		$sth->bind_param(3, $counter);
		
		$sth->execute();
		$dbh->commit();
	};
	
	if ($@) {
		print "errorcode $@\n";
	}
}

四、附件介绍：
0、test.pl是perl脚本，test.log是整理好准备要插入的数据文件，test.sql是在mysql中建表的脚本。
1、先运行test.sql，在mysql中建表。
2、把test.log与test.pl放在同一个目录下。
3、运行test.pl可插入数据。