perl的一些学习笔记
发布时间:2020-12-16 00:06:02 所属栏目:大数据 来源:网络整理
导读:今天起,这篇文章来记录一些perl的学习笔记,希望能坚持下去,持续更新。 1、先上一段perl读取配置文件,连接数据库的代码。 config.ini--数据库的连接字符串配置文件: =127.0.0.1:1521=mymis=mymis=ORCL= data.pl--读取config.ini,通过perl的DBI去操作数
今天起,这篇文章来记录一些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,$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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |