小编Bil*_*kas的帖子

我怎样才能第二次打开STDIN？

假设我有这些数据

John Smith  25  O   ATG 180
Peter Jackson   40  AB  GGTA    173
Carl Anderson   32  A   GGT 172

我有这个代码

while( my $line = <>)  {
    print $line;
}
while( my $line = <>)  {
    print $line;
}

我想要它打印

John Smith  25  O   ATG 180
Peter Jackson   40  AB  GGTA    173
Carl Anderson   32  A   GGT 172
John Smith  25  O   ATG 180
Peter Jackson   40  AB  GGTA    173
Carl Anderson   32  A   GGT 172