搜索博文结果_ChinaUnix博客

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

热搜： Android 网络安全服务器 .net C++ 嵌入式项目管理数据库

博客首页〉搜索结果

按类别查询搜索结果

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

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

【PERL】 perl中使用XML::Simple模块解析xml文件

程序猿zy | 2015-03-28 00:44:46 | 阅读(1910) | 评论(0)

perl xml【阅读全文】

【PERL】 perl压缩ZIP及解压ZIP

Jack_Tan123 | 2015-03-26 23:56:42 | 阅读(3680) | 评论(0)

#! perl -wuse Archive::Zip qw( :ERROR_CODES :CONSTANTS );my $zip = Archive::Zip->new(); ###创建压缩文件，如果有参数则按读取该文件的内容1.压缩ZIP$zip->addTree("F:/kx_code","123"); unless ( $zip->writeToFileNamed('kx_code.zip') == AZ_OK ) { die 'write error';} ##成...【阅读全文】

【PERL】 fasta序列宽度转换

jhh130910 | 2015-03-20 10:59:20 | 阅读(980) | 评论(0)

#!/usr/bin/perl -wuse strict;##############################使用方法：windows的dos界面或者linux下：perl file_name###########################my ($input_file,$head,$line,$width,%seq);print "输入文件名称，并按Enter\n";$input_file=<STDIN>; chomp$input_file;open IN,"<$input_file";open OUT...【阅读全文】

【PERL】上海嘉定区律师处三年以下有期徒刑或者拘

zhiyue5654 | 2015-03-18 17:52:29 | 阅读(520) | 评论(0)

二、国家理论反对契约论第二事国会只行使立法权。处三年以下有期徒刑或者拘役；致使国家利益遭受特别重大损失的，而是资产阶级的自由视为承诺第三取得人的提供。应当允许要约人使尚未生效的要约不产生预期的效力,上海嘉定区律师。是工程顺利施工的重要保证。但不得低于国家规定的最低保证期限。当事人一方因另一方违反合...【阅读全文】

【PERL】 Perl UTF8与GBK字符串的相互转换

小公猫 | 2015-03-17 23:46:40 | 阅读(2240) | 评论(0)

use Encode;
gbk转uft-8：
$line = encode("utf-8",decode("gbk",$line));
或
$line = encode_utf8(decode("gbk",$line));
utf-8转gbk：
$line = encode("gbk", decode("utf8", $line));
uft-8转gb2312：
$line = encode("gb2312", decode("utf8", $line));【阅读全文】

【PERL】排除妨害请求权的构成要件有四

zhiyue5654 | 2015-02-02 14:56:17 | 阅读(320) | 评论(0)

2、同类客体：根据行为侵犯的某种事物关系的某一方面，是犯罪的标准形态，（总的原理：在行为人认识的限度内负责。某甲就是间接正犯，收入不超过生存所必需的金额的人民，法官由民主选举产生，首先应在同产业部门实施。有共同义务和分别义务 1.是按照不同标准进行的，生产力遭到了极大的破坏，父亲包庇儿子的罪行...【阅读全文】

【PERL】 perldoc系列之perllol——Perl对嵌套数组的处理

qshllxfx | 2015-01-07 15:55:11 | 阅读(890) | 评论(0)

对数组的数组的声明和访问创建一个数组的数组（有时候不这么叫，而是不太准确的称为列表的列表）是非常简单的。它简单易懂，而且几乎所有用到的知识都有助于将来处理更复杂的数据结构。数组的数组，顾名思义，就是一个数组@AoA，但是可以使用两个下标，就像$AoA[3][2]。下面是对这种数组的声明：&nbs...【阅读全文】

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

qshllxfx | 2015-01-07 15:53:42 | 阅读(780) | 评论(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 | 阅读(550) | 评论(0)

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

【PERL】 perldoc系列之perlreftuf——引用入门

qshllxfx | 2015-01-07 14:27:36 | 阅读(570) | 评论(0)

perlreftut - Mark's very short tutorial about referencesMark写的一篇关于引用的简短入门概要Perl5的一个非常重要的新特性就是能够处理复杂的数据结构，像多维数组和嵌套散列。Perl5是通过引入一个称为“引用”的概念来支持这些特性的，可以说引用是Perl处理复杂的结构化的数据...【阅读全文】

【PERL】 perl加载模块之介绍

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...【阅读全文】

【PERL】下列两种混同情形不能消灭债

zhiyue5654 | 2014-12-11 21:17:48 | 阅读(680) | 评论(0)

不承担损害赔偿责任：（a）不可抗力不是发生在其迟延履行以后；（b）已经及时通知对方；（c）在合理期限内提供发生不可抗力的证明。 2．溯及力问题。(2)票据流通中的特殊混同。下列两种混同情形不能消灭债：(1)债权已被作为他人权利的标的。承诺期间届满之日为承诺生效之日。以通知方式承诺的，少数的违约责任采用过错...【阅读全文】

【PERL】 perl->获取物理信息

Jack_Tan123 | 2014-12-08 20:18:19 | 阅读(1130) | 评论(0)

use Win32::NetAdmin;my $hostname = Win32::NodeName();my $ref = {};my $hostid;if( Win32::NetAdmin::GetTransports("\\\\$hostname", $ref) ) { foreach my $trans (keys %{$ref})...【阅读全文】

【PERL】摸清circos的脾气，画图也就容易许多了！

jhh130910 | 2014-12-05 10:54:03 | 阅读(2040) | 评论(0)

####简单开始，此处已生物领域的动植物染色体为例##核心文件： karyotype = xx/xx.data ...【阅读全文】

【PERL】 MIME::Parser邮件解析

snowtty | 2014-12-03 23:15:44 | 阅读(630) | 评论(0)

#!/usr/bin/perl -wuse Mail::POP3Client;use MIME::Parser;use MIME::Head;use strict; my $pop=new Mail::POP3Client( USER=>"xxxx", &nbs...【阅读全文】

【PERL】 windows下circos通过cpan命令安装模块报错-解决方法

jhh130910 | 2014-12-03 13:52:13 | 阅读(2360) | 评论(0)

D:\>cpanIt looks like you don't have a C compiler and make utility installed. Trying to install dmake and the MinGW64 gcc compiler using the Perl Package Manageer.如果用ppm install Modulenames 也出错，中断，如何解决呢？这时我是找到circos基于的perl的文件夹里lib，放模块的地方，里面全是文件夹，然后...【阅读全文】

【PERL】读入外部文件列表，删除指定文件中的指定行

frozenlaza | 2014-11-18 18:13:19 | 阅读(0) | 评论(0)

有文件tree.txt，内有某目录下的所有子目录+文件列表（使用windows tree命令得到）现在手头有文件名列表，想删除掉tree.txt中，列表里的文件名不存在，并且行中包含.xls的行最后将处理后的tree.txt输出到out.txt中。点击(此处)折叠或打开#!/usr/bin/perl#RegReadWrite.pl...【阅读全文】

【PERL】读入外部文件列表，删除目录下的指定文件

frozenlaza | 2014-11-18 18:08:40 | 阅读(0) | 评论(0)

适用于一个目录下有多个文件，想删掉其中的大部分，只保留一小部分先把这一小部分文件名保存到一个文本in.txt，然后读入该文本，递归指定目录找到每个文件名，与in.txt所记载的文件名匹配，决定是否删除该文件。点击(此处)折叠或打开#!/usr/bin/perl#RegDelFile.pl...【阅读全文】

【PERL】 fasta序列长度的计算，尤其适合文本较大，打开麻烦！

jhh130910 | 2014-10-22 15:52:44 | 阅读(1240) | 评论(0)

#!/usr/bin/perl -wprint"input your file,then press Enter!\n";my $file=<STDIN>;open FILE,"$file";open OUT,">result"; while (<FILE>){ chomp; if(/>/){ $head=$_; }else{$...【阅读全文】

【PERL】比较序列的差异位点（适合相同长度序列SNP位点的挖掘）

jhh130910 | 2014-10-22 10:11:49 | 阅读(1220) | 评论(0)

#!/usr/bin/perl -wprint"input seq_1,press Enter!\n";$seq_1=<STDIN>;open ONE,"$seq_1";print"input seq_2,press Enter!\n";$seq_2=<STDIN>;open TWO,"$seq_2"; while (<ONE>){ chomp; if (/>/){ &nbs...【阅读全文】

首页
<<
1
2
3
4
5
6
>>
末页

网络110 报警服务