搜索博文结果_ChinaUnix博客

博客首页博客专家往日推荐博客文集

热搜：系统运维服务器存储 Java MongoDB ubuntu 高性能信息

博客首页〉搜索结果

按类别查询搜索结果

操作系统程序设计数据库热点技术综合架构与运维移动开发与应用 Web前端

关于关键词的检测结果，共 60 条

【PERL】 perl tcp服务器端编程，接收客户端信息并处理后发送响应给客户端

damofeixue64 | 2020-01-20 17:40:38 | 阅读(940) | 评论(0)

点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub { while((my $pid = waitpid...【阅读全文】

【PERL】 perl tcp服务器端编程，接收客户端信息并处理后发送响应给客户端

damofeixue64 | 2020-01-20 17:40:36 | 阅读(910) | 评论(0)

点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub { while((my $pid = waitpid...【阅读全文】

【PERL】 perl中读写excel文件的包

lz小骆驼 | 2019-03-27 09:34:32 | 阅读(0) | 评论(0)

读2003excel：点击(此处)折叠或打开use Spreadsheet::ParseExcel;#读取Excel2003版本的excel文件my $parser = Spreadsheet::ParseExcel->new();my $workbook = $parser->parse('test.xls');if ...【阅读全文】

【PERL】 perl中文不求人

stanley_tam | 2017-05-04 01:15:06 | 阅读(0) | 评论(0)

http://blog.chinaunix.net/uid-20639775-id-3382620.htmlhttp://bbs.chinaunix.net/thread-1713194-1-1.htmlconvert to UTF8?I'm trying to fix an issue for someone who's using a meta-search engine on a French web site. The data being pulled in, I would have assumed, should already be in UTF-8, since...【阅读全文】

【PERL】 perl中文编码学习笔记

十里稻花香 | 2017-01-23 11:32:09 | 阅读(0) | 评论(0)

#打印ASCII字符集;print v13.10;print "\x{65}";print chr(65);print pack("H2"x10,map{ "3$_" } (0..9)); #$ scalar#ASCII码转换为值print ord ('A');print ((unpack("H2"x4,abcd))[3]); #@ list中文以及编码值的输出（gbk编码范围 /[\x81-\xFE][\x40-\xFE]/）点击(此处)折叠或打开...【阅读全文】

【PERL】 B/S架构下的HIS(医院管理)接入地方医保之六：用命令行通过CGI通信

perltest | 2016-10-30 18:13:51 | 阅读(980) | 评论(0)

在我们医院的医保实施过程中，需要实现这样的功能：医保结算电脑需要在命令行（不是浏览器）通过CGI和服务器通信，上传sql语句，把查询到的结果通过cgi传回来。【阅读全文】

【PERL】 B/S架构下的HIS(医院管理)接入地方医保之五：Tk视窗里中文乱码的解决

perltest | 2016-10-30 17:57:39 | 阅读(970) | 评论(0)

在安装了Tk，之后，遇到的第一个问题是视窗中中文显示乱码。

这个问题在网上查了一下，说的不清楚，自己试了一下解决起来很简单。【阅读全文】

【PERL】 perl脚本连接mysql命令含有中文字符解决办法

Barnett_3662 | 2016-02-03 12:01:49 | 阅读(1200) | 评论(0)

执行报错：DBD::mysql::st execute failed: Illegal mix of collations (gb2312_chinese_ci,IMPLICIT) and (latin1_swedish_ci,COERCIBLE) for operation '=' at ./mysql_check.pl line 12.一看发现是编码问题解决办法：$dbh->do("set names utf8;"); #插入此行my $sth = $dbh->do(含有中文字符的sql命令...【阅读全文】

【PERL】匹配中文

杰克伯恩 | 2016-01-25 10:41:01 | 阅读(0) | 评论(0)

/([\x80-\xFF][\x80-\xFF])/ ()里的表示中文双字节。【阅读全文】

【PERL】 perl发信模块MailSender

snowtty | 2015-10-22 16:58:02 | 阅读(1660) | 评论(0)

perl发信模块MailSender这个模块基本实现了日常运维中常用的发信功能，比如多人邮件，抄送，密送，smtp认证，发送带附件的邮件，html格式的邮件等。首先，使用MailMsg方法发信代码如下: #!/usr/bin/perl # # file wo.pl # use strict; use warnings;use MailSender...【阅读全文】

【PERL】 perl-Gtk2编程－第三步获取帮助信息

幸福非天赐 | 2015-04-24 15:10:52 | 阅读(2100) | 评论(0)

在“perl-Gtk2编程－第一步安装软件” 中可以看到，perl-Gtk2是有相应的图形化组件帮助手册的，因此可以使用man Gtk2::组件名称进行查询,如下命令： man -a Gtk2::Window |tee a.txtGtk2::Window(3) ...【阅读全文】

【PERL】 linux socket实现机器间的通信(Perl)

丹京 | 2015-04-16 20:50:58 | 阅读(1000) | 评论(0)

一、IO::Socket简介IO::Socket, 它是socket通信的面向对象的Perl接口。IO::Socket下又有两个子类IO::Socket::INET与IO::Socket::UNIX.现在用的是IO::Socket::INET。它的步骤是:先调用new方法，然后就可以进行基本I/O操作(使用print与getline等基本I/O方法)了，最后调用close方法结束会话，那么整个SOCKET会话就算完...【阅读全文】

【PERL】 Perl 中字符编码转换

Jack_Tan123 | 2015-04-07 00:14:29 | 阅读(1480) | 评论(0)

use Encode;#gbk转utf-8$str = encode("utf8",decode("gbk",$str));#gbk转utf-8方法二$str = encode_utf8(decode("gbk",$str));#utf-8转gbk$str = encode("gbk",decode("utf8",$str));#utf-8转gb2312$str = encode("gb2312",decode("utf8",$str));perl 只识别 UTF8编码的字符串(TK)...【阅读全文】

【PERL】 perl中使用XML::Simple模块解析xml文件

程序猿zy | 2015-03-28 00:44:46 | 阅读(1900) | 评论(0)

perl xml【阅读全文】

【PERL】 perl->获取物理信息

Jack_Tan123 | 2014-12-08 20:18:19 | 阅读(1120) | 评论(0)

use Win32::NetAdmin;my $hostname = Win32::NodeName();my $ref = {};my $hostid;if( Win32::NetAdmin::GetTransports("\\\\$hostname", $ref) ) { foreach my $trans (keys %{$ref})...【阅读全文】

【PERL】判断是否为中文正则表达式大全

snowtty | 2014-12-07 16:58:32 | 阅读(3460) | 评论(0)

php判断是否为中文正则表达式大全 <?php$str="aaa";if(!eregi("[^\x80-\xff]","$str")){echo "是";}else{echo "不是";}?><?$str = "中国";echo $str;echo "<hr>";//if (preg_match("/^[".chr(0xa1)."-".chr(0xff)."]+$/", $str)) { //只能在GB2312情况下使用if (preg_match("/^[\x7f-\xff]+$/"...【阅读全文】

【PERL】数罪中最高刑期以上

zhiyue5654 | 2014-11-29 11:51:48 | 阅读(770) | 评论(0)

　　(1)罚金　　强制犯罪分子或者犯罪单位向国家缴纳一定数额金钱的一种刑罚。　　(2)剥夺政治权利　　剥夺犯罪分子参加国家管理和政治活动权利的一种刑罚。剥夺政治权利是剥夺下列权利：(1)选举权和被选举权；(2)言论、出版、集会、结社、游行、示威自由的权利；(3)担任国家机关职务的权利；(4)担任国有公司、企业、事业...【阅读全文】

【PERL】把第５５条中的&ldquo

zhiyue5654 | 2014-11-28 12:16:35 | 阅读(440) | 评论(0)

究情报时，他可在任何时候行使下面的一项或两项职权：即检查并授权英国原子能管理局来审查这个申请案和送给专利局局长此申请案有关的任何文件；　　　（ｂ）在其他任何情况下，他可在上述第１６条所规定的时间结束后（或者征得申请人的同意在此时间之前），审查该申请案和任何此类的文件。适当原子能管理...【阅读全文】

【PERL】读入外部文件列表，删除指定文件中的指定行

frozenlaza | 2014-11-18 18:13:19 | 阅读(0) | 评论(0)

有文件tree.txt，内有某目录下的所有子目录+文件列表（使用windows tree命令得到）现在手头有文件名列表，想删除掉tree.txt中，列表里的文件名不存在，并且行中包含.xls的行最后将处理后的tree.txt输出到out.txt中。点击(此处)折叠或打开#!/usr/bin/perl#RegReadWrite.pl...【阅读全文】

【PERL】依据A文件数据抓取B文件中的序列

jhh130910 | 2014-09-28 15:51:04 | 阅读(890) | 评论(0)

#!/usr/bin/perl -w$|=1;print "input your genome sequence,then press Enter!\n";my $seq=<STDIN>;open FASTA,"$seq" or die "can not open FASTA file,$!";print "input your gff file name,then press Enter!\n";my $gff=<STDIN>;open GFF,"$gff" or die "can not open GFF file,$!";open OUT,">gene_sequence"...【阅读全文】

网络110 报警服务