![](https://img-blog.csdnimg.cn/20191203144423477.png?x-oss-process=image/resize,m_fixed,h_224,w_224)
Perl
ample笔记
所有文章仅作学习交流,愿受指正。
展开
-
Perl读取oracle实例
#!/usr/bin/perlBEGIN{ $|=1; push @INC,"/opt/ourpalm/scripts/lib";}use strict;use POSIX qw(tzset);$ENV{TZ} = 'Asia/Shanghai';tzset();$ENV{NLS_LANG} = "AMERICAN_AMERICA.AL32UTF8";use db;my $stmt;my $sql;my $db = new db();my $conn原创 2020-09-02 18:13:25 · 179 阅读 · 0 评论 -
Perl连接数据库包
#!/usr/bin/perlpackage db;require Exporter;BEGIN {@ISA = qw(Exporter AutoLoader);}@EXPORT = qw();use strict;use Data::Dumper qw/Dumper /;#--------------------------------------------#Function: getDBINFO#Scope : private#功能: 定义一个可供连接的数据库列表,原创 2020-09-02 18:01:20 · 163 阅读 · 0 评论