Maximum End Time

[mantra2006]

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";

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

[Limbic~Region]

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) {
    # ...
}

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.

[Animator]

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.

[BigJoe]

Can you add more code so we can see how you are looping? This will help us give you an answer to your question.