Comment rouvrir STDIN <> en perl ?

Question

Comment ouvrir STDIN pour la deuxième fois ?

Supposons que je dispose des données suivantes

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

Et j'ai ce code

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

Je veux qu'il s'imprime

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

Vous ne pouvez pas, vous avez vidé le cours d'eau. Si vous voulez le réutiliser, mettez les lignes dans un tableau.

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

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

Ou encore, écrire dans un fichier et obtenir un filehandle sur le fichier.

Answer 2

Si STDIN est attaché à un fichier, vous pouvez alors seek(STDIN, 0, 0) mais en général, vous ne pouvez pas faire ce que vous demandez.

Answer 3

Vous pouvez toujours récupérer le nom du fichier au lieu d'utiliser STDIN.

$fn = shift;
open(MyFile,"< $fn") || die "cant open $fn $!";
while(MyFile) { } # first time thru
seek MyFile,0,0
while(MyFile) { } # second time thru

S'il s'agit d'une liste de fichiers, vous pouvez les parcourir en boucle.