perlスクリプトをループ/再起動するには？

Question

私はドメインのwhois情報を返す簡単なwhoisスクリプトを作った。完了したら元の端末に戻ります（下の例を参照）。

user@ubuntu:; perl script.pl 
Enter domain name: name.com 
etc... whois information displays here. 
user@ubuntu:; 

最後に、「user @ ubuntu」が返されますが、どのようにして始めに戻ることができますか？

ループしたいです。あなたが行うことができますbashで

Answer 1

：場合にはEOFが、私はundefを=〜/ \ wはしたくないとundefを生成しない限り、二段を使用し、Perlで

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

Answer 2

、

 
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... 
} 

/を使用して、積極的な警告レベルで実行時の警告を生成します。