上一页 1 ··· 5 6 7 8 9
摘要: use strict;use warnings;my($note,$med,@line,%hash);open IN,"<","G:\\tomato\\OUT\\yaofang.txt";@line=<IN>;print @line; 阅读全文
posted @ 2012-12-13 14:18 蒋蒋 阅读(227) 评论(0) 推荐(0) 编辑
摘要: my $attr='ID='.$fa[0].'path.gene;Name='.$fa[0].'path.gene.Note=transcript'; 阅读全文
posted @ 2012-12-13 14:16 蒋蒋 阅读(350) 评论(0) 推荐(0) 编辑
摘要: 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 ) 阅读全文
posted @ 2012-12-13 14:15 蒋蒋 阅读(311) 评论(0) 推荐(0) 编辑
摘要: !/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 阅读全文
posted @ 2012-12-13 13:16 蒋蒋 阅读(233) 评论(0) 推荐(0) 编辑
摘要: 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时,@_可以省略。上面代码也可以写成这样。 #... 阅读全文
posted @ 2012-12-13 13:12 蒋蒋 阅读(5618) 评论(0) 推荐(0) 编辑
摘要: 为什么使用引用?在perl4中,hash表中的value字段只能是scalar,而不能是list,这对于有些情况是很不方便的,比如有下面的数据:Chicago, USA Frankfurt, Germany Berlin, Germany Washington, USA Helsinki, Finland New York, USA我们想要按国家将城市分类,每个国家后面对应城市列表,如果用perl4来做,必须将城市列表组合成字符串才行,如果用perl5就可以用引用来做,有了引用,就可以构造复杂的hash结构,就可以用列表作为hash的值了。如何定义引用方法一 使用斜线\定义变量的时候,在变量名 阅读全文
posted @ 2012-12-13 12:55 蒋蒋 阅读(192) 评论(0) 推荐(0) 编辑
上一页 1 ··· 5 6 7 8 9