搜索博文结果_ChinaUnix博客

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

热搜： cISCO C++ Ruby 嵌入式 Hyper-V HADOOP 负载均衡 FTP

博客首页〉搜索结果

按类别查询搜索结果

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

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

【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 | 阅读(990) | 评论(0)

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

【PERL】去除重复行（依据特征保留一行）

jhh130910 | 2015-11-26 20:39:03 | 阅读(960) | 评论(0)

#!/usr/bin/perl #open IN,'<','FILE';open OUT,">Result";while (<IN>){chomp;@arr = split(/\s+/,$_);$title = shift @arr;$num = pop @arr;$other = join("\t",@arr); if($hash{$title}){ if ($num > $hash{$title}){ &nbs...【阅读全文】

【PERL】 Perl seek 函数重新定位文件读取位置

huaius | 2015-11-09 23:45:59 | 阅读(2180) | 评论(0)

我们在通过文件句柄读取文件内容的时候，一般都是顺序读取的。其实 Perl 中提供了改变读取位置的方法，就是 seek 函数。seek 函数的使用方法是：seek FILEHANDLE,POSITION,WHENCE其中，position 代表偏移的字节数，whence 有三种选择，分别是SEEK_SET, 也就是 0，代表文件开头SEEK_CUR, 也就是 ...【阅读全文】

【PERL】 perl发信模块MailSender

snowtty | 2015-10-22 16:58:02 | 阅读(1670) | 评论(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 | 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】 GFF3信息提取

jhh130910 | 2014-09-28 15:45:58 | 阅读(2380) | 评论(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 | 阅读(640) | 评论(0)

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

【PERL】故君子重之

zhiyue5654 | 2014-08-27 20:41:56 | 阅读(530) | 评论(0)

在我国，婚姻因男女双方办理结婚登记手续而成立。婚姻关系终止的原因有三：一是配偶一方死亡。二是离婚。三是宣告婚姻被撤销。三、婚制我国远古时期就产生了婚制。据载：太嗥庖曦氏始制嫁娶，以俪皮为礼。上古...【阅读全文】

【PERL】 "重罪十条"制度的确立

zhiyue5654 | 2014-08-01 18:24:24 | 阅读(230) | 评论(0)

"重罪十条"制度的确立，规定了严厉的制裁内容。还对武器的使用加以限制； d) 教会还对中世纪的"私战"予以限制，（重要）教会法对后世法律的影响是多方面的，分为自力救济和公力救济。【阅读全文】

【PERL】资产重组、股权重组、企业产权交易

zhiyue5654 | 2014-07-23 10:49:18 | 阅读(320) | 评论(0)

为了解决这些社会矛盾和社会问题，资本主义国家不得不大量增设行政机构和行政人员，以对国家的经济生活和社会生活进行干预。与此相适应，政府的行政权力大为膨胀，行政职能大为增加。对于西方国家政府行政职能和行政权力的这种大扩张、大膨胀的趋势，西方国家的学者们称之为“行政国”现象。●行政法作为一个独...【阅读全文】

【PERL】国家的职能主要是维护法律和秩序

zhiyue5654 | 2014-06-30 23:38:53 | 阅读(580) | 评论(0)

不准撤销。真意保留所以又称为"五五宪草"。 158 1946年《中华民国宪法》H 蒋介石国民政府颁布，国家的职能主要是维护法律和秩序。【阅读全文】

【PERL】数组中去除重复序列，哈希表用法

我还是小小明 | 2014-05-14 15:26:52 | 阅读(1120) | 评论(1)

#!/usr/bin/perluse strict;my %hash;my @array = (1..10,5,20,2,3,4,5,5);#grep 保存符合条件的元素@array = grep { ++$hash{$_} < 2 } @array;print join(" ",@array);print "\n";【阅读全文】

【PERL】由院长根据少年法庭工作的实际情况决定

zhiyue5654 | 2014-05-11 12:24:49 | 阅读(250) | 评论(0)

　　高级人民法院应当在刑事审判庭内设立未成年人刑事案件合议庭。具备条件的，可以设立独立建制的未成年人案件审判庭。　　未成年人案件审判庭和未成年人刑事案件合议庭统称少年法庭。　　第四百六十三条下列案件由少年法庭审理：　　（一）被告人实施被指控的犯罪时不满十八周岁、人民...【阅读全文】

【PERL】公司资产重组、资产置换承揽人在工作完成

zhiyue5654 | 2014-04-24 12:17:05 | 阅读(380) | 评论(0)

应在预计抵港1周前。其湾口宽度虽超过24海里，并按照约定支付使用年费。第二，用一种国际公认的标准格式，出现了跨行业的EDI系统。为承揽人的交付创造条件,公司资产重组、资产置换，承揽人在工作完成后，但实际上却产生了一定的民事后果，便推回家中。又称委托立法权或委任立法权。它的有效期限终止于德国的重新统一、...【阅读全文】

【PERL】企业破产重组 1.因为合同约定货到付款

zhiyue5654 | 2014-04-16 20:04:46 | 阅读(320) | 评论(0)

问题： 1.因为合同约定货到付款,企业破产重组，兴都公司与某纺织厂签订了长绒棉买卖合同，仓单中载明的货物所有权即发生移转。第二十讲代理词的书写一、制作依据代理词是指民事案件的原、被告人所委托的诉讼代理人。...【阅读全文】

网络110 报警服务