让程序只能启动一份

有时写的程序因为资源等等原因，应该只启动一份。利用指定的文件锁，可以实现这样的功能。

import os
import fcntl
import errno

def lock_file(filename):
    fd = os.open(filename, os.O_CREAT | os.O_WRONLY, 0666)
    try:
        fcntl.lockf(fd, fcntl.LOCK_EX | fcntl.LOCK_NB)
        return True
    except IOError, e:
        if e.errno in (errno.EACCES, errno.EAGAIN):
            return False

if not lock_file('/tmp/test.lock'):
  print "another instance is running"lock_file('/tmp/test.lock')

再附上一份perl的代码：

use Fcntl qw(:flock);

  my $lockdir = 'lock';
  if (!-d $lockdir) {
      mkdir $lockdir, 0755;
      my $status=$!;
      die "Failed to create $lockdir: $status\n" if (!-d $lockdir);
  }
  my $lockfile="$lockdir/test.pid";
  if (!open(PID, ">$lockfile")) {
    die "can not open pid file\n";
  }
  unless (flock(PID, LOCK_EX|LOCK_NB)) {
    die "can not lock pid file\n";
  }
  print "locked\n";

顺便再抱怨两句，perl5补丁摞补丁的语法很怪异，异常处理机制竟然要用if...unless，类的写法也搞得跟写dll一样。不得不说，perl的语法离现代语言太远了。一个优美的语言可以提高开发效率，期待一下perl6最终出来的样子。

在python和perl程序中启用logging记录日志

写一些脚本程序的时候，合理的记录日志是必不可少的，尽量不往stdout乱打印信息为好，这时python的logging模块很用用处。不过调试时为了方便，还是希望日志也打印到stdout一份，这样出现什么问题一目了然；否则就只有再开个terminal，用tail -f my.log来检查了。

import logging

def _init_logging(logfile, debug=False):
    if debug:
        level = logging.DEBUG
    else:
        level = logging.INFO
    logging.basicConfig(level=level, format='%(asctime)s %(message)s',
            datefmt='%Y-%m-%d %H:%M:%S', filename=logfile, filemode='w')
    if debug:
        console = logging.StreamHandler()
        console.setLevel(logging.DEBUG)
        formatter = logging.Formatter('%(asctime)s %(levelname)-8s %(message)s')
        console.setFormatter(formatter)
        logging.getLogger('').addHandler(console)

if __name__ == "__main__":
    import os
    debug = os.environ.get('DEBUG') and True or False
    _init_logging('my.log', debug=debug)
    logging.info('start')

    logging.info('end')

这样程序就会知道检查环境变量DEBUG，往合适的地方打印信息了。调试程序时执行方法：

$ DEBUG=1 ./my.py
2007-10-22 17:30:59,917 INFO     start
2007-10-22 17:31:02,027 INFO     end

最近还写了一些perl代码，和上面差不多功能的perl代码也贴出来：

use strict;
use Log::Log4perl qw(:easy);

my $log_file = "/tmp/my.log";

if (exists $ENV{DEBUG} && $ENV{DEBUG}) {
  Log::Log4perl->easy_init(
    {file  => ">> " . log_file, level => $DEBUG},
    {file  => "STDOUT", level => $DEBUG},
  );
} else {
  Log::Log4perl->easy_init(
    {file  => ">> " . $log_file, level => $DEBUG},
  );
}

INFO("start...");

这里用到log4perl模块，需要提前安装：

sudo perl -MCPAN -e'install Log::Log4perl'

虽然适应了一段时间，但perl满眼$@%这些助记符，还是很阻碍阅读和思维连贯，不习惯。

睡觉还是思考，这是个问题

晚上回家，意外发现被防盗门挡在了屋外。防盗门不防小偷，倒防主人，真是奇怪。叫来开锁公司，师傅跟铁门叫了一个多小时的劲，最终还是无功而返，我们一起被楼上吵得忍无可忍的邻居给轰走了。无奈之下，只有回办公室委屈一夜了，真是郁闷。

以前熬夜的时候，要么整晚不睡，要么是办公室有沙发，可以当成临时的床。现在的办公室没沙发这个设备，经过一番调研，决定用三个椅子拼在一起。按从电视看到的经验，这应该是办公室临时床铺的经典模式，不少人应该都这么干过，不过睡到上面的感觉可是只有自己心知肚明了。中间的椅子正好硌着腰眼，肩膀也只能有半个放到椅子面上，感觉别提多难受了。可就在这时，明明已经累的够呛，眼皮都酸的不想抬起来了，脑袋里的思想倒活跃起来了，平常做沙发上闭目沉思都没这时候想法多。可见现今哲学家变少是有道理的，只有睡硬板床的人各种稀奇古怪的想法才能层出不穷，有了席梦思睡的谁还瞎琢磨事呀，早呼呼大睡了。就在辗转反侧--俗称“烙饼”--之际，已经把手机里GTD软件里的事情又review了一遍，这次效率真高，很高兴；但是又发现严重拖延的事情非常多，继续郁闷...下半年其实过得不好，事实证明计划不如变化，现在离梦想中的幸福生活似乎更加遥远了...烙饼到第九圈，还是睡不着。人生苦短，可竟然还得睡觉。据说达芬奇天天打盹，加起来每天只睡两三个小时，看他能研究那么多领域也就不足为奇了。我不求达到奇人的地步，只要让我今晚少睡几个小时，明天照样能精神起来就好了。

这个故事告诉我们，家里床铺不好的人有可能得腰锥疾病，也有可能成为一代大家，切记切记。