perl小记

perl是一种运行式脚本，所以在debug的时候，多用print，在后台看有没有输出相关的结果，来判断相应的错误。

部分perl正则表达式：

$gene =~/^LOC/ 以“LOC”开头的字符串

$gene =~/^[0-9]/ 以数字开头的字符串

$gene =~/^--/

if($gene =~/^A_[0-9]+_/){
print $gene . "\n";
next;
}以A_+数字_开头的字符串，然后就是print打印，看看有没有改变。