perl的一些学习笔记

今天起，这篇文章来记录一些perl的学习笔记，希望能坚持下去，持续更新。

1、先上一段perl读取配置文件，连接数据库的代码。

config.ini--数据库的连接字符串配置文件：

=127.0.0.1:1521=mymis=mymis=ORCL=

data.pl--读取config.ini，通过perl的DBI去操作数据库：

#!/usr/bin/perl

use DBI;

$dbh="";
#打开配置文件，由于cygwin没安装上perl-dbi，所以我在命令行执行的，路径是windows的路径
open(LOGONFILE,"D:/cygwin/zhouyujie/zshell/config.ini") || die("Can not open the file!$!n");
my $LOGON_STR = <LOGONFILE>;
close(LOGONFILE);
#用"="去分隔读取配置文件的内容，就可以得到连接字符串的参数
my ($null, $urladdress, $username, $password, $dbname) = split('=',$LOGON_STR);

#连接数据库
$dbh = DBI->connect("dbi:Oracle:".$urladdress."/".$dbname,$username,$password) or die "can't connect to database ". DBI-errstr;
#localtime函数，获取到这些时间
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
#把年、月、日转换成20131114的格式
$year += 1900;
$mon = sprintf("%02d", $mon + 1);
$mday = sprintf("%02d", $mday);
my $today = "${year}${mon}${mday}";

$sql="SELECT '".$today."',A.* FROM MYMIS.TB_MYMIS_USER_INFO A";

#查询表
$sth=$dbh->prepare($sql);

#执行sql语句
$sth->execute;

#读取记录数据，这里只读了前三列
while (@recs=$sth->fetchrow_array) {
	print $recs[0].":".$recs[1].":".$recs[2]."\n";
}

#断开连接 
$dbh->disconnect;