谁能帮我注释一小段perl程序,尤其是if语句判断的是什么啊,while () 是自动读一个字符串吗,存在哪里my %tagId_seq;my %tagId_count;my $uniq_tag_num;my $total_tag_count;open IN,$seq_file || die ;while () {\x05if (/^>(\S+)/)

谁能帮我注释一小段perl程序,尤其是if语句判断的是什么啊,while () 是自动读一个字符串吗,存在哪里my %tagId_seq;my %tagId_count;my $uniq_tag_num;my $total_tag_count;open IN,$seq_file || die ;while () {\x05if (/^>(\S+)/)
谁能帮我注释一小段perl程序,尤其是if语句判断的是什么啊,while () 是自动读一个字符串吗,存在哪里
my %tagId_seq;
my %tagId_count;
my $uniq_tag_num;
my $total_tag_count;
open IN,$seq_file || die ;
while () {
\x05if (/^>(\S+)/) {
\x05\x05my $tagId=$1;
\x05\x05my $count=0;
\x05\x05if (/>\S+\s+(\d+)/) {
\x05\x05\x05$count=$1;
\x05\x05}
\x05\x05my $seq=; chomp $seq;
\x05\x05
\x05\x05my $length=length $seq;
\x05\x05if ($length >=$MIN_LEN && $length

谁能帮我注释一小段perl程序,尤其是if语句判断的是什么啊,while () 是自动读一个字符串吗,存在哪里my %tagId_seq;my %tagId_count;my $uniq_tag_num;my $total_tag_count;open IN,$seq_file || die ;while () {\x05if (/^>(\S+)/)
1、open IN, $seq_file || die $!; 这句读文件的,IN是文件句柄的名字,$seq_file指明文件来源, 后面的 || die $!表示 如果前面的open失败 则用 die报告错误,并结束程序, $!在报错的时候内容为实际的出错原因.提示,最好使用3个参数的open函数,比如：
open ( IN, '