пятиминутка ненависти

[dil]

сегодня - к тупым недопрограммистам

которые во избежание одновременного запуска двух экземпляров скрипта в начале работы создают пид-файл, а в конце удаляют. а если файл уже есть, то скрипт тихо вываливается.

естественно, в один прекрасный день он умер, не стерев за собой файл.

а про flock этим уродам в колледже не рассказали.

оттуда же:

     if ($username eq "")
         { exit;  }

     if ($username eq "")
       { 
        ...
       }
     else
     {
       ...

ненавижу.

Comments

[alz421.livejournal.com]

Sun Microsystems Inc. SunOS 5.10 Generic January 2005
You have new mail.
-bash-3.00# which flock
no flock in /usr/sbin /usr/bin

Так что не все так просто...

[dil.livejournal.com]

это перловый скрипт
http://perldoc.perl.org/functions/flock.html

[alz421.livejournal.com]

не обязательно, в линуксе это flock(1), к тому же нигде не было упомянуто что речь о перле :)
Надо будет проверить наличие перлового варианта на разных платформах...

[dil.livejournal.com]

в линуксе, солярке и аиксе работает

[dil.livejournal.com]

$uname -a
SunOS 5.10 Generic_118833-03 sun4u sparc SUNW,Ultra-4

$perldoc -f flock
     flock FILEHANDLE,OPERATION
             Calls flock(2), or an emulation of it, on
             FILEHANDLE.  Returns true for success, false on
             failure.  Produces a fatal error if used on a
             machine that doesn't implement flock(2), fcntl(2)
             locking, or lockf(3).  "flock" is Perl's portable
             file locking interface, although it locks only
             entire files, not records.