Почему не следует искать работу при чтении с/dev/stdin?

Question

Я пытаюсь использовать seek для «перемотать» на начало файла, используя следующий код:

#! /usr/bin/perl 

use strict; 
use warnings; 

my $infile = $ARGV[0]; 
open (FH, "<$infile"); 

while(<FH>) { 
    chomp; 
    print $_,"\n"; 
} 

print "one time","\n"; 

seek FH, 0, 0; 

while(<FH>) { 
    chomp; 
    print $_,"\n"; 
} 

Мой входной файл выглядит следующим образом:

A A A A A A A 
B B B B B B B 

Я бегу свою программу с следующая команда:

cat file | perl script.pl /dev/stdin 

Но вместо того, чтобы мой ожидаемый результат:

A A A A A A A 
B B B B B B B 
one time 
A A A A A A A 
B B B B B B B 

я получаю:

A A A A A A A 
B B B B B B B 
one time 

Почему?

Answer 1

Трубы не искать-состоянии,

seq 5 | perl -Mautodie -pe 'seek ARGV,0,0 if eof' 

дает Can't seek('ARGV', '0', '0'): Illegal seek at -e line 1, но в случае файла он работает, как ожидалось.