Logo

Programming-Idioms

  • Rust
  • Perl

Idiom #185 Execute function in 30 seconds

Schedule the execution of f(42) in 30 seconds.

use threads;
my $thr = threads->create(sub { sleep(30); f(42); });
$thr->join()

join() waits for $thr to finish
local $SIG{ALRM} = sub { f(42) };
alarm 30;

Attach a handler to an alarm signal. Then ask the OS to deliver the signal in thirty seconds. NOTE: can handle only one delayed task at a time.
use threads;

my $thr = threads->create(sub { sleep(30); f(42); });
$thr->detach();

Uses Perl 5.6 threads. Note that if the main program exits without having join()ed the thread, the thread will be killed.
use std::time::Duration;
use std::thread::sleep;
sleep(Duration::new(30, 0));
f(42);

(do (Thread/sleep 30000)
    (f 42))

Clojure is a hosted language, and relies on host interop for things like this
New implementation...
< > ⌨
programming-idioms.org 
my $thr = threads->create(sub { sleep(30); f(42); });
$thr->join()
local $SIG{ALRM} = sub { f(42) };
alarm 30;
my $thr = threads->create(sub { sleep(30); f(42); });
$thr->detach();
sleep(Duration::new(30, 0));
f(42);

(do (Thread/sleep 30000)
    (f 42))
Task.Delay(TimeSpan.FromSeconds(30))
    .ContinueWith(_ => f(42));
Future.delayed(const Duration(seconds: 30), () => f(42));
go func() {
	time.Sleep(30 * time.Second)
	f(42)
}()
timer := time.AfterFunc(
	30*time.Second,
	func() {
		f(42)
	})
sleep(30*1000)
f(42)
let id = setTimeout(f, 30000, 42);
Thread t = new Thread(() -> {
    try {
        sleep(30_000);
        f(42);
    } catch (InterruptedException e) {
        throw new RuntimeException(e);
    }
});
t.start();
ScheduledExecutorService executorService = Executors.newSingleThreadScheduledExecutor();
executorService.schedule(() -> _f(42), delayInSeconds, TimeUnit.SECONDS);
sleep(30);
f(42);
timer = threading.Timer(30.0, f, args=(42,) ) 
timer.start() 

Thread.new do
  sleep 30
  f(42)
end

(f future: 30 "seconds" * 1000) value: 42.