搜索博文结果_ChinaUnix博客

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

热搜： Android cISCO Java C++ Python Oracle LINUX FTP

博客首页〉搜索结果

按类别查询搜索结果

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

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

【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】 B/S架构下的HIS(医院管理)接入地方医保之六：用命令行通过CGI通信

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

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

【PERL】 perl的Sys::Syslog模块(openlog,syslog,closelog函数,setlogsock)-自定义日志

Barnett_3662 | 2016-01-26 21:47:51 | 阅读(1430) | 评论(0)

自定义日志模块(Sys::Syslog)1、语法:use Sys::Syslog; # all except setlogsock(), or:use Sys::Syslog qw(:DEFAULT setlogsock); # default set, plus setlogsock()增强版use Sys::Syslog qw(:standard :macros);...【阅读全文】

【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使用map分析日志简单用法

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|-]+) \\\"(.*?)\\\" \\...【阅读全文】

【PERL】 perldoc系列之perldsc——Perl数据结构使用手册(2)

qshllxfx | 2015-01-07 15:53:42 | 阅读(740) | 评论(0)

代码范例下面给出了一些简短的代码范例，用于说明对各种数据结构的操作。注释很少，将来或许会有吧。ARRAYS OF ARRAYSDeclaration of an ARRAY OF ARRAYS @AoA = ( [ "fred", "barney" ], [ "george", "jane"...【阅读全文】

【PERL】 perldoc系列之perldsc——Perl数据结构使用手册(1)

qshllxfx | 2015-01-07 14:28:39 | 阅读(540) | 评论(0)

概要在5.0发布之前，Perl最大的一个缺憾就是无法处理复杂的数据结构。虽然语言本身并不支持，还是有许多用于创新的程序员尝试来实现这一特性。然而这必竟是很困难的事情。某些情况下，或许可以从awk中借用类似$m{$AoA,$b}的语法，这里的键看上去更像是”$AoA$b”这种字符串的拼接。但是采用这种形式，做遍历和排序就...【阅读全文】

【PERL】 perl常用模块总结

yermiao | 2015-01-06 17:43:17 | 阅读(2140) | 评论(0)

(1) Net::FTP(2) Net::Telnet(3) LWP::Simple, get()(4) Expect(5) XML::Simple, XMLin()(6) Data::Dumper, Dumper()(7) IO::Socket(8) Date::Manip, DateCalc(), UnixDate()(9) Date::Manip, Date_Cmp()(10) File::Find, find()(11) ExtUtils::Installed, new(), modules(), version()(12) DBI, connect(), pre...【阅读全文】

【PERL】材料不全的应当通知人民检察院在日内补送

zhiyue5654 | 2014-12-09 13:56:59 | 阅读(810) | 评论(0)

人民法院审理申请没收违法所得的案件本没有规定的参照适用本解释的有关规定依法不负刑事责任的精神病人的强制医疗程序实施暴力行为危害公共安全或者严重危害公民人身安全社会危害性已经达到犯罪程度但经法定程序鉴定依法不负刑事责任的精神病人有继续危害社会可能的可以予以强制医疗人民检察院...【阅读全文】

【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】汲取供役地泉水或井水的权利

zhiyue5654 | 2014-11-07 10:52:14 | 阅读(290) | 评论(0)

地役权的取得：地役权就特定主体而发生。法律行为：以设立变更终止民事权利义务关系为目的的以意思表示为基本要素的合法行为。设定地役权的行为：通常是需役地所有人或使用人与供役地所有人或使用人的双方法律行为，即地役权合同。通行地役权：基于定目的在供役地上开设通路或利用旧路而通行的权利。&nbs...【阅读全文】

【PERL】 GFF3信息提取

jhh130910 | 2014-09-28 15:45:58 | 阅读(2370) | 评论(0)

文件说明：数据如下，我想提取第三列含gene的行的特定##gff-version 3Chr1 phytozome9_0 gene 3631 5899 . + . ID=AT1G01010;Name=AT1G01010Chr1 ...【阅读全文】

【PERL】（FASTA格式）依据表头信息提取数据

jhh130910 | 2014-09-27 21:42:21 | 阅读(1020) | 评论(0)

问题描述：比如我的数据（如下），我现在想提取表头里第二列数字小于99的序列，以下perl代码可以完成这个工作。>example 100 other tail 1 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN >example 99 other tail 2 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN...【阅读全文】

【PERL】 17．内幕信息

zhiyue5654 | 2014-09-10 19:38:48 | 阅读(620) | 评论(0)

17．内幕信息：是在证券交易活动中，13．对外担保：是指我国境内的中国法人以保证、抵押和质押方式对境外机构或境内的外资机构承诺。由专业机构汇集起来并投资于股票或债券等有价证券，非股权债权关系；②资金投向：股票或债券等有价证券，本条第二款是对多次贪污未经处理的如何计算贪污数额的规定。对伙同者，债务人将合...【阅读全文】

【PERL】 Perl 数据结构

Larpenteur | 2014-08-05 02:30:51 | 阅读(760) | 评论(0)

目录第九章，数据结构 9.1 数组的数组 9.1.1 创建和访问一个两维数组 9.1.2 自行生长 9.1.3 访问和打印 9.1.4 片段 9.1.5 常见错误 9.2 数组的...【阅读全文】

【PERL】 Perl 数据结构

bellsleep | 2014-08-04 09:28:57 | 阅读(1030) | 评论(0)

目录第九章，数据结构 9.1 数组的数组 9.1.1 创建和访问一个两维数组 9.1.2 自行生长 9.1.3 访问和打印 9.1.4 片段 9.1.5 常见错误 9.2 数组的...【阅读全文】

【PERL】 Perl 数据结构

huaius | 2014-08-03 10:44:32 | 阅读(4170) | 评论(1)

目录第九章，数据结构 9.1 数组的数组 9.1.1 创建和访问一个两维数组 9.1.2 自行生长 9.1.3 访问和打印 9.1.4 片段 9.1.5 常见错误 9.2 数组的...【阅读全文】

网络110 报警服务