Как зациклить / перезапустить Perl-скрипт?

Question

Я сделал простой сценарий whois, который возвращает информацию whois о домене.После этого он возвращается к исходному терминалу, пример ниже.

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

В конце возвращается «user @ ubuntu», как мне заставить его вернуться к началу?1005 * Я хочу это зациклить.

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