(no subject)

use Proc::PID::File;
if ( my $pid = Proc::PID::File->running({dir=>'/opt/project/temp', verify=>1}) ) {
die 'Already running, pid='.$pid;
}

via http://perl.blogit.ru/2006/07/14/11

Posted using LJ Talk...

http://connect.rif.ru/prog2007/98
КР.СТОЛ Б-7 (#14)
Свободное ПО против коммерческого: риски и преимущества для России

Доклады в секции
( Read more... )

(no subject)

Для генерации алфавитного указателя средствами xslt написал штуку, выдающую в xml кусок

( Read more... )

интересно, это достойно code_wtf?