按类别查询搜索结果
关于关键词 的检测结果,共 105
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...【阅读全文】
lz小骆驼 | 2019-11-19 15:52:34 | 阅读(0) | 评论(0)
linux上手工执行脚本成功,生成 /appdata/appuser/synfile/20191118/TPPUT_20191118/移动退票释放20191118_1.xlsx ;web端java调用脚本无法成功,程序执行到这一步莫名结束:my $workbookRpt5_1 = Excel::Writer::XLSX->new($filename_rpt5_1);   首先排除代码问题,考虑可能是环境变量,但是代码没有用...【阅读全文】
starb6 | 2019-10-22 11:15:20 | 阅读(1590) | 评论(0)
localtime EXPRlocaltime引用方法:my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;$sec,$min,$hour :  seconds, minutes, and hours of the specified time.$mday               :  the day of the month $mon     &n...【阅读全文】
【PERL】
Jack_Tan123 | 2017-07-11 11:41:55 | 阅读(930) | 评论(0)
点击(此处)折叠或打开#! perl -wuse 5.014;my $arrayRef = [1,2,3,4];    #创建一个数组的引用my $hashRef = {        #创建一个散列的引用  &nb...【阅读全文】
j_cle | 2017-03-24 19:30:00 | 阅读(1100) | 评论(0)
点击(此处)折叠或打开#!/usr/bin/perluse strict;use warnings;use Data::Dumper;use File::Basename;use File::Spec::Functions;my $data = data_for...【阅读全文】
perltest | 2016-10-30 18:13:51 | 阅读(980) | 评论(0)
在我们医院的医保实施过程中,需要实现这样的功能:医保结算电脑需要在命令行(不是浏览器)通过CGI和服务器通信,上传sql语句,把查询到的结果通过cgi传回来。【阅读全文】
perltest | 2016-08-16 21:25:10 | 阅读(1560) | 评论(0)
在见到医保提供的sei.dll文件之前,在网上查了一下,Perl可以通过Win32::API模块对dll文件进行调用。【阅读全文】
j_cle | 2016-08-12 09:58:43 | 阅读(790) | 评论(0)
perl pack和unpack的使用方法Pack 与unpack使用说明: pack可视为将一系列的片段的数值打包在一起,可用于对dev档案、socket、memory的读写,因为这些需要一块完整的memory,而且需要事先打包成特定格式;而unpack可以视为将将这些完整的 memory切割计算,取得我们所需要各部分的Variable。例子如下: ...【阅读全文】
Barnett_3662 | 2016-02-02 10:08:07 | 阅读(1700) | 评论(0)
整个博客均为博主原创,转载请先联系~#以下均为博主学习笔记#redis简单介绍    Redis是一个高性能的key-value数据库    Redis支持主从同步。数据可以从主服务器向任意数量的从服务器上同步    Redis根本是使用内存存储    redis...【阅读全文】
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...【阅读全文】
bellsleep | 2015-10-04 20:50:48 | 阅读(880) | 评论(0)
perl pack和unpack的使用方法Pack 与unpack使用说明: pack可视为将一系列的片段的数值打包在一起,可用于对dev档案、socket、memory的读写,因为这些需要一块完整的memory,而且需要事先打包成特定格式;而unpack可以视为将将这些完整的 memory切割计算,取得我们所需要各部分的Variable。例子如下: ...【阅读全文】
bainanrain | 2015-08-20 22:57:00 | 阅读(2150) | 评论(0)
perl pack和unpack的使用方法Pack 与unpack使用说明: pack可视为将一系列的片段的数值打包在一起,可用于对dev档案、socket、memory的读写,因为这些需要一块完整的memory,而且需要事先打包成特定格式;而unpack可以视为将将这些完整的 memory切割计算,取得我们所需要各部分的Variable。例子如下: ...【阅读全文】
还看今早 | 2015-08-06 16:41:31 | 阅读(150) | 评论(0)
题目大意:有一个数组存储了多个顾客的购物清单。指定一个物品item1,求出购买了item1的顾客除了购买item1外,购买最多的物品。很实用的小题目。电商网站市场能看到。来源http://blog.chinaunix.net/uid-26750075-id-3370694.html 分析:简单的图论题目。首先把数组转成图的邻接表表示。实际就是求出到指定顶...【阅读全文】
幸福非天赐 | 2015-04-24 15:10:52 | 阅读(2100) | 评论(0)
在“perl-Gtk2编程-第一步 安装软件” 中可以看到,perl-Gtk2是有相应的图形化组件帮助手册的,因此可以使用man Gtk2::组件名称 进行查询,如下命令: man -a  Gtk2::Window |tee a.txtGtk2::Window(3)                 ...【阅读全文】
丹京 | 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会话就算完...【阅读全文】
zhiyue5654 | 2015-04-09 14:55:21 | 阅读(550) | 评论(0)
在立法过程中,关于甲的汽车上各抵押权的先后顺序。 夫妻关系从撤销死亡宣告之日起自行恢复;如果其配偶再婚后又离婚或者再婚后配偶又死亡的,潘某将备用钥匙交给丙,B首饰实为乙父亲所有,鼓励交易。应当告知承包人,上海宝山区律师,定作人应当按照约定提供材料。2.奴隶制五刑在汉文帝之前通行,在酒精的作用下,甲给了乙...【阅读全文】
程序猿zy | 2015-03-28 00:44:46 | 阅读(1900) | 评论(0)
sxou27 | 2015-03-27 14:18:58 | 阅读(2650) | 评论(0)
内容出自:http://my.oschina.net/tkorays/blog/305257perl登录各种网站的原理与实现tkorays(tkorays@hotmail.com)小孩子才践行大道理,大人只会讲。        写脚本抓取某个页面内容很简单,但是往往事情没那么简单。有些页面必须是要登录才能查看的,比如你想抓取...【阅读全文】
fzhye | 2015-03-12 22:02:06 | 阅读(570) | 评论(0)
#!/usr/bin/perl -w$ip=32;$year=2009;open WWW,"/2009/05/27/access.log";@mini=qw(21 22);@send=qw(00 01 02 );#open IN,">>result.log";my $num=0;my @tmp[50]=(0);$PerlParsingFormat="([^ ]+) [^ ]+ ([^\\[]+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) ([^ ]+) [^\\\"]+\\\" ([\\d|-]+) ([\\d|-]+) \\\"(.*?)\\\" \\...【阅读全文】