Comment interrompre ou reprendre une boucle Perl en appuyant sur une touche?

Question

Ceci est à des fins de débogage. J'ai une boucle for qui génère une sortie vers la CLI de Cygwin bash. Je sais que je peux rediriger les sorties vers des fichiers texte et utiliser Perl ou même simplement un éditeur de texte normal pour inspecter les valeurs imprimées pour une itération particulière, juste sentir un peu douloureux. Ce que je pense maintenant est de placer un sous-programme spécial à l'intérieur de la boucle for, afin qu'il soit "interrompu" au début de chaque itération, et le script Perl ne devrait continuer à fonctionner qu'après que l'utilisateur/programmeur a atteint un touche (la touche Entrée du clavier?)

De cette manière, je peux directement inspecter les valeurs imprimées à chaque itération.

Existe-t-il un moyen simple de faire cela, sans utiliser de bibliothèques/CPAN supplémentaires?

Answer 1

Si vous voulez juste faire une pause pour l'entrée d'utilisateur à chaque itération, alors il suffit de faire une lecture de STDIN dans votre boucle:

my $debug = 1; 
while ($looping) { 
    if ($debug) { 
     print "Press enter to continue\n"; 
     $input = <>; 
    } 
} 

Si le drapeau de débogage est défini, le programme se met en pause jusqu'à ce que l'utilisateur appuie entrez, la boucle reprendra. Vous pouvez imprimer vos variables avant la pause. Définissez $debug = 0 pour désactiver la pause.