08 2012 档案

摘要：完整代码：use strict;use warnings;my ($tss, $cluster, $out) = @ARGV;die $! unless (@ARGV ==3);open OUT,">$out";open TSS, $tss;my (%ftss, %rtss);while (<TSS>){ chomp; my ($s, $e, $str) = (split /\s+/, $_)[1,2,3]; if ($str eq "+"){ $ftss{$e} = $s; } elsif ($str eq "-" 阅读全文

摘要：http://hi.baidu.com/jackywdx/blog/item/2664ff16d3638e55f2de3279.htmlgrep函数(如果你是个Perl的新手,你可以先跳过下面的两段,直接到 Grep vs.loops 样例这一部分,放心,在后面你还会遇到它)<pre>grepBLOCKLISTgrepEXPR,LIST</pre>grep 函数会用LIST中的元素对BLOCK或 EXPR 求值，而且会把局部变量 $_ 设置为当前所用的LIST中的元素。BLOCK 块是一个或多个由花括号分隔开的Perl 语句，而 List 则是一有序列表。EXPR 是一 阅读全文