Comment boucler/redémarrer un script Perl?

Question

J'ai fait un script whois simple qui retourne les informations whois d'un domaine. Une fois cela fait, il revient au terminal d'origine, exemple ci-dessous. A la fin, le "user @ ubuntu" revient, comment puis-je le faire revenir au début?

Je veux le boucler.

Answer 1

en bash vous pouvez faire:

while [ /bin/true ] 
do 
    perl script.pl 
    sleep 1 
done 

Answer 2

En perl,

 
while (1) 
{ 
    print "Enter domain name: "; 
    my $domain = <>; 
    last unless $domain && $domain =~ /\w/; 
    domain =~ s/\s+//g;   #super-chomp is good idea 
    your code here... 
} 

Utilisé deux étapes, sauf dans le cas où EOF produit FNUD que je ne veux pas FNUD = ~/\ w/pour produire des avertissements d'exécution sur des niveaux d'avertissement agressifs.