2017年03月_scan724

原创 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 1532

原创 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 492

原创 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 529

原创 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 2893

原创 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 316

原创 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 341

原创 sql 字符串数值型不走索引

SQL_ID 99tfs2tpapwqk, child number 0-------------------------------------select count(*) num from ( select a.*, b.client_name client_name2, a.err_msg err_msg2 from tbtranscfm a inner join tbclie

2017-03-07 16:28:08 970

原创 perl 监控websphere 队列和通道状态

[mqm@node01 queue]$ cat t4.pl use MQSeries; use MQSeries::Command; use Data::Dumper; # if ( $#ARGV < 4 ){ print "Usage ./get_mq_sessage SYSTAG YWJZZF_CZCB_SEND CHANNEL1 192.168.137

2017-03-03 16:18:03 441

原创 MQSeriesQueue O O 接口到MQSeries Queue objects:

MQSeriesQueue O O 接口到MQSeries Queue objects:描述:MQSeries::Queue 对象是一个OO 机制用于打开队列管理器,putting 和getting messages 从那些队列, 提供一个接口是比完整的MQI简单的多这个模块是结合MQSeries::QueueManager, MQSeries::Message and

2017-03-03 13:39:28 351

原创 perl 读取消息队列深度不变

[mqm@node01 queue]$ cat t1.pl use MQSeries qw(:functions); use MQSeries::QueueManager; use MQSeries::Queue; use MQSeries::Message; # # Open a queue for input, loop getting messages, updat

2017-03-03 09:37:57 462

原创 MQSeriesQueueManager 队列管理器:

MQSeriesQueueManager 队列管理器:MQSeries::QueueManager - OO interface to the MQSeries Queue ManagerO O 面向对象 MQSeries 队列管理器:语法: use MQSeries qw(:functions); use MQSeries::QueueManager; # #

2017-03-03 08:47:53 990

原创 mq报2035错误

网上很多资料关于解决2035错误的方法都是对于Websphere MQ V7.x 的，我使用的是V8.0，使用网上的解决方法仍然会报2035错误，后来发现在V8.0中需要多注意一个配置才能解决2035错误。参考：http://stackoverflow.com/questions/25911557/websphere-mq-v8-mqrc-not-authorized-2035在V8中，与服务器

2017-03-02 16:31:42 6549 1

原创 MQSeries::Message 面向对象接口的MQSeries messages

MQSeries::Message 面向对象接口的MQSeries messages use MQSeries qw(:functions); use MQSeries::Message; # # Create a vanilla MQSeries::Message object for getting messages 创建一个普通的MQSeries::Messag

2017-03-02 09:00:21 336

zhaoyangjian724的专栏