perl - Perlスクリプトをループ/再起動する方法は？

Question

ドメインのwhois情報を返す簡単なwhoisスクリプトを作成しました。完了すると、元の端末に戻ります（以下の例）。

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

最後に「user@ubuntu」が返されますが、最初に戻すにはどうすればよいですか？

ループしたい。

Answer 1

パールでは、

ながら ( 1 )
{
    print "ドメイン名を入力してください: ";
    私の $ ドメイン = <>;
    最後でない限り $domain && $domain =~ /\w/;
    ドメイン =~ s/\s+//g; #スーパーチョップはいいアイデア
    ここにあなたのコード...
}

undef =~ /\w/ が積極的な警告レベルでランタイム警告を生成することを望まないため、EOF が undef を生成する場合を除き、2 段階を使用しました。

Answer 2

あなたができるbashで：

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