in reply to Breaking issue

Most likely, the error is in your loop or your loop condition.

I imagine that your loop looks something like:

my $user_id = <>; # the scanner sends keyboard input
my $person_timeout = time() + 30; # 30 seconds until we consider the s
+can done

while( time < $person_timeout and my $book_id = <> ) {
    $person_timeout = time() + 30; # 30 seconds until we consider the 
+scan done
    print "Person $user_id has checked out book $book_id\n";
}

[download]

In my toy example, the program will re-enter the loop and try to read from the scanner. Even if the timeout passes, it will still be waiting for the input.

Without knowing more about your program, your loop and how things are structured, I can't really give more concrete advice. Maybe you can show us a short example that reproduces your problem. The example should not be longer than 30 lines.

Replies are listed 'Best First'.
Re^2: Breaking issue
by jayvillach (Novice) on Jul 18, 2017 at 13:01 UTC

    Hi Corion Thak you for the example and also for the quick response. Yes you are right the structure is more or less the same but here we have if instead of while, but can you guide me how I can make it so that the scanner wont wait for information and update it ?

[reply]
[reply]

        hi Corian Thaks a lot for the advice again. But it did not work. As you said that a small example of the code will help, so here it goes, 

        use strict;
use warnings;


use constant UPDATE; 
use constant TIMEOUTVALUE => 10;
while(1)
    {
     if ($scan = PERSONID) {
        #give status for the book, for example - borrowed 
     
        }
     elsif ($scan = Book)
        {
         if ($transaction->{'STATE'} = PERSONID)
            {
             push (@(transaction->{'BOOK'}))
            }
         
         my $valid = 1;
         if (($transaction-> TIMEOUTVALUE) >= time() && ($transacion->
+{'STATE'} = PERSONID))
         if ($valid) { $transaction->{'STATE'} = UPDATE; }
        }
     if (($transaction->{TIMEOUTVALUE} >= time()) && ($transaction->{'
+STATE'} = BOOK))
        {
        
        }
     else {$transaction->{'STATE'} = UPDATE;
     
     
          }
    }

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom