摘要：
use LWP::UserAgent;use URI::Escape;use Net::Ping;use JSON qw(encode_json);use Socket;use Net::SMTP;use LWP;use LWP::Simple;use LWP::UserAgent;u... 阅读全文
摘要：
my $show_tip = 1;sub login { while (1) { my $api ="https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=$uuid&tip=$sh... 阅读全文
摘要：
[oracle@PD admin]$ ps -ef | grep smonoracle 1917 1 0 Aug21 ? 00:33:51 ora_smon_podinndboracle 22659 22448 0 08:03 pts/2 00:00:0... 阅读全文
摘要：
#!/usr/bin/perl use DBI;use Encode;my $dbName = 'oadb';my $dbUser = 'vxspace';my $dbUserPass = 'xxx';my $dbh = DBI->connect("dbi:Oracle:$dbName", $d... 阅读全文
摘要：
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) 198... 阅读全文
摘要：
perl unload gbk Oracle 数据库use Encode;if ( $#ARGV ) {$str = encode("gbk",decode("utf8","$_"));print "$str" ;}close FILE;需要的utf-8环境 把脚本格式转换成gbkOracle ... 阅读全文
摘要：
Redhat 安装DBI和ORACLE DBD tar -zxvf DBI-1.616.tar.gz cd DBI-1.616 perl Makefile.PL make make install 2. oadb... 阅读全文
摘要：
5.2.1 模式修饰词/i 修饰词是说同时匹配大写或者小写（以及在 Unicode 里的标题）/s 和 /m 修饰词并不涉及任何古怪的东西。它们只是影响 Perl 对待那些包含换行符的匹配的态度。元字符 "." 匹配除了换行符以外的任何单个字符,因为它的传统含义是匹配一行内的某个字符。不过带有... 阅读全文
摘要：
php 返回json：zabbix:/var/www/html/DEVOPS/Home/Lib/Action# vim EquipmentAction.class.php where($where)->select(); echo json_encode($arr)... 阅读全文
摘要：
centos6.5:/root/test#cat a2.pl use Net::SMTP;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use Encode;use JSON;use File:... 阅读全文