gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-05 01:08:34 27 4
gpt4 key购买 nike

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

最佳答案

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

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

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

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

关于perl - 如何在 perl 中重新打开 STDIN <>?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9617522/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com