共 37 页, « 第一页 ... « 4 5 6 [7] 8 9 10 » ... 最后一页 »
昨天一个同事问我关于Perl中的 -| 描述符的问题。 他的程序大概是这样的：
unless (open FH, "-|") {
exec "foo bar"; # 用exec执行另一个程序
exit;
}
while (<fh>) {
...
}
close FH;
$ret = $? >> 8;
if ($ret == 1) {
...
}
那么这里的 open FH, "-|" 是什么意思？$? >> 8 又是什么意思？
阅读全文 »/fh
在Perl中解析XML的方法最常见的就是使用 XML::DOM 和 XML::Simple了。 XML::DOM过于庞大，而且解析结果是一个DOM树，操作也不方便。 对于小型且不复杂的XML文件，XML::DOM真是杀鸡用牛刀。 这时就轮到轻便的XML::Simple上场了。
XML::Simple如其名，真的很简单。假设XML内容如下：
<opt>
<user login="grep" fullname="Gary R Epstein" />
<user login="stty" fullname="Simon T Tyson" >
<session pid="12345"/>
</user>
<text>This is a test.</text>
</opt>
那么只需这样写：
use XML::Simple;
use Data::Dumper;
$xml = XMLin('sample.xml');
print Dumper($xml);
就可以轻而易举地将XML解析成一个hash，然后用foreach依次处理即可。
阅读全文 »开发中遇到的几点问题：
1. split的分隔符不能使用字符串，只能使用正则表达式。
用perl -de 1; 启动后做实验：
DB<1> x split '\\', 'a\\b\\c' Trailing \ in regex m/\/ at (eval 13)[/usr/lib/perl5/5.8/perl5db.pl:628] line 2. DB<2> x split '\\\\', 'a\\b\\c' 0 'a' 1 'b' 2 'c' DB<3> x split /\\/, 'a\\b\\c' 0 'a' 1 'b' 2 'c'
试图指定分隔符为反斜杠，但 '\\' 出错，原因是perl会将第一个参数（字符串）的值作为正则表达式来解释， 结果 '\\' 就变成了 /\/ ，显然这是错误的正则表达式。 正确的写法是 '\\\\' 被解释成 /\\/，或者直接写 /\\/。
读了bkブログ的文章后发现， perl的split函数是忽略末尾的空元素的，想让它不忽略，必须加个参数-1：
DB<38> x split /,/, 'a,b,,c,,' 0 'a' 1 'b' 2 '' 3 'c' DB<39> x split /,/, 'a,b,,c,,',-1 0 'a' 1 'b' 2 '' 3 'c' 4 '' 5 ''
更多内容请点开看。
阅读全文 »应该很多人都在为mod_perl的调试方法发愁吧。通常只能使用print，或者输出到syslog中， 但都需要猜测错误位置并添加相应的日志输出，然后重启服务器，刷新，看结果…… 虽然使用Apache::Reload能减少重启服务器的麻烦，但Apache::Reload用多了就会出错，而必须重启， 何况打日志总不像交互式调试器方便。
mod_perl的官方文档中写明了如何使用调试器来调试， 不过这个方法在RHEL4下似乎不太好用（自己编译mod_perl的同学就应该没这个问题）。 查看了一下，原来RHEL4自带的mod_perl是 mod_perl-1.99_16-4， 而在官方的mod_perl的下载页面上最高版本只有 1 系的 1.30 和2系的2.0.4，并没有所谓的1.99版。 看这个mod_perl-1.99的内容，应该是1系和2系的混合体吧。 Apache::DB这个包与mod_perl-1.99不兼容，于是就无法正常调试了。
阅读全文 »这篇文章，对于能看懂的同学是非常非常重要的资料，对于看不懂的同学就一点用处都没有啦。
调查一下mod_perl下BEGIN/INIT/CHECK/END等块的行为如何？
测试程序，保存为life.cgi：
#!/usr/bin/perl
print "pid = $$\n";
print "Start main running here\n";
BEGIN { print "BEGIN\n"; }
INIT { print "INIT\n"; }
CHECK { print "CHECK\n"; }
END { print "END\n"; }
如果直接执行就是这样的：
$ ./life.cgi BEGIN CHECK INIT pid = 4610 Start main running here END
不论执行多少次，结果都相同（除了每次的pid不同之外）。但如果放到mod_perl下，结果就完全不一样了。 先单进程启动（httpd -X），再从浏览器中访问，结果如下：
BEGIN pid = 4557 Start main running here END
刷新一次，结果是：
pid = 4557 Start main running here END
可见，mod_perl下没有INIT和CHECK过程，只有BEGIN和END。其中END在每次请求时必然执行， 但BEGIN只有在进程刚创建后的第一次请求时才执行，以后的请求就不执行了。
如果你用了 Apache::Reload，那么可以修改一下life.cgi试试看，哪怕是一点小小的改动也行。 修改之后刷新，可以看到BEGIN又回来了，不过再刷一次就没有了。 所以Apache::Reload会在重新加载程序后再执行一遍BEGIN。
根据上述结论再引申一下，use = BEGIN { requre + import }， 可以推断，在同一进程下两次加载执行了use的页面，那么第二次的use是不起作用的。
Perl对YAML的支持很好，著名的Plagger就是用YAML作为配置文件的。
在Perl中读取YAML文件也很简单。常用的模块就是YAML，这是个纯Perl的实现，速度慢，但可以跨平台运行。 如果追求运行速度而不在乎平台问题，可以使用YAML::Syck和YAML::XS，两者都是C语言的实现。 YAML::Syck的C语言部分基于libsyck，而YAML::XS的C语言部分基于libyaml。 两者相比，YAML::XS稍稍快一点，而且它精确地实现了YAML标准1.1版的内容。
阅读全文 »memcached全面剖析的连载已经结束，翻译工作也已经全部完成了。 为了方便阅读，现将原来的翻译结果打包成PDF文档。可在本文末尾处下载。
原来的各篇翻译的地址如下：
- 第1章：http://tech.idv2.com/2008/07/10/memcached-001/
- 第2章：http://tech.idv2.com/2008/07/11/memcached-002/
- 第3章：http://tech.idv2.com/2008/07/16/memcached-003/
- 第4章：http://tech.idv2.com/2008/07/24/memcached-004/
- 第5章：http://tech.idv2.com/2008/07/31/memcached-005/
memcached.zip感光症癫痫（Photosensitive Epilepsy） 是一种罕见的癫痫症。高速闪烁的灯光、连续出现的图案、闪烁的视频，甚至树叶被风吹动时摇曳的影子都有可能会引起感光症发作。
感光症引起各国的重视，是由于1997年的口袋妖怪事件。 1997年12月16日，《口袋妖怪》第38话《电脑战士3D龙》在日本播出。该片为了表现电脑内部的爆炸效果， 而多次使用了红->蓝->红->蓝的高速颜色切换，导致日本全国约750名儿童被送往医院，其中150人需要住院治疗。 因此导致《口袋妖怪》被停播数月，恢复后，导致事故发生的主角“3D龙”也没能在电视中继续出现。
所以现在日本的动画片开头都会添加字幕，请观众在观看时远离屏幕，并打开室内灯光，以减少感光症发作的可能性。
而在2007年播放的一段2012年伦敦奥运会宣传片上，由于使用了闪烁效果，也导致了英国数人感光症发作。
下面这段视频就是被禁播的《电脑战士3D龙》。大家可以注意10:13、11:48、14:56、15:54和17:39的闪烁镜头。 不过，有感光症的读者还是不要看的好。
警告：以下视频包含强烈的闪烁，请在观看时自行承担一切责任。特别是有感光症癫痫史的读者请不要观看。
WARNING: The following video contains flicker effects. Please take responsibility yourself while watching. DO NOT watch if you have photosensitive epliepsy.
警告：下記のビデオに激しい光の点滅が含まれています。視聴は自己責任でお願いします。特に光過敏性症候群の方はプレイしないでください。
阅读全文 »今天在开发时突然apache无法启动了。表现为，输入 httpd -X 后片刻自动退出， 同时在error_log中有如下内容：
[Fri Aug 15 10:54:31 2008] [emerg] (28)No space left on device: Couldn't create accept lock
df一下发现不是磁盘空间的问题。Google了一下就找到了解决方案，原来是系统的信号量(?)不够用了。 用以下命令可以查看所有的信号量：
# ipcs -s ------ Semaphore Arrays -------- key semid owner perms nsems 0x00000000 19234816 nobody 600 1 0x00000000 19267585 nobody 600 1 0x00000000 19300354 nobody 600 1 0x00000000 19398659 nobody 600 1 0x00000000 19431428 nobody 600 1 0x00000000 19464197 nobody 600 1 0x00000000 19562502 nobody 600 1
然后用这行命令删除所有的信号量即可：
ipcs -s | grep nobody | perl -lane 'print `ipcrm sem $F[1]`'
众所周知Word的绘图功能是出了名的弱，很奇怪微软有钱去弄什么 信息检索 也不愿意下功夫把绘图功能改得好用些。这不，我只想要这样一个简简单单的圆角， 用Word的曲线功能画了一个小时也没能画得完美无缺。
好在Word还不是无药可救，它支持把wmf文件转换成绘图对象， 这样只要用其他软件画好图之后存成wmf，再导入Word就可以了。 那么做wmf用什么软件呢？手边有Illustrator和AutoCAD， 试了试AutoCAD的导出为wmf格式挺好用，就是它了。
2008-8-18更新 ：今天发现这个名为Dia的自由软件 也能方便地绘制wmf格式的图片。如果不需要特别精确的定位，又无法使用AutoCAD的话， Dia也是个非常不错的选择。
阅读全文 »
