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

[dil]

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

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

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

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

оттуда же:

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

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

ненавижу.

Comments

[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.