摘要：
use strict;use warnings;my($note,$med,@line,%hash);open IN,"<","G:\\tomato\\OUT\\yaofang.txt";@line=<IN>;print @line; 阅读全文
摘要：
my $attr='ID='.$fa[0].'path.gene;Name='.$fa[0].'path.gene.Note=transcript'; 阅读全文
摘要：
pop操作将数组的最后一个元素取出并返回：@array=5..9;$fred=pop(@array);#$fred得到9，@array现在为（5，6，7，8）$barney=pop@array;#$barneygets8,@array现在为（5,6,7）pop @array;#@array现在为（5，6）(7被丢弃了)数组清空：@=（）；查找某元素是否在数组内：比如我有一个list @ifs=(eth1 eth2.45 eth3);然后有个变量 $iface="eth2";我要判断$iface在不在@ifs里if ( grep { $_ eq $iface } @ifs ) 阅读全文
摘要：
!/usr/bin/perl use List::Util ####找最大、最小、求和等值qw/max min sum maxstr minstr shuffle/; @a = ('hello', 'ok', 'china', 'unix'); print max 1..10; #10 print min 1..10; #1 print sum 1..10; #55 print maxstr @a; #unix print minstr @a; #china print shuffle 1..10; #radom orderuse 阅读全文
摘要：
my @a=(11,22,33,44); my $minCnt = &min(@a); sub max # 采用遍历算法。先将参数中的第一个值赋给$currentMaxCnt。 # @_ 是默认的包含本函数所有参数 [如(11,22,33)]的数组。 # shift @_ 有两个结果: 1. 将数组 @_ 中的第一个值做为返回值(赋给了$currentMaxCnt). 2. 将@_数组第一个值弹出[此后@_的值变为(22,33)]. my $currentMaxCnt = shift @_; # 函数中使用shift时，@_可以省略。上面代码也可以写成这样。 #... 阅读全文
摘要：
为什么使用引用？在perl4中，hash表中的value字段只能是scalar，而不能是list，这对于有些情况是很不方便的，比如有下面的数据：Chicago, USA Frankfurt, Germany Berlin, Germany Washington, USA Helsinki, Finland New York, USA我们想要按国家将城市分类，每个国家后面对应城市列表，如果用perl4来做，必须将城市列表组合成字符串才行，如果用perl5就可以用引用来做，有了引用，就可以构造复杂的hash结构，就可以用列表作为hash的值了。如何定义引用方法一 使用斜线\定义变量的时候，在变量名 阅读全文