按类别查询搜索结果
关于关键词 的检测结果,共 77
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...【阅读全文】
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...【阅读全文】
ychuang6666 | 2019-06-30 11:51:42 | 阅读(2010) | 评论(0)
perl语言如何使用Coro实现多线程Telnet【阅读全文】
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 ...【阅读全文】
liudashang | 2018-12-28 09:10:56 | 阅读(33380) | 评论(0)
perl语言如何使用Coro实现多线程Telnet【阅读全文】
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...【阅读全文】
十里稻花香 | 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]/)点击(此处)折叠或打开...【阅读全文】
perltest | 2016-10-30 18:13:51 | 阅读(990) | 评论(0)
在我们医院的医保实施过程中,需要实现这样的功能:医保结算电脑需要在命令行(不是浏览器)通过CGI和服务器通信,上传sql语句,把查询到的结果通过cgi传回来。【阅读全文】
perltest | 2016-10-30 17:57:39 | 阅读(970) | 评论(0)
在安装了Tk,之后,遇到的第一个问题是视窗中中文显示乱码。

这个问题在网上查了一下,说的不清楚,自己试了一下解决起来很简单。【阅读全文】
Barnett_3662 | 2016-02-03 12:01:49 | 阅读(1210) | 评论(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])/    ()里的表示中文双字节。【阅读全文】
snowtty | 2015-10-22 16:58:02 | 阅读(1680) | 评论(0)
perl发信模块MailSender这个模块基本实现了日常运维中常用的发信功能,比如多人邮件,抄送,密送,smtp认证,发送带附件的邮件,html格式的邮件等。首先,使用MailMsg方法发信 代码如下: #!/usr/bin/perl # # file  wo.pl # use strict; use warnings;use MailSender...【阅读全文】
幸福非天赐 | 2015-04-24 15:10:52 | 阅读(2110) | 评论(0)
在“perl-Gtk2编程-第一步 安装软件” 中可以看到,perl-Gtk2是有相应的图形化组件帮助手册的,因此可以使用man Gtk2::组件名称 进行查询,如下命令: man -a  Gtk2::Window |tee a.txtGtk2::Window(3)                 ...【阅读全文】
丹京 | 2015-04-16 20:50:58 | 阅读(1010) | 评论(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会话就算完...【阅读全文】
Jack_Tan123 | 2015-04-07 00:14:29 | 阅读(1490) | 评论(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)...【阅读全文】
程序猿zy | 2015-03-28 00:44:46 | 阅读(1910) | 评论(0)
sxou27 | 2015-03-27 14:18:58 | 阅读(2650) | 评论(0)
内容出自:http://my.oschina.net/tkorays/blog/305257perl登录各种网站的原理与实现tkorays(tkorays@hotmail.com)小孩子才践行大道理,大人只会讲。        写脚本抓取某个页面内容很简单,但是往往事情没那么简单。有些页面必须是要登录才能查看的,比如你想抓取...【阅读全文】
Jack_Tan123 | 2014-12-19 22:59:09 | 阅读(0) | 评论(0)
################################包模块的初始化####################################package Me;       ###定义包的名称    脚本中用use Me加载包;use warnings;    ###加载use strict; require 5.6;    ####限定perl的版本  低于5.6则运行不了require &n...【阅读全文】
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})...【阅读全文】
snowtty | 2014-12-07 16:58:32 | 阅读(3480) | 评论(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]+$/"...【阅读全文】