小灰笔记

最初我用于匹配变量的规则是：找到区分大小写的字符段，同时它的前后应该是没有其他的字母、下划线等单词，后面当前也不会有，而不应该有数字。运行的结果让我很费解，尽管我知道这肯定不会是Perl的问题，我依然是没有能够最终找到那里面的缺陷。当时有个同事提到了全词匹配，我当时想，我做的这些正则表达式正是用于全词匹配啊，我还能够如何改进呢？当时公司的办公环境封闭，想借助于互联网寻找答案非常麻烦，因此只要是工作还能够就上网搜索一般是不会纳入考虑的范畴的。是，只要通过一个全词匹配的界定符实现全词匹配是十分简单的。

其实之前的工作中这种功能早就用到了很多次，但是那时候Perl的水平应该还处于小学的造句水平。虽然那时候看过怎么写函数，但是看得非常模糊，加上那时候写代码的经验几乎没有，即使是看过的东西脑子里也很难留下印象。关于函数式的编程，我在Python学习使用中很早就掌握了。又加上公司的办公环境装了一套加密系统，Python只能够访问非加密文件，而Perl则在访问上没有任何限制，这更让我有了重返Perl的决心。虽说是用Perl的基本功能实现读写非常简单，但是写的过程中我不止一次在想Python以及MATLAB的功能。

fileread是MATLAB中的一个函数，可以实现对一个文本文件的全文读取。读取后的内容返回给一个字符串量。在Python中也有类似的功能，不过MATLAB中的这个更能够直观看出函数的功能，因此题目暂取这样。完成了上面简单的两个小函数，重新构建我之前想要完成的功能，重新修改后的代码看着简单清晰了许多。这多少给了我一点启示：有些路还是需要走的，磨刀不误砍柴工！之前完成过一个readlines功能，借由那个功能实现fileread功能在Perl中实现起来十分简单。

读小骆驼书的时候读到，utime无法实现对文件创建时间的修改，每次进行时间戳的属性修改后创建时间都会被改成当前的时间。值得注意的是，书中的示例已经说明都是在UNIX系统中进行的，两个操作系统的文件管理方式差异可能是造成这个执行结果差异的原因。看起来，修改时间戳还是蛮简单的。utime函数的传入参数有三个，第一个是最后的访问时间、第二个是文件的最后修改时间、第三个是一个文件列表。从修改结果来看，成功对当前文件夹下的所有文件的时间戳进行了访问时间与修改时间的属性修改。

过去的一年中，我用Python尝试了简单的文本处理、与MATLAB的交互、网络访问、简单的爬虫、电子表格分析、绘图、完成数据标定、数据分析、计算等等工作。其中$_代表的是遍历到的当前文件，$File::Find::name是带有目录的文件名，$File::File::dir是当前的目录。综合考虑，在处理一般的工作时Perl是更适合我的。虽说Python在写大型程序或者代码量变大的时候看起来调理、比较好管理，但是我所处理的工作通常几十行代码全都搞定，而正则表达式的干净利落上Perl还是有很大优势的。

当时需要处理simulink模型，而我当时的M脚本水平比较差，Perl的水平也不高，于是就把两部分功能糅合到了一块儿来使用。而且，从自己自学参考的教程中抄了一段我至今也没怎么学会的代码（如今有些不想学了，因为我掌握更为简单易懂又易写易维护的方式）。以我现在的水平，断然不会写出那么差劲儿的代码。虽说那段代码能够正常使用，不过维护总还是需要的，不知道我给现在的那个倒霉蛋留下了这个随时肯能钻出马蜂的马蜂窝。Perl中还有这个功能的一个变形形式，直接通过钻石符号处理，处理的方式也读取文件句柄的方式差不多。

我知道bash中的grep功能非常强大，在网络上看到过好多关于bash shell 中grep的文章，有的介绍grep怎么用，还有的解释为什么grep速度这么快等等。曾经对bash中的grep有过一点点简单的了解，但是也是过眼云烟、走马观花型的，到现在脑子里几乎没有留下什么东西，只记得这个命令可以实现查询功能。趁着这次重读小骆驼的第六版，至少把Perl中的grep了解一下，且不管它的功能跟bash中的功能是否有什么异同。同时，不像foreach，grep不需要额外的变量作为临时的存储。

更为重要的是，这个瘦箭头看上去比较顺眼，这种描述的方式可以让我更多地去考虑做什么而不用再费脑子不断地去构造拼接算法或者在脚本的编写过程中不断输出屏显观察结果，一切会水到渠成、自然而然。今天看书的时候又看到了类型形势的代码（代码中很多瘦箭头），我觉得大概是面向对象的编程吧！以上方法、接口等字眼都是我根据我的感觉推测描述的，毕竟文档还没有阅读，面向对象我也不会。上面的功能中用到了文件的拼接函数dir，增加子目录的方法subdir，获取父目录的方法以及适用于不同的操作系统平台的目录格式接口。

default在Perl中的功能不像是c语言switch的default那样在缺省的时候其作用，而是在执行到相应的条件分支之后继续执行default，在某些情况下这种方式倒与Python中的起初让人感觉诡异的else结构类似。使用Python的时候，基本的程序结构中也并没有switch，但是在Python中可以通过使用字典的形式来实现。重新学习第六版的小骆驼时，学到控制结构的时候也读到了说明，Perl中没有switch结构，但是可以通过其他的方式来实现。即使有的时候，基本上也通过其他的形式完成了相关工作。

不过，如果是真的需要相应的功能时，后期我怕是还要采用File::stat的模块的。今天看第六版的小骆驼书又看到了这个功能，照着书上的示范代码写了一遍运行程序的时候没有输出我期待的结果。于是又回到文档，我似乎有那么几分确认，书中的代码是错误的或者是书中用的Perl模块库或者Perl本身的版本跟我现在用的最新版有一些差异。虽说是功能基本上出现了我想要的结果，但是总觉得不对劲儿，我觉得小骆驼不至于犯这么低级的错误，或许是我什么地方想偏了。不过，其他的看着都还算正常，只是我现在还不太清楚其中几个数字的含义。

初级的小骆驼没有教我怎么方便的进行文件的拷贝、属性的解析等方法，只是让正则表达式成为了我工作中不可缺少的工具。不过，缺少的那些种种我曾经在Python中全都找到了，而且仅仅依靠一个跟随软件工具安装一块儿出现在电脑上的文档。前阵子突然间想到了，其实，或许工作中比较实用的还是Perl，在Python中找到的那些功能我相信在Perl中也能够找到。于是搜罗了一通文档，以备不时之需。没有test文件夹的时候拷贝会失败（出现你期待之外的结果，会创建名为test的文件，内容与copy.pl完全一致，包括时间戳）。

使用这个有很大的好处是你不必担心重写的问题，overwriting在Perl或者Python摆脱win32处理Excel的时候会有一点问题。这方面，使用MATLAB直接调用Excel的时候没有很好的处理方法，因此确实是会觉得速度慢，很慢！说起来，这不是一种很好的编程方式。当我看了MIT的程序设计教程之后，我也开始尽量的函数话，或者是直接采用面向对象的编程方式。关于Excel的处理方式很多，我也不会那么多，在这里我只想写一下我自己接触过的。这样，命令窗口直接以函数调用的方式传入参数运行，得到的是一样的效果。

想学习一下perl，当前很想做的一件事儿是使用perl在脱离了windows以及微软的office依然能够构建出简单有效的自动化脚本。现在我正在使用LibreOffice编写我的博客文稿，因为我想体验简单。但是闲得无聊的时候这是一个好事儿，因为我又有东西要学习了。苦闷的生活有时候真的跟成长的岁月是同义词，我自己现在正在很好的体会。终于让我找到了比较简单带点傻瓜式的安装方法了，简单的命令之后自动搞定。依我自己的个人直观加表象的理解，第一行应该是进入CPAN的shell，接下来的两行则是安装两个必要的块儿。