Maximum End Time

mantra2006 has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks

In one script I am using the following statement to set the cutoff time.
I want to use the script in both ways like if the time is entered the script will
come out after that time is reached and if user
don't enter any time then it should not comeout
like forever loop
I used the following statement...basically 99:99 I just specified to
take maximum hours and mins...

local($ttim)=defined $ARGV[1] ? $ARGV[1] : "99:99";
[download]

Is there a good way to specify to get into infinite loop

Thanks & Regards
Sridhar

Comment on Maximum End Time Download Code

Replies are listed 'Best First'.
Re: Maximum End Time by Limbic~Region (Chancellor) on Sep 20, 2006 at 17:14 UTC
mantra2006, It sounds like what you want is alarm. The code would look something like: `print $time_out_request_msg; my $time_out = <STDIN>; chomp $time_out; if (valid_timeout($time_out)) { $SIG{ALRM} = sub { # ... }; alarm $time_out; } while (1) { # ... }` [download] Update: The original node was modified by mantra2006 a couple of times after this reply so this reply may no longer be pertinent as a result. Cheers - L~R	[reply] [d/l]
Re: Maximum End Time by Animator (Hermit) on Sep 20, 2006 at 20:48 UTC
Please read Coping with Scoping. It is much cleaner to use `my` instead of `local`. Basically `local` is something you would use in Perl 4. In Perl 5 you almost always want `my`. You want to know how to use it and/or why you should use it? Read the page I mentioned earlier.	[reply] [d/l] [select]
Re: Maximum End Time by BigJoe (Curate) on Sep 20, 2006 at 17:08 UTC
Can you add more code so we can see how you are looping? This will help us give you an answer to your question. --BigJoe Learn patience, you must. Young PerlMonk, craves Not these things. Use the source Luke.	[reply]