procmail 过滤中文邮件标题

ref@http://comments.gmane.org/gmane.mail.procmail/47948 添加以下内容到 $HOME/.procmailrc :0 i X_Subject=| formail -zfxSubject | perl -MEncode -ne 'print encode("UTF8", decode("MIME-Header",$_))' | tr -d '\n' 然后通过以下形式过滤标题 :0 * X_Subject ?? .*(技[術术][検检][討讨]会|工程会[議议]) pcl-meeting/ 假设原始邮件标题的内容是 Subject: [GuruDigger] 头脑风暴平台产品孵化简报, 11/02/ 经过编码处理后的 X_Subject 内容将会是 [GuruDigger] 头脑风暴平台产品孵化简报, 11/02/ 以下定义的正则表达式将会匹配到...

2011-11-30 Â· wuan

urxvt 插件一枚

在 urxvt 终端里左键选取一个单词,右键即刻翻译。 #! perl sub on_start { my ($self) = @_; $self->grab_button (3); () } sub on_button_press { my ($self, $event) = @_; if ($event->{button} == 3) { my $popup = $self->popup ($event) or return 1; my $word = $self->selection; my $title = $word; $title =~ s/[\x00-\x1f\x80-\x9f]/·/g; $title =~ s/\W//g; # 删除所有非英文字母 my @dict = `export LANG=zh_CN.UTF-8; /usr/bin/sdcv -n --utf8-output -u 'XDICT英汉辞典' "$title"` or return 2; splice(@dict, 0, 4);...

2011-03-09 Â· wuan

Perl 6

RT @http://www.mail-archive.com/perlchina@googlegroups.com/msg01462.html Parrot 是用 C 编写的面向动态类型的语言的虚拟机。在性质上,和 JVM 1 和 CLR 2 属于同一类东西,但后两者面向静态类型的语言(虽然 Python 这样的动态语言也有 JVM 的 port,但无疑是很低效很 ugly的做法),且在字节码级别上是面向栈的。Parrot 中是 和真实世界中的 x86 指令集一样面向寄存器的,当然,Par...

2010-11-30 Â· wuan

Perl One Liners

% echo "1\n2\n-5" | perl -ne '$n += $_; END { print "$n\n" }' % echo "1 3\n2 4\n-5 -3" | perl -ane '$n+=$F[0]; END { print "$n\n" }' % echo "1 3\n2 4\n-5 -3" | perl -ane '$n+=$F[1]; END { print "$n\n" }'

2008-05-15 Â· wuan

我在 perl 和 python 之间的选择

几天前在粗略对比了 Perl, Python, Ruby 之后,我毅然决然的投入到 Perl 的阵营。 历史 Perl 1.0 版是在1987年,Python 比 Perl 迟到了2年,Ruby 大概是在 1993 年一般来说历史越悠久,沉积的文化越丰富。 虽然如此,但我用的编辑器却不是 Emacs(1970),而是 Vim(1991) 和 SlickEdit(1988) 。 通用性 Debian 集成了 Perl,没有集成 Python 和 Ruby find /usr/bin -exec...

2007-09-03 Â· wuan