我试图理解一段代码循环一个文件,做各种赋值,然后输入一组if语句,其中一个字符串似乎与什么都没有比较.这里有什么/nonsynonymous/
和/prematureStop/
被比较的?我对python很有经验.
open(IN,$file); while(){ chomp $_; my @tmp = split /\t+/,$_; my $id = join("\t",$tmp[0],$tmp[1]-1); $id =~ s/chr//; my @info_field = split /;/,$tmp[2]; my $vat = $info_field[$#info_field]; my $score = 0; $self -> {VAT} ->{$id}= $vat; $self ->{GENE} -> {$id} = $tmp[3]; if (/nonsynonymous/ || /prematureStop/){...
Donovan.. 6
它与当前输入行($ _)进行比较.
默认情况下,perl将在执行正则表达式匹配时自动使用当前输入行($ _),除非被覆盖(使用=〜).