Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Perl

Idiom #230 Timeout

Cancel an ongoing processing p if it has not finished after 5s.

use Coro;
my $p = Coro->new( sub { ... } );
$p->ready;

my $start = time;
for (1..100) {
    cede;
    if ( (time - $start) > 5 ) {
        $p->cancel;        
        last;
    }
}

CPAN module Coro provides threading support. Here we create a thread $p to do some work, and in the main thread we cede control to it within a loop doing other work. When the current time minus start time exceed 5 seconds, we cancel thread $p.
def main(p) do
  p
  |> Task.async()
  |> Task.await()
end
New implementation...
< > ⌨
programming-idioms.org 
my $p = Coro->new( sub { ... } );
$p->ready;

my $start = time;
for (1..100) {
    cede;
    if ( (time - $start) > 5 ) {
        $p->cancel;        
        last;
    }
}

def main(p) do
  p
  |> Task.async()
  |> Task.await()
end
ctx, cancel := context.WithTimeout(context.Background(), 5*time.Second)
defer cancel()
p(ctx)
Thread p = new Thread(() -> {});
p.start();
p.join(5_000);
p.interrupt();
var
  P: TProcess;
begin
  ...
  P.Execute;
  if not P.WaitOnExit(5000) then P.Terminate(0);
end.
Timeout::timeout(5) { p }
timeout(Duration::from_secs(5), p()).await;