如何循环/重启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

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

使用两个阶段，除非EOF产生undef，因为我不希望undef =〜/ \ w /在激进警告级别上产生运行时警告。

Answer 2

你可以在bash中执行：

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