perl - 如何在输入期间从 FASTA 格式文件中删除第一行？

Question

我想从 FASTA 文件中删除输入期间的第一行，以便我的程序仅将氨基酸序列作为输入。

FASTA 文件的第一行以开头，>它包含序列的“入藏号”及其来源。例如：

>MCHU - Calmodulin - Human, rabbit, bovine, rat, and chicken    
ADQLTEEQIAEFKEAFSLFDKDGDGTITTKELGTVMRSLGQNPTEAELQDMINEVDADGNGTID 
FPEFLTMMARKMKDTDSEEEIREAFRVFDKDGNGYISAAELRHVMTNLGEKLTDEEVDEMIREA 
DIDGDGQVNYEEFVQMMTAK*

Answer 1

跳过以 开头的行>：

while(<>) {
    next if /^>/;
    # ...
}

或者，使用$.(current input line number) 跳过第一个：

while(<>) {
    next if $. < 2;
    # ...
}