关于RPM的%config和(noreplace)
这篇文章翻译自这里， 是一篇关于制作RPM包中的一个比较难于理解的地方。 不做开发的同学就不要看了。
莱文斯坦距离
响应realazy的号召努力学习算法中。 这个莱文斯坦算法(Levenshtein Distance)还是比较好理解而且很实用的，放在这里做个备份吧。
原文请见 http://www.merriampark.com/ld.htm 。
什么是莱文斯坦距离？
莱文斯坦距离(LD)用于衡量两个字符串之间的相似度。 以下我们称这两个字符串分别为 s (原字符串) 和 t (目标字符串)。莱文斯坦距离被定义为’‘将字符串 s 变换为字符串 t 所需的删除、插入、替换操作的次数’‘。
例如：
- s=”test”, t=”test”, 那么 LD(s,t)=0，因为不需要做任何变换两者已相等；
- s=”test”, t=”tent”, 那么 LD(s,t)=1，因为s变换为t只需做一次替换(将”s”替换为”n”)。
莱文斯坦距离越大，字符串的相似程度越低。
莱文斯坦距离以俄国科学家Vladimir Levenshtein命名，他于1965年发明了这个算法。 如果你对Levenshtein这个词的发音有问题，也可以称这个距离为编辑距离。
莱文斯坦距离被应用于以下领域：
- 拼写检查
- 语音识别
- DNA分析
- 剽窃检测
算法
- 设 s 的长度为 n，t 的长度为 m。如果 n = 0，则返回 m 并退出；如果 m=0，则返回 n 并退出。否则构建一个数组 d[0..m, 0..n]。
- 将第0行初始化为 0..n，第0列初始化为0..m。
- 依次检查 s 的每个字母(i=1..n)。
- 依次检查 t 的每个字母(j=1..m)。
- 如果 s[i]=t[j]，则 cost=0；如果 s[i]!=t[j]，则 cost=1。
- 将 d[i,j] 设置为以下三个值中的最小值：
- 紧邻当前格上方的格的值加一，即 d[i-1,j]+1
- 紧邻当前格左方的格的值加一，即 d[i,j-1]+1
- 当前格左上方的格的值加cost，即 d[i-1,j-1]+cost
- 重复3-6步直到循环结束。d[n,m]即为莱茵斯坦距离。
代码
代码请参考原文网站。 该网站给出了 Java、C++、Visual Basic三种语言的实现， 又在页面最下方的链接中给出了Perl、PL/SQL、TSQL、C#、Delphi、PHP 等数十种语言的实现方式。
所以我在这里就不献丑啦～。
从相机复制照片的小程序
我习惯于将照片按照拍摄时间保存到硬盘上的 YYYYMMDD 目录下，但每次都手工查看拍摄时间再建目录、复制实在是费时费力，于是写了这个程序，放在桌面上只要双击一下就可以将照片按照日期复制过来。当然只考虑了Win32版，估计我不太可能在Linux下用相机……需要安装ActivePerl，并用ppm安装Win32::DriveInfo模块。
另外，我只有一台T10，所以这个程序只考虑了T10的情况，各位读者不妨说说自己的相机的目录结构？我的相机目录结构如下：
- 型号：SONY Cybershot T10
- 根目录：DCIM
- 照片目录：101MSDCF, 102MSDCF, 103MSDCF, …, 999MSDCF
[Perl]use Test::Base;
Test::Base是什么？用官方的说法是“数据驱动的测试”。Test::Base是一个测试框架， 只要给它提供测试数据，它就能自动进行单元测试，省却了手工编写测试程序的麻烦。
可能有人用过Test::More模块进行自动测试，那么我推荐你使用Test::Base。Test::Base 与Test::More完全兼容，也就是说你可以仅仅将use Test::More;换成use Test::Base; 而不用改动任何其他代码；其次，Test::Base可以提供更为简单的测试方法， 让你不必在繁琐的测试程序上花费时间。
[PHP]getdate()等时间函数的时区问题
这两天一直被一个问题所困扰。同样的一段程序，在自己的机器上调试完全没有问题，放到服务器上时间显示就快了8个小时。显然这8个小时就差在时区设置上。我在自己的机器上写代码时，对timestamp进行了时区调整（$now += 8 * 3600）之后再进行getdate()转换，结果完全正确；放到服务器上执行，就要将时区调整代码去掉之后才正常。一时百思不得其解。
写了个小测试程序：先用 time() 取得当前时间戳，再用 getdate() 获取当前的小时、分、秒，分别放到开发环境和服务器上执行。结果很显然，服务器上显示的时间是正确的（22点显示为22点），而我的机器的时间是错误的（22点显示为14点）。从时区的角度来看，服务器使用了正确的CST时区（中国时区），而我的开发环境的时区则是UTC的。但开发环境操作系统是Windows，时区设置也正确，为什么会出错？
从窄多的blog上看到，通过date_default_timezone_set()函数可以设置默认时区名。天啊，居然有这样的函数，查了查资料发现它的反义函数date_default_timezone_get()，将这个函数分别在开发环境和服务器上执行，果然，我的时区设置为 UTC。
知道了原因就好修改了。打开开发环境中的 php.ini，找到 date.timezone，去掉注释并将其设置为 Asia/Chongqing，再运行，这次结果正确了。
[Perl]类封装方法以及Class::Std的使用
众所周知Perl 5的面向对象并不是真正意义上的面向对象， 只是添加了一些函数使得它看起来像是面向对象而已。 通常bless出来的对象，它的属性可以被外部程序直接访问。 《Perl Hacks》的#43给出了一个方法，可以封装类属性， 使其不能直接被外部访问。另外 Class::Std 模块可以简单地实现这个方法。
[Perl]Ackermann函数和Memoize模块
今天阅读《Perl Hacks》这本书，看到Ackermann函数和Memoize模块的介绍， 才想起以前在学习递归和算法的时候曾经见过这个Ackermann， 不过那时怎么也没有想到这个函数居然有如此强大的“威力”——发散得极其迅速， 以至于参数稍大一点就不可能算出它的精确值。于是它经常被用作电脑的benchmark……
Ackermann函数是数学史上和计算机史上的一个经典递归函数，它的表达式并不复杂， 但却几乎无法计算。其表达式如下：
A(m,n) = n+1 when m=0;
= A(m-1,1) when n=0;
= A(m-1,A(m,n-1)) otherwise.
用Perl语言写成代码如下：
sub ackermann {
my ( $m, $n ) = @_;
return $n + 1 if $m == 0;
return ackermann( $m - 1, 1 ) if $n == 0;
return ackermann( $m - 1, ackermann( $m, $n - 1 ) );
}
计算这个函数的值需要非常长的时间，因为该函数在 m 增加时发散得异常迅速…… 至于如何迅速大家可自行查资料（这个函数中文似乎叫做阿克曼函数）。
[Perl]gVim+Perl::Tidy快速格式化代码
书写代码时要保持良好的代码风格，缩进、注释、空行等东西一个都不能错。 不过这一点很难做到，即使是一个经验丰富的程序员也难免弄错， 更别说新手了。另外，有时阅读别人写得面条代码也是异常头疼。 不过 Perl 提供了 Perl::Tidy 这个工具可以直接将乱七八糟的 Perl代码整理成格式完美的代码。
我用的是 Windows 下的 ActivePerl 5.8， 因此首先要通过 ppm 安装 Perl::Tidy 软件包。安装方法很简单，启动 ppm 之后 s Perl-Tidy 然后 install 就可以了，不再细说。
Linux下的同学们可以直接去 CPAN 下载源代码进行编译。
安装完成后会生成一个 perltidy 命令。Windows版也有这个命令（位于 C:\Perl\bin\perltidy.bat）， 当然前提是你将 C:\Perl\bin 加到了你的 PATH 中。
对某个Perl源代码只要运行下面的命令即可：
perltidy foo.pl
整理好格式的代码会保存为 foo.pl.tdy。
我常用的编辑器是 gvim，自然想到如何将这个功能集成到 gVim 中。 方法很简单，建立 perl.vim，内容如下：
" 调用perltidy整理源代码
nnoremap ,pt :%!perltidy<CR>
vnoremap ,pt :!perltidy<CR>
然后将 perl.vim 放到 C:\Program Files\Vim\vimfiles\ftplugin 目录下即可。 以后打开perl源代码之后，直接用 ,pt 快捷键或者用 Shift-V 选择之后再用 ,pt 即可整理正在编辑的代码的格式。
2008-2-14更新
为perltidy加上 -t -nola 参数之后，即可使用TAB缩进而不是空格缩进。perl.vim如下：
" 调用perltidy整理源代码
nnoremap ,pt :%!perltidy -t -nola<CR>
vnoremap ,pt :!perltidy -t -nola<CR>
Servlet/JSP学习笔记(8)-Filter的应用
Servlet有一个很有意思也很有用的功能，就是Filter。 所谓Filter，就是在用户请求到达 Servlet 之前、或者 Servlet 执行之后， 执行的一段小程序，这段程序可以对用户请求做预处理， 或者对Servlet返回的结果进行一些公用处理。
Filter可以在请求到达 Servlet 之前执行， 甚至即使请求一个静态页面或图片等，Filter也会被优先执行。 这样我们可以通过Filter对应用程序内的所有对象（包括Java程序和静态内容）进行预处理。 （这个功能恐怕PHP程序就无法做到了。）