2020-02-16 标签:perl,文件,读取,经典,用法,分享,open,函数,打开,常用,方法,实现,代码,如下,fh,filename,die,couldn,t,reading

用Open() 函数打开文件打开文件的常用方法是:实现代码如下：open(FH, " $filename")or die "Couldn't open $filename for writing: $!";如果文件不存在，添加模式(用两个大于符号表示)可以用来创建新文件，如果文件存在，该模式并不会清

2020-02-16 标签:perl,控制,介绍,条件,循环,foreach,语句,之间,部分,即为,block,expression,else,elsif,倒置

1. 语句块：{ }之间的部分即为BLOCK语句块。2. 条件语句：if ( expression )BLOCK;if ( expression )BLOCK1else BLOCK2;if ( expression1 )BLOCK1;elsif ( expression2 )BLOCK2;elseB

2020-02-16 标签:perl,标量,运算,知识,介绍,一般,变量,指代,直接,包括,两种,数字,字符串,a,表示,方法,单引号

1.Perl将一般的变量成为标量，该变量可以指代的直接量包括两种：数字直接量；字符串直接量。a) 字符串的表示方法：单引号，单引号中的字符串中的含义直观，不需要求变量值和转义字符；双引号，需要求变量值和转义字符值。如果需要消除，通常需要在前面添加反斜杠，其中的单引号或双引号也需要。b) 此外，可以使

2020-02-16 标签:perl,文件,读取,字符串,两种,实现,方法,一次性,内容,读入,数组,适合,小文件,代码,如下,open,file,filename,die

1. 一次性将文件中的所有内容读入一个数组中(该方法适合小文件)： 实现代码如下：open(FILE,"filename")||die"can not open the file: $!";@filelist=;foreach $eachline (@filelist) {chomp $eachli

2020-02-16 标签:perl,处理,xml,模块,介绍,查找,已有,http,search,cpan,org,输入,查询,选择,评价,较高的,可以满足

1. 查找已有的模块http://search.cpan.org/2. 输入XML查询，选择评价较高的，且可以满足自己需求的模块：XML::Simpleuse warnings;use XML::Simple;use Data::Dumper;#将XML文件转化为Hash结果实现代码如下：my $x

2020-02-16 标签:perl,localtime,时间,函数,应用,介绍,一般,使用,n,owtime,sec,min,hour,mday,mon,year,wday,yday,isdst

1. 一般使用：@nowtime=localtime();#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();注意：$mon+1，$year+1900;$now_string = localtime;# e.g.,

2020-02-16 标签:perl,文件,包含,require,use,指令,介绍,形式,filename,说明,需要,添加,单引号,否则,会出,任何,后缀,求是

1. do:1）形式：do 'filename';说明：这里filename需要添加单引号，否则会出错；filename可以为任何后缀的，甚至没有后缀，不要求是pl或者pm等。2）关于do的理解：do 'filename'首先需要读入filename的文件(如果读入失败，返回undef而且会设置$!

2020-02-16 标签:perl,哈希,hash,常见,用法,介绍,基本,初始化,h,数组,a,b,意义,同上,另一种,形象化,写法

基本用法#初始化%h为空数组 %h={};#用数组初始化%h为a=>1,b=>2%h=('a',1,'b',2);#意义同上，只是另一种更形象化的写法。%h=('a'=>1,'b'=>2);#如果key是字符串，可以省略引号。下面这行和上面那行是一样的%h=(a=>1,

2020-02-16 标签:perl,长度,不一,文本,行列,进行,置换,实现,代码,有时,遇到,各行,不一致,麻烦,r,里面,文件

有时遇到各行或各列的长度不一致时就麻烦了，虽然可以在R里面把文件按最长的行(列)填充，但是不便，所以想起用perl去实现一个。由逗号分隔的不定长度的文本文件, 现要实现行列转置, 即由实现代码如下：1,2,3,4,5,6,7,8,9,10,11,12,13,转换为：1,7,10,2,8,11,3,9

2020-02-16 标签:perl,调用,外部命令,g,awk,方法,linux,系统,常用,小工,天生,操作,友好,有时,直接,相应,脚本,方便

但是，linux系统的常用小工具awk天生对列操作友好，有时直接在perl中调用awk比写相应的perl脚本要方便有效的多。比如用system插入awk语句：实现代码如下：system(gawk '{print $1}' $filename);执行该l语句，你会发现这行会报错，提示你使用了read-