Perl tampon d'impression flush

Question

J'ai le code Perl suivant:

STDOUT->autoflush(1); 

foreach(...) 
{ 
    ... 

    foreach(...) 
    { 
     print("Processing $folder"); 
     $|=1; 
     process($folder); 
    } 
    ... 
} 

mais l'instruction d'impression ne fonctionne que dans la première itération de la boucle et n'imprime rien après. Une idée pourquoi?

EDIT: J'ai trouvé la raison et je l'ai ajouté dans la réponse. La solution était:

I a ajouté la ligne suivante dans la boucle et cela a fonctionné:

select STDOUT;

Je pense que le code dans la fonction process() aurait dû modifier le tampon de sortie par défaut. C'était un code écrit par quelqu'un d'autre!

Je ne sais pas si cela est un problème avec Perl qui permet ceci ou le développeur qui n'a pas changé en arrière par défaut.

Le code final ressemblait à ceci:

foreach(...) 
{ 
    ... 

    foreach(...) 
    { 
     select STDOUT; 

     print("Processing $folder"); 
     $|=1; 
     process($folder); 
    } 
    ... 
} 

Merci à tous ...

Answer 1

Un bon travail de détective pour traquer ce problème!

Je voudrais suggérer une autre solution.

Plutôt que d'avoir select() guerres avec l'auteur de process(), vous pouvez utiliser l'interface IO::Handle à STDOUT:

use IO::Handle; 

foreach(...) 
{ 
    ... 

    foreach(...) 
    { 
     STDOUT->printflush("Processing $folder"); 

     process($folder); 
    } 
    ... 
} 

Answer 2

I a ajouté la ligne suivante dans la boucle et il a travaillé:

select STDOUT; 

Je pense la fonction code in process() aurait dû modifier le tampon de sortie par défaut. C'était un code écrit par quelqu'un d'autre!

Je ne sais pas si c'est un problème avec Perl qui permet à celui-ci ou au développeur qui ne l'a pas modifié par défaut.

Le code final ressemblait à ceci:

foreach(...) 
{ 
    ... 

    foreach(...) 
    { 
     select STDOUT; 

     print("Processing $folder"); 
     $|=1; 
     process($folder); 
    } 
    ... 
} 

Merci à tous ...

Answer 3

Mon code ressemble à ceci:

#!/usr/bin/perl -w 

use strict; 
use warnings; 
use sigtrap qw/handler signal_handler normal-signals/; 
use feature qw(say); 

my $datetime; 
$datetime = localtime(); 

say "tester started $datetime"; 

while (1) { 
    select STDOUT; 
    $datetime = localtime(); 
    say "tester output every second $datetime"; 
    $|=1; 
    sleep (1); 
} 

sub signal_handler { 
    die "\nCaught a signal $!\n"; 
}