How to loop/restart a perl script?

Question

I have made a simple whois script that returns back the whois information of a domain. Once it's done it returns back to the original terminal, example below.

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

At the end the "user@ubuntu" returns, how do I get it to go back to the start?

I want to loop it.

Is that different from just running it again? – Thilo Aug 11 '11 at 10:19 — Thilo, Aug 11 '11 at 10:19
Are you asking how to do loops in perl/bash? – TLP Aug 11 '11 at 14:38 — TLP, Aug 11 '11 at 14:38

score 1 · Answer 1 · answered Aug 11 '11 at 11:08

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

Used a two-stage unless in case EOF produces undef as I don't want undef =~ /\w/ to produce run-time warnings on aggressive warning levels.

score 0 · Answer 2 · answered Aug 11 '11 at 10:18

0

in bash you can do:

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

answered Aug 11 '11 at 10:18

Patrick B.

11,773
8
58
101

while(1){ # Your current code here # } That was what I was looking for. – Helloz Aug 11 '11 at 10:21

How to loop/restart a perl script?

2 Answers2