alexkuklin: (Default)
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
alexkuklin: (Default)
открыл для себя конструкцию в perl:
$worksheet->set_row($_, 36) for (3..8);

Profile

alexkuklin: (Default)
alexkuklin

January 2016

S M T W T F S
     12
34567 89
10111213141516
17181920212223
24252627282930
31      

Syndicate

RSS Atom

Most Popular Tags

Style Credit

Expand Cut Tags

No cut tags
Page generated Sep. 25th, 2017 03:01 pm
Powered by Dreamwidth Studios