Previous - Next

Thread::Semaphore

• I used Thread::Semaphore for this
• If one thread acquires a semaphore, any other thread trying to acquire that same semaphore will block until the first thread releases it
• So I guarded each print statement with a semaphore
• That looked like this:

      use Thread::Semaphore;
      my $output = Thread::Semaphore->new;
  
      # ... later
  
      $output->down;  # acquire semaphore
      print "Writer: connected to $remote_ip:$remote_port\n";
      $output->up;    # release semaphore
  

Previous - Next