#!/usr/bin/perl use DBI; use Encode; my $dbName = 'oadb'; my $dbUser = 'vxspace'; my $dbUserPass = 'xxx'; my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database "; my $table_name= "…

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::Temp qw/tempfile/; use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Data::Dumper;…

jrhapt01:/home/tomcat/test> cat a2.pl my $str="$ARGV[0]"; use Encode; use URI::Escape; use LWP::Simple; $str =~ s/\\u([0-9a-fA-F]{4})/pack("U",,hex($1))/eg; print $str; print "\n"; jrhapt01:/home/tomcat/test> perl a2.pl…

jrhmpt01:/root# cat -n hcp.pl 1 use LWP::UserAgent; 2 use Encode; 3 $ua = LWP::UserAgent->new; 4 @header = ( 5 'accept'=> "application/json", 6 'content-type'=> "application/json", 7 'apix-key'=> "e7b00871640c49567a375…

[root@wx03 ~]# cat a14.pl use Net::SMTP; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Headers; use HTTP::Response; use Encode; use JSON; use File::Temp qw/tempfile/; use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Data::Dumper; my $C…

php 返回json: zabbix:/var/www/html/DEVOPS/Home/Lib/Action# vim EquipmentAction.class.php <?php header('Content-Type:application/json; charset=utf-8'); ##返回json php文件格式为utf-8 无BOM格式 public function search_ipadd(){ $where['ip'] = $_GET['ip']; $Machine =…

perl unload utf-8 Oracle [oracle@oadb sbin]$ sqlplus / as sysdba SQL*Plus: Release 11.2.0.4.0 Production on 星期四 11月 17 18:03:12 2016 Copyright (c) 1982, 2013, Oracle. All rights reserved. 连接到: Oracle Database 11g Enterprise Edition Release 11.2.0.4.0…

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 (<FILE>) { $str = encode("gbk"…

交叉编译.c文件,遇到如下问题 arm-linux-gcc -o show_lines show_lines.c -lfreetype -lm show_lines.c:199:19: error: converting to execution character set: Invalid or incomplete multibyte or wide character 大概意思是,转换为执行字符集:无效的或不完整的宽字节 解决方案:编译时,再加入  -finput-charset=GBK…

/********************************************************************** * Can't locate find.pl in @INC (@INC contains: /etc/perl xxxx) at perlpath.pl line 7. * 说明: * 在Ubuntu 18.04上编译Yocto,出现的find.pl找不到的问题,只需要将find.pl放在 * /etc/perl目录就行了. * * 2018-6-14…