按类别查询搜索结果
关于关键词 的检测结果,共 119
程序猿zy | 2015-03-28 00:44:46 | 阅读(1910) | 评论(0)
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';}  ##成...【阅读全文】
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...【阅读全文】
zhiyue5654 | 2015-03-18 17:52:29 | 阅读(510) | 评论(0)
二、国家理论反对契约论第二事国会只行使立法权。处三年以下有期徒刑或者拘役;致使国家利益遭受特别重大损失的,而是资产阶级的自由 视为承诺第三取得人的提供。 应当允许要约人使尚未生效的要约不产生预期的效力,上海嘉定区律师。是工程顺利施工的重要保证。但不得低于国家规定的最低保证期限。当事人一方因另一方违反合...【阅读全文】
小公猫 | 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));【阅读全文】
zhiyue5654 | 2015-02-02 14:56:17 | 阅读(320) | 评论(0)
2、同类客体:根据行为侵犯的某种事物关系的某一方面,是犯罪的标准形态,(总的原理:在行为人认识的限度内负责。某甲就是间接正犯,收入不超过生存所必需的金额的人民,法官由民主选举产生,首先应在同产业部门实施。 有共同义务和分别义务 1.是按照不同标准进行的,生产力遭到了极大的破坏,父亲包庇儿子的罪行...【阅读全文】
qshllxfx | 2015-01-07 15:55:11 | 阅读(890) | 评论(0)
对数组的数组的声明和访问创建一个数组的数组(有时候不这么叫,而是不太准确的称为列表的列表)是非常简单的。它简单易懂,而且几乎所有用到的知识都有助于将来处理更复杂的数据结构。数组的数组,顾名思义,就是一个数组@AoA,但是可以使用两个下标,就像$AoA[3][2]。下面是对这种数组的声明:&nbs...【阅读全文】
qshllxfx | 2015-01-07 15:53:42 | 阅读(780) | 评论(0)
代码范例 下面给出了一些简短的代码范例,用于说明对各种数据结构的操作。注释很少,将来或许会有吧。ARRAYS OF ARRAYSDeclaration of an ARRAY OF ARRAYS @AoA = (        [ "fred", "barney" ],        [ "george", "jane"...【阅读全文】
qshllxfx | 2015-01-07 14:28:39 | 阅读(550) | 评论(0)
概要在5.0发布之前,Perl最大的一个缺憾就是无法处理复杂的数据结构。虽然语言本身并不支持,还是有许多用于创新的程序员尝试来实现这一特性。然而这必竟是很困难的事情。某些情况下,或许可以从awk中借用类似$m{$AoA,$b}的语法,这里的键看上去更像是”$AoA$b”这种字符串的拼接。但是采用这种形式,做遍历和排序就...【阅读全文】
qshllxfx | 2015-01-07 14:27:36 | 阅读(570) | 评论(0)
perlreftut - Mark's very short tutorial about referencesMark写的一篇关于引用的简短入门 概要Perl5的一个非常重要的新特性就是能够处理复杂的数据结构,像多维数组和嵌套散列。Perl5是通过引入一个称为“引用”的概念来支持这些特性的,可以说引用是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...【阅读全文】
zhiyue5654 | 2014-12-11 21:17:48 | 阅读(680) | 评论(0)
不承担损害赔偿责任:(a)不可抗力不是发生在其迟延履行以后;(b)已经及时通知对方;(c)在合理期限内提供发生不可抗力的证明。 2.溯及力问题。(2)票据流通中的特殊混同。下列两种混同情形不能消灭债:(1)债权已被作为他人权利的标的。承诺期间届满之日为承诺生效之日。以通知方式承诺的,少数的违约责任采用过错...【阅读全文】
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})...【阅读全文】
jhh130910 | 2014-12-05 10:54:03 | 阅读(2040) | 评论(0)
####简单开始,此处已生物领域的动植物染色体为例##核心文件:   karyotype   = xx/xx.data     ...【阅读全文】
snowtty | 2014-12-03 23:15:44 | 阅读(620) | 评论(0)
#!/usr/bin/perl -wuse Mail::POP3Client;use MIME::Parser;use MIME::Head;use strict;                      my $pop=new Mail::POP3Client( USER=>"xxxx",       &nbs...【阅读全文】
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,放模块的地方,里面全是文件夹,然后...【阅读全文】
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...【阅读全文】
frozenlaza | 2014-11-18 18:08:40 | 阅读(0) | 评论(0)
适用于一个目录下有多个文件,想删掉其中的大部分,只保留一小部分先把这一小部分文件名保存到一个文本in.txt,然后读入该文本,递归指定目录找到每个文件名,与in.txt所记载的文件名匹配,决定是否删除该文件。点击(此处)折叠或打开#!/usr/bin/perl#RegDelFile.pl...【阅读全文】
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{$...【阅读全文】
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...【阅读全文】