Learning Perl

笔记部分移到了 Notes: lang/perl.html

我写过一些 Perl 脚本,用来处理本站的 Markdown 源码。主要实现了三个功能:

  1. 从 git 的历史信息里提取一篇 post 源码的修改状况,并添加到页面。

    如果你看过 html 源码,应该可以看到:

    var tzxFilename = "_posts/post-0111-qt4-vs2015.md";
    var tzxChanges = [
        {
            hash: "c5d8b2116006abe088c7340ce63017b120e822d5",
            datetime: "1469954954",
            insertions: 0,
            deletions: 2
        },
        ...
    ];

    这都是从版本控制信息里提取出来的。

    原来我提供产看某一历史版本的源码查看功能。不过被我去掉了。因为……好像没人会看。放在主页上的按钮好傻。

  2. 给页面添加折叠功能。

    【点我打开折叠】

    blah blah blah……

    这就是被折叠掉的内容。

    不过在博客这边用得少点。在笔记那边用的更多。

    【当然可以嵌套】

    点击事件的 event propagation 曾折腾了我挺久。以及选中文字复制的时候,如果禁用折叠盒的打开/关闭的切换,也是挺麻烦。

  3. 给 Markdown 添加 include 其他文件的功能。

    这样引入一个很长的代码,我就不用全部 copy 过来了!而且便于管理。

    基于这个我计划做一个 snippets 查看工具,这样就能把自己的一些代码片段保存起来,方便地各种 include 到笔记。方便复习和再记忆。

几乎所有的 perl 脚本都放在:district10/blog-utils: Utils to process my blog posts.。那里也有一点介绍。

外,还有写了一个 pangu.pl,用来处理中英文之间的空格。有很多版本的 pangu,包括

但是没有 perl,所以……其实代码就三两行哈哈。见 district10/pangu.pl: Paranoid text spacing in Perl。这是 vinta 对这个项目的简要介绍:

如果你跟我一樣,每次看到網頁上的中文字和英文、數字、符號擠在一塊,就會坐立難安, 忍不住想在它們之間加個空格。這個外掛(支援 Chrome 和 Firefox)正是你在網路世界 走跳所需要的東西,它會自動替你在網頁中所有的中文字和半形的英文、數字、符號之間 插入空白。

漢學家稱這個空白字元為「盤古之白」,因為它劈開了全形字和半形字之間的混沌。另有 研究顯示,打字的時候不喜歡在中文和英文之間加空格的人,感情路都走得很辛苦,有七 成的比例會在 34 歲的時候跟自己不愛的人結婚,而其餘三成的人最後只能把遺產留給自 己的貓。畢竟愛情跟書寫都需要適時地留白。

與大家共勉之。

| – vinta


最后,我最爱的 include 功能的代码,并不长(写得时候还是出了不少 bug,各种坎坷),贴在这里:

#!/usr/bin/perl

use 5.010;
use strict;

sub inList {
    my $needle = shift;
    my @haystack = @_;
    foreach my $hay (@haystack) {
        if ( $needle eq $hay ) {
            return 1;
        }
    }
    return 0;
}

sub unfold {
    my($PADDING)  = shift @_;
    my($PREFIX)   = shift @_;
    my($FILENAME) = shift @_;

    if (&inList($FILENAME, @_) == 1) {
        return;
    }
    unshift(@_, $FILENAME);

    open my $INPUT, '<', $FILENAME;
    while(<$INPUT>) {
        #   padding         prefix   filename
        if (/^(\s*)\@include <-(.*)=(.*)=/) {
            &unfold(
                     $PADDING . $1,
                     $PREFIX . $2,
                     $3, @_ );
        } else {
            print $PADDING . $PREFIX . $_;
        }
    }
}

&unfold("", "", $ARGV[0]);

我的使用中,路径从 repo 的根目录算起。使用方法是在 Markdown 里加上

@include <-=path/to/file=

具体看源码吧。都是我自己用,也不想写太多的说明。


「Load Disqus | 加载评论」