Question

刚学perl，怎样用文件句柄循环读取两个相同符号间的内容？直到读完文件

怎样用文件句柄循环读取两个相同符号间的内容？直到读完文件，例如现在有文件
>Traes_5BL_3FC5BA305.1 pep:novel scaffold:IWGSC2:IWGSC_CSS_5BL_scaff_1082268:5:1

99:-1 Traes_5BL_3FC5BA305 transcript:Traes_5BL_3FC5BA305.1

>Traes_6BL_9BB648D51.1 pep:novel scaffold:IWGSC2:IWGSC_CSS_6BL_scaff_430516:302:

1741:-1 Traes_6BL_9BB648D51 transcript:Traes_6BL_9BB648D51.1

>Traes_5AL_E5BFD820E.1 pep:novel scaffold:IWGSC2:IWGSC_CSS_5AL_scaff_277801:1:20

0:1 Traes_5AL_E5BFD820E transcript:Traes_5AL_E5BFD820E.1
怎样才能依次读取>符号之间的内容？

Answer 1

use 5.014;
open FH , "<" ,"test.txt";
$/ = '>';
while(<FH>){
    chomp;
    say;
}