按类别查询搜索结果
关于关键词 的检测结果,共 71
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【阅读全文】
liudashang | 2018-12-28 09:10:56 | 阅读(33380) | 评论(0)
perl语言如何使用Coro实现多线程Telnet【阅读全文】
j_cle | 2017-03-23 00:19:15 | 阅读(1080) | 评论(0)
Perl实现对源目的主机发包量的统计【阅读全文】
perltest | 2016-10-30 18:13:51 | 阅读(990) | 评论(0)
在我们医院的医保实施过程中,需要实现这样的功能:医保结算电脑需要在命令行(不是浏览器)通过CGI和服务器通信,上传sql语句,把查询到的结果通过cgi传回来。【阅读全文】
flynetcn | 2015-12-23 14:46:58 | 阅读(940) | 评论(0)
linux下diff多个目录的脚本【阅读全文】
snowtty | 2015-10-22 16:58:02 | 阅读(1690) | 评论(0)
perl发信模块MailSender这个模块基本实现了日常运维中常用的发信功能,比如多人邮件,抄送,密送,smtp认证,发送带附件的邮件,html格式的邮件等。首先,使用MailMsg方法发信 代码如下: #!/usr/bin/perl # # file  wo.pl # use strict; use warnings;use MailSender...【阅读全文】
还看今早 | 2015-08-06 16:41:31 | 阅读(160) | 评论(0)
题目大意:有一个数组存储了多个顾客的购物清单。指定一个物品item1,求出购买了item1的顾客除了购买item1外,购买最多的物品。很实用的小题目。电商网站市场能看到。来源http://blog.chinaunix.net/uid-26750075-id-3370694.html 分析:简单的图论题目。首先把数组转成图的邻接表表示。实际就是求出到指定顶...【阅读全文】
幸福非天赐 | 2015-04-24 16:42:24 | 阅读(2580) | 评论(0)
glade是一款所见即所得的 gui 界面设计工具,glade文件实质上是一个xml文件。perl中Gtk2::GladeXML模块,可把glade文件导入到perl中运行。下面这个perl把/usr/share/doc/perl-Gtk2-GladeXML-1.007/examples/hello-world.glade这个示例glade文件导入perl中:[user@localhost perl]$ cat myglade.pl use Gtk2 -init;use Gt...【阅读全文】
幸福非天赐 | 2015-04-24 15:10:52 | 阅读(2110) | 评论(0)
在“perl-Gtk2编程-第一步 安装软件” 中可以看到,perl-Gtk2是有相应的图形化组件帮助手册的,因此可以使用man Gtk2::组件名称 进行查询,如下命令: man -a  Gtk2::Window |tee a.txtGtk2::Window(3)                 ...【阅读全文】
jhh130910 | 2015-04-21 08:16:00 | 阅读(3630) | 评论(0)
#!/usr/bin/perl -w use strict;#use Perl::Tidy;#use Getopt::Long;my ($head,%h,$key,$len,@len_arr,$total,$num,$sub_count,$first);print "input your sequence file name,then press Enter!\n";$first=<STDIN>;open IN,"<$first";while (<IN>){ chomp; if(/^>/){ $head=$_;}else{$h{$head}.=$_}}#  ...【阅读全文】
丹京 | 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会话就算完...【阅读全文】
zhiyue5654 | 2015-03-14 12:18:11 | 阅读(770) | 评论(0)
迫使社会成员按照统治阶级意志行事,以后随着社会的发展,任何人不得再更改标书的报价的其他内容。发布建设工程招标信息,该款是侵权责任法的一般条款,应就所造成的损害承担侵权责任,上海奉贤区律师。 第二百二十一条 流水工作物的使用权 (一)土地所有人 (二)当事人协商不成时。 但是债权人免除部分债务的。 除应当遵...【阅读全文】
zhiyue5654 | 2015-02-10 12:57:33 | 阅读(370) | 评论(0)
袁世凯成立约法会议,34这里规定的使用"作废的信用卡",而该信用卡还在有效使用期限内。 主要是指使经济建设、教学科研等受到严重的破坏和损失。致使国家机关工作无法进行,损害了受胁迫人的利益。贾医生以即将损害患者甲的健康为由,下落不明的时间从战争结束之日起计算。申请宣告死亡的期间适用民法通则第二十三条第一款...【阅读全文】
zhiyue5654 | 2015-01-14 22:07:56 | 阅读(530) | 评论(0)
 Where fter the pplint hs stte opinions or me retifitions the ministrtive eprtment for ptent uner the Stte ounil still onsiers the pplition not in onformity with ny item in the preeing prgrph the pplition shll e rejete  除专利申请文件外申请人向国务院专利行政部门提交的与专利申请有...【阅读全文】
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})...【阅读全文】
jhh130910 | 2014-12-05 10:54:03 | 阅读(2040) | 评论(0)
####简单开始,此处已生物领域的动植物染色体为例##核心文件:   karyotype   = xx/xx.data     ...【阅读全文】
frozenlaza | 2014-11-18 17:58:51 | 阅读(0) | 评论(0)
cloc-1.51.plperl cloc-1.51.pl test.c       1 text file.       1 unique file.       0 files ignored.http://cloc.sourceforge.net v 1.51  T=0.5 s (2.0 files/s, 454.0 lines/s)----------------------------------------------------------...【阅读全文】
zhiyue5654 | 2014-11-17 11:55:47 | 阅读(390) | 评论(0)
      第五百六十九条 债权人出卖人的担保责任   (一)债权出卖人担保债务人资力时,推定为担保契约订立当时的资力。   (二)未届清偿债权的出卖人,担保债务人将来的资力时,推定为担保清偿日期的资力。      第五百七十条  出卖人的瑕疵担保责任   买卖标的物有瑕疵时,准用第五百六...【阅读全文】