Perl DBI
文章平均质量分 73
5
优惠券已抵扣
余额抵扣
还需支付
¥39.90
¥99.00
购买须知?
本专栏为图文内容,最终完结不会低于15篇文章。
订阅专栏,享有专栏所有文章阅读权限。
本专栏为虚拟商品,基于网络商品和虚拟商品的性质和特征,专栏一经购买无正当理由不予退款,不支持升级,敬请谅解。
scan724
这个作者很懒,什么都没留下…
展开
-
perl 通过signal 控制数据库连接超时
[root@yyjk /tmp]#cat a3.pluse DBI;no warnings;use DBI;use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::SMTP;use Encode;use Sys::SigAction qw( set_sig_handler );my $dbip='192.168.137.1';my $dbname='uacdb';my $dbuser='xx';my $dbpa原创 2021-05-14 12:34:30 · 192 阅读 · 0 评论 -
perl 安装DB2::DBD
vTechnote (FAQ)QuestionHow can my application written in Perl access my IBM DB2 Version 9.5 and above database for LUW?AnswerPerl applications can access IBM DB2 data servers via the Perl DBI原创 2017-04-07 10:18:34 · 978 阅读 · 0 评论 -
perl 解决mysql utf8中文乱码 问题
mysql utf8 中文问题:zabbix:/root/sbin# cat a1.pl use DBI;my $dbUser='DEVOPS';my $user="root";my $passwd="kjk123123";my $dbh = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.11.185;port=33...原创 2017-03-10 20:05:40 · 2918 阅读 · 0 评论 -
perl unload oracle gbk
[oracle@PD scan]$ echo $LANGzh_CNgbk 环境:[oracle@PD scan]$ cat unload_oracle.pl #!/usr/bin/perl use DBI;my $dbName = 'pd';my $dbUser = 'iufo';my $dbUserPass = 'podinndb_88';my $dbh = DBI->c原创 2017-03-08 17:30:35 · 330 阅读 · 0 评论 -
perl unload Oracle utf8 数据库
perl unload Oracle utf8 数据库1.脚本允许环境 utf8[oracle@oadb sbin]$ cat unload_oracle_utf8.pl #!/usr/bin/perl use DBI;use Encode;my $dbName = 'oadb';my $dbUser = 'vxspace';my $dbUserPass = 'newja01'原创 2017-03-08 17:15:11 · 346 阅读 · 0 评论 -
perl 通过生成mysql 批量sql
zabbix:/root/sbin# perl t1.pl 20160101 20160105create table test1.test_20160101;create table test1.test_20160102;create table test1.test_20160103;create table test1.test_20160104;create table te原创 2016-12-29 14:45:23 · 834 阅读 · 0 评论 -
批量生成创建语句
[oracle@PD sbin]$ cat t1.pl use DBI;use HTTP::Date qw(time2iso str2time time2iso time2isoz);my $dbName = 'PD';my $dbUser = 'query';my $dbUserPass = 'kjk7787czcb';my $dbh = DBI->connect("dbi:Orac原创 2016-12-29 12:05:43 · 344 阅读 · 0 评论 -
perl unload gbk oracle 数据库
perl unload gbk Oracle 数据库use Encode;if ( $#ARGV < 0 ){ print "请输入一个文件\n"; exit(-1); } $var = $ARGV[0];open (FILE ,"<","$var") || die "can open file$!\n";while () {$str = e原创 2016-11-17 17:57:24 · 387 阅读 · 0 评论 -
perl unload utf-8 oracle 数据库
perl unload utf-8 Oracle[oracle@oadb sbin]$ sqlplus / as sysdbaSQL*Plus: Release 11.2.0.4.0 Production on 星期四 11月 17 18:03:12 2016Copyright (c) 1982, 2013, Oracle. All rights reserved.连接到:原创 2016-11-17 18:16:24 · 418 阅读 · 0 评论 -
Redhat 安装Oracle DBI和DBD
Redhat 安装DBI和ORACLE DBD tar -zxvf DBI-1.616.tar.gz cd DBI-1.616 perl Makefile.PL make make install 2. oadb01:/root# tar -zxvf DBD-Oracle-1.36.tar.gz原创 2016-11-17 17:26:05 · 792 阅读 · 0 评论 -
perl dbi 测试 mysql wait_timeout
The number of seconds the server waits for activity on a noninteractive connection before closing it. mysql server 等待活动的秒数在一个非交互式的连接在关闭前,超出这个时间就会关闭连接[root@wx03 mojo]# morbo relink.pl Server ava原创 2016-10-08 07:23:32 · 586 阅读 · 0 评论 -
PERL DBI 自动重连问题
[root@wx03 mojo]# cat relink.pl use Mojolicious::Lite;use JSON qw/encode_json decode_json/;use Encode;no strict;no warnings;use JSON;use POSIX;use JSON::RPC::Client;use Data::Dumper;use DBI;原创 2016-10-07 19:26:17 · 551 阅读 · 0 评论 -
中文乱码 $dbh->do("SET NAMES utf8");
use DBI;my $dbUser='DEVOPS';my $user="root";my $passwd="kjk123123";my @arr2="";my $dbh = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.11.185;port=3306",$user,$passwd) or die "can't conne原创 2016-10-28 16:24:56 · 817 阅读 · 0 评论 -
Oracle 客户端抽取 utf8数据,unload_oracle_utf8.pl 编码为utf8
Oracle 客户端抽取 utf8数据,unload_oracle_utf8.pl 编码为utf8[oracle@PD scan]$ cat a1.sh export NLS_LANG="SIMPLIFIED CHINESE_CHINA".AL32UTF8export LANG=en_US.UTF-8perl unload_oracle_utf8.pl CTP_PROCESS_LOG原创 2017-03-10 21:03:23 · 545 阅读 · 0 评论 -
perl DBI 插入 oracle utf8数据库正确姿势
[oracle@oadb sbin]$ cat insertdb.pl use DBI; use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP;my $a="测试环境";print length($a);print "\n";my $dbName = 'oadb'; my $dbU原创 2017-03-11 15:07:51 · 511 阅读 · 0 评论 -
perl redhat安装DBI DBD
[root@yyjk ~]# cat /etc/issueRed Hat Enterprise Linux Server release 6.7 (Santiago)Kernel \r on an \mYou have mail in /var/spool/mail/root[root@yyjk ~]# perl -vThis is perl 5, version 22, subv...原创 2019-09-16 14:08:10 · 249 阅读 · 0 评论 -
perl DBI 超时控制
[oracle@node01 perl]$ cat test1.pl use DBI;use Encode;use Data::Dumper;my $dbName = 'serv';my $dbUser = 'system';my $dbUserPass = 'oracle';$dbh = DBI->connect("dbi:Oracle://1.168.137.2:1521...原创 2020-11-30 21:59:29 · 439 阅读 · 0 评论 -
perl DBD处理超时问题
名字:dbd-oracle-timeout.pod 测试DBD-Oracle超时操作使用Sys::SigAction摘要:本文讨论我使用SIGALRM来超时某个DBD-Oracle操作遇到的问题Perl 5.8.0 和以后的版本支持sigaction() 实现'safe'的信号处理。不幸的是,工作的斑斑在5.8之前,提出了解决这个一问题的几种方法描述如果你是实现一...原创 2019-02-15 11:45:04 · 373 阅读 · 1 评论 -
DBD 超时和报错
[oracle@yyjk sbin]$ time perl testdbi3.pl DBI connect('//10.3.249.22:1521/tllspj','cips',...) failed: ORA-12541: TNS: 无监听程序 (DBD ERROR: OCIServerAttach) at testdbi3.pl line 14.-------------------1...原创 2018-12-29 19:34:04 · 429 阅读 · 0 评论 -
perl 获取表记录数
#!/usr/bin/perl #use strict; use DBI; use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP;sub send_mail{if (@_ != 2){print "请输入2个参数\n";exit 1}; ($m,$n) = @_; #...原创 2018-12-22 20:01:26 · 384 阅读 · 0 评论 -
perl DBI超时控制
名字:Sys::SigAction Perl 拓展用于一致的信号处理 #do something non-interrupt able use Sys::SigAction qw( set_sig_handler ); { my $h = set_sig_handler( 'INT' ,'mysubname' ,{ flags =>...原创 2020-11-30 22:20:26 · 517 阅读 · 0 评论 -
perl多进程抽取mysql数据库
#!/usr/bin/perl use DBI;use Parallel::ForkManager;use Encode;use HTTP::Date qw(time2iso str2time time2iso time2isoz);use DBI;$dbname='zabbix';$user="root";$passwd="1234567";$dbh = DBI->connec原创 2017-10-24 15:33:51 · 405 阅读 · 0 评论 -
Perl DBI模块
一: select 某些字段:[oracle@jhoa dbi]$ cat 1.pl use DBI; my $dbName = 'orcl'; my $dbUser = 'test'; my $dbUserPass = 'test'; my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or d原创 2015-01-19 10:19:06 · 590 阅读 · 0 评论 -
perl 连接informix
use DBI; $ENV{"INFORMIXDIR"}="/xxx/xxxx"; $ENV{"INFORMIXSERVER"}="xxx"; $ENV{"DB_LOCALE"}="en_US.8859-1"; $ENV{"CLIENT_LOCALE"}="en_US.8859-1"; $dbh = DBI->;install_driver(‘Informix‘); $db原创 2017-08-05 17:29:35 · 630 阅读 · 0 评论 -
perl 处理 回车 换行符
SQL> insert into tlcb values('中国'||chr(10),'杭州');SQL> select * from tlcb;NAME ADDRESS---------- ----------中国 杭州抽出来的数据;[oracle@oadb sbin]$ cat tlcb.TXT 中国 |杭州 | 去掉换行符:原创 2017-08-02 22:38:55 · 7439 阅读 · 0 评论 -
perl 安装DBI和DBD
还可以从cpan.perl.org站点下载tar压缩文件形式的源代码发行版本,解压缩后,切换到相应的文件目录cd DBI-1.54perl Makefile.PLmakemake testmake install安装DBD时候 需要export ORACLE_HOME验证安装:perldoc DBD::Oracleperldoc DBI在线文档;perldoc -m原创 2017-03-22 11:54:53 · 1594 阅读 · 0 评论 -
mysql DBI 事务控制
事务;事务是任何健壮数据库系统的基本组成,它们 防止错误和数据库腐败通过确保有关数据的改变是原子发生的(不可分割的,要么所有要么什么都不做)这个章节应用于数据库支持事务和 AutoCommit 是关闭的,查看"AutoCommit" 使用对于各种类型的数据库。推荐的方式实现健壮的事务在Perl应用是使用RaiseError and eval { ... } $dbh->{A原创 2016-08-23 11:08:42 · 683 阅读 · 0 评论 -
mysql utf8 中文
#!/usr/bin/perl use DBI; use Encode;$user="root"; $passwd="1234567"; $dbh="192.168.32.232";my $table=; chomp $table;print "\$table is $table\n";my $table=encode("utf8",decode("原创 2016-08-17 15:13:48 · 109 阅读 · 0 评论 -
perl dbi unload utf8脚本
#!/usr/bin/perl use DBI;$db_name='zjzc';$ip='127.0.0.1';$user="root";$passwd="1234567";$dbh="";$dbh = DBI->connect("dbi:mysql:database=$db_name;host=$ip;port=3306",$user,$passwd) or die "can't原创 2015-10-24 07:45:22 · 389 阅读 · 0 评论 -
perl 卸载Oracle数据库
#!/usr/bin/perl use strict;use DBI;my $dbName = 'dwh1';my $dbUser = 'dwm';my $dbUserPass = 'dwm';my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to datab原创 2015-09-10 14:51:57 · 566 阅读 · 0 评论 -
perl 卸载mysql数据库
#!/usr/bin/perl use DBI;$dbUser='test';$user="test";$passwd="123456";$dbh="";$dbh = DBI->connect("dbi:mysql:database=plmsdb;host=10.10.17.5;port=3306",$user,$passwd) or die "can't connect to dat原创 2015-09-10 14:45:08 · 522 阅读 · 0 评论 -
Centos 安装DBI和ORACLE DBD
Centos 安装DBI和ORACLE DBD tar -zxvf DBI-1.616.tar.gz cd DBI-1.616 perl Makefile.PL make make install 2. oadb01:/root# tar -zxvf DBD-Oracle-1.36.tar.gz 声明ORACLE_HO原创 2015-05-22 09:52:40 · 951 阅读 · 0 评论 -
Centos 安装perl DBI和mysql DBD
371 cd DBI-1.616 372 perl Makefile.PL 373 make 374 make install 375 yum install perl-DBD-MySQL原创 2015-04-30 09:59:22 · 4320 阅读 · 0 评论 -
Perl Tk和DBI结合 软件匹配问题
perl 版本用1.ActivePerl_5.16.2.msi2.客户端程序为win32_11gR2_client.zip原创 2015-05-28 15:13:52 · 611 阅读 · 0 评论 -
failed: ERROE OCINlsEnvironmentVariableGet(OCI_NLS_CHARSET_ID) Check NLS settings etc. at
DBI connect('db@192.168.8.100:1521','sa',...)failed: ERROE OCINlsEnvironmentVariableGet(OCI_NLS_CHARSET_ID) Check NLS settings etc. at check.pl line 1001.先确认sqlplus能否连上目标数据库2.多半是Oracle客户端程序问题原创 2015-05-28 12:30:58 · 1497 阅读 · 0 评论 -
install_driver(Oracle) failed: Can't load '/usr/local/lib64/perl5/auto/DBD/Oracle/Oracle.so'
jrhapt02:/home/tomcat/mon> perl dbi.pl install_driver(Oracle) failed: Can't load '/usr/local/lib64/perl5/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle: libocci.so.11.1: cannot open shared object原创 2015-05-27 16:24:36 · 4380 阅读 · 0 评论 -
Perl 写的巡检数据库的脚本
#!/usr/bin/perlmy $red="\e[1;31m";my $green="\e[1;32m";my $yellow="\e[1;33m";my $normal="\e[0m";use DBI; my $dbName = 'june'; my $dbUser = 'test'; my $dbUserPass = 'test'; my $dbh = DB原创 2015-05-03 22:27:14 · 783 阅读 · 0 评论 -
Mysql Perl unload表数据
#!/usr/bin/perl use DBI;$dbUser='test';$user="test";$passwd="123456";$dbh="";$dbh = DBI->connect("dbi:mysql:database=plmsdb;host=10.10.17.5;port=3306",$user,$passwd) or die "can't connect to dat原创 2015-04-27 23:06:01 · 1017 阅读 · 0 评论 -
mysql dbi 操作<1>
[mysql@master ~]$ cat 1.pl #!/usr/bin/perluse DBI;$user="test";$passwd="123456";$dbh="";$dbh = DBI->connect("dbi:mysql:database=plmsdb;host=10.10.17.5;port=3306",$user,$passwd) or die "can't con原创 2015-04-16 19:36:10 · 423 阅读 · 0 评论 -
while continue 更新文件
zjzc01:/root/dbi# cat a1.pl my $a = $ARGV[0];my $b = $ARGV[1];my $c = $ARGV[2];my $d = $ARGV[3];my $f = $ARGV[4];my $g = $ARGV[5];open MEGADATA , ">>a.txt" or dir $!;my $record = join (原创 2015-11-11 17:35:07 · 350 阅读 · 0 评论