проверить запущена ли perl программа

[ProFTP]

нашел такую штуку
http://search.cpan.org/~cwest/File-Pid- ... ile/Pid.pm

что-то не понял

Код: Выделить всё

use strict;
use DBI;
use Fcntl ':flock';
use File::Pid;

  my $pidfile = File::Pid->new({
    file => '/var/run/ll.pid',
  });

#  my $pid = $pidfile->pid;
#  print $pid;

use POSIX 'getpid';

my $pid_script = &getpid;
print $pid_script;

  $pidfile->write;

  if ( my $num = $pidfile->running ) {
      die "Already running: $num\n";
  }
................................................................................

print '1ghjfgj'; # test
$pidfile->remove;        
exec qw(perl -0777 -i -pe), 's/$/\n' . $pos . '/', $0;
    exit;
}

__DATA__
76402

я запускаю

Код: Выделить всё

# ./ll.pl
404091ghjfgj# 
# ./ll.pl
Already running: 40410
40410# 
# ./ll.pl
404111ghjfgj# 
# ./ll.pl
Already running: 40412
40412# 

почему он пишет через один раз что скрипт уже запущен? скрипт выполняется быстро...

pid все время один чтоли??

ЗЫ что-то hizel давно не было

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[paradox]

а ты смотри на пидфайла
видать медленно удаляеться

зы
хизель сегодня был
вот зингеля давно небыло
он руку поламал

[ProFTP]

[hizel]

кашмар не уважаешь ты софорумчан, даже perltidy не причёсываешь свой код, стыдно

[ProFTP]

кашмар не уважаешь ты софорумчан, даже perltidy не причёсываешь свой код, стыдно

скрипт маленький, зачем тот perltidy?

предыдущий пост я удалил так как он через раз пишет что работаает скрипт уже работает!

[ProFTP]

вот зингеля давно небыло
он руку поламал

передай пускай выздоравливает