use Perl

• inet ports? (Score:1)

  by ddick (5726)

  seems like a possible option.
• DATA (Score:2)

  by djberg96 (2603)

  Oh, neat trick. I never thought of that, thanks.

  BTW, it _should_ work on Windows, though I guess I'd have to see your implementation to understand why it doesn't. Windows does have LockFile and LockFileEx, which is how flock is implemented in Ruby on Windows. I would think Perl would have a very similar implementation.
• works for me????? (Score:1)

  by ddick (5726)

  #! /usr/bin/perl
  
  use Fcntl();
  
  sleep 2;
  
  print "Locking....\n";
  unless (flock(DATA, Fcntl::LOCK_EX())) {
      die("Failed to lock:$!");
  }
  print "Locked.....\n";
  sleep 5;
  
  __DATA__

  works for me on an XP virtual machine with strawberry perl.

  when doesn't it work?
• Me too (Score:1)

  by link (3402)

  Works for me with activeperl 5.8.8 but it is not printing failed to lock. I think the flock stops perl loading the script at all so nothing is executed but it is hard to tell without an error message of some sort.
• Sys::RunAlone (Score:1)

  by jouke (587)

  Isn't that what Liz's Sys::RunAlone does? ;-)