[Moscow.pm] Синхронно-асинхронная инициализация одинаковых процессов

[Kaltashkin Eugene]

22.03.2010 12:57, Evgeniy Kosov пишет:
>>
>> $lockfile = "/var/tmp/pradm_memcached_config_load.lock";
>> if(!-f $lockfile)
>> {
>>   print STDERR "$$ Creating lock file\n";
>>   open OUT,">$lockfile" or die "Cannot write to $lockfile $!";
>>   print OUT $$;
>>   close OUT;
>>   $lock = 1;
>> }
>> else
>> {
>>   undef $lock;
>>   print STDERR "$$ Lock file already exist\n";
>> }
>>
>
>
> Эмм.. Кагбэ не очень.. неправильно так делать.
>
> Юзайте что-нить с CPAN:
> http://search.cpan.org/search?query=Lock+file&mode=all
>

Поясните тогда в чём это неправильно ?
fopen в перле сильно отличается от fopen в C ?
мне нужно сначала создать файл и проверить есть оно или нет потом.
тоже самое происходит если в memcached или fastmmap запихивать значение, 
а потом пытаться его читать.