全部学习汇总： GreyZhang/speed_emacs: Try to make a new emacs configuration which is fast even on windows! (github.com)
关于Perl和Python的优劣我不去做什么分析，也不去发表什么深入的见解。我个人的学习过程是先Perl后Python再回到Perl。因为工作原因，我需要处理文本的时候比较多。就像小骆驼书中说的，Perl适合90%的工作是处理文本而其它时候去处理其它事情的工作。在过去的一年中，我几乎完全放弃了Perl，工作中用到的各种批处理全都是Python来实现的。实现的过程也有不少愉快的经历，我也确实感受到了Python实现一个功能的那种条理性。不像Perl，丑陋而魔幻，Python就是简洁、有效。
前面说到了Python的简洁，但是我一直不认同Python是简短的。至少在我目前的水平层次（初学者）上，我使用Python确实写不出如同Perl那么精简的代码。不过，我还是认可使用Python时候的那种愉快。过去的一年中，我用Python尝试了简单的文本处理、与MATLAB的交互、网络访问、简单的爬虫、电子表格分析、绘图、完成数据标定、数据分析、计算等等工作。直到现在，Python还是我首选的计算器。不过在使用的过程中，我始终没有找到使用Perl时候的那段感觉——干净利落、代码简短而奏效。
综合考虑，在处理一般的工作时Perl是更适合我的。虽说Python在写大型程序或者代码量变大的时候看起来调理、比较好管理，但是我所处理的工作通常几十行代码全都搞定，而正则表达式的干净利落上Perl还是有很大优势的。
在使用Python的时候，os模块的walk函数给了一份惊喜。之前的工作单位不提供外部网络，一切都靠自己的入门教程。Walk是我离职之后开始掌握的，迅速在我的各个脚本中大展身手。我也在写Python不顺手的时候想着切换回Perl，但是好几次因为这个简单的功能没有去切换。可我总觉得Perl中应该也有类似的功能，之所以没有查找是因为第二家工作单位我呆了几十天变滚蛋了，而如今这家单位依然不提供外部网络的访问权限。不过，这家公司的加密系统倒是让我无奈的在坚持了一年后决定放弃Python转战Perl。自己花时间网络一搜，还真有这么个功能。写的有些简单的文档看完后简单一试，又是惊喜连连。我靠！比Python简单！
而这个功能就是File::Find。它不仅能够完成之前我用Python的walk函数完成的功能，而且更简单了，因为可以在处理的过程中自动切换目录。而Python中的walk则不具备这个特性，因此在处理一个目录的时候我通常得在大脑中不断模拟目录切换的过程。
写一个简单的Perl遍历目录实例：
find在遍历目录的同时也充当了迭代器的作用，而wanted函数的名字是可以自己去更改的。在每次遍历迭代的操作中，会有代码中9-11行中的三个默认内置变量。其中$_代表的是遍历到的当前文件，$File::Find::name是带有目录的文件名，$File::File::dir是当前的目录。运行结果：
其中，带有完整目录的目录最前段是与传入遍历的目录名称一致的。如果想要一个完整的名字可以在遍历前获取当前目录的名称进行拼接，也可以直接把需要遍历的目录名称写一个全名。
例如：
以上代码的运行结果如下：
相比Python中的类似功能，使用Perl确实有点不费脑力。在遍历目录这一关通过之后，相信日后工作中的Perl在我工具箱中将会更加活跃。
