perl - 如何在 perl 中重新打开 STDIN <>？

Question

如何第二次打开 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

Answer 1

你不能，你已经清空了流。如果您想再次使用它，请将这些行放入一个数组中。

my @lines;
while( my $line = <>)  {
    print $line;
    push @lines, line;
}

foreach my $line (@lines)  {
    print $line;
}

或者，写入文件并获取文件的文件句柄。