in reply to coming out of perl script after 10 min.
Try using a loop and sleep. You may even like to fork a child to do the work.
#!/usr/bin/perl use Modern::Perl; my $sec = 0; while($$) { # Do something. May want to fork a child to do the work. say "running...[$sec]"; exit if $sec == 600; sleep 1; $sec++; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: coming out of perl script after 10 min.
by afoken (Chancellor) on Mar 06, 2013 at 18:30 UTC | |
by BrowserUk (Patriarch) on Mar 06, 2013 at 19:30 UTC |
In Section
Seekers of Perl Wisdom