perl是一种运行式脚本,所以在debug的时候,多用print,在后台看有没有输出相关的结果,来判断相应的错误。
部分perl正则表达式:
$gene =~/^LOC/ 以“LOC”开头的字符串
$gene =~/^[0-9]/ 以数字开头的字符串
$gene =~/^--/
if($gene =~/^A_[0-9]+_/){
print $gene . "\n";
next;
}以A_+数字_开头的字符串,然后就是print打印,看看有没有改变。
时间: 2024-10-08 17:40:27