perl
ttouri
这个作者很懒,什么都没留下…
展开
-
perl学习笔记(3)—— 坑
(1)用perl来ls一个目录: 写perl的时候,经常要调用到系统命令,perl有很多等价的函数可以用,但是,不小心任性了,就想用system来实现了,好吧,来个ls把,列出指定的一个目录,直接上代码 sub ls{ my ($dir) = @_; system("ls -al '$dir' "); } 不做参数校验了,直接ls一个目录,这个原创 2014-12-24 22:17:58 · 1244 阅读 · 0 评论 -
perl学习笔记(4)——动态加载
在写perl的时候,如果要应用到各种平台的话,比如linux 和windows,会遇到各种问题,有时就是要根据系统类型来加载各种库,之前写的就是这样的, if($^O eq 'linux'){ use XXX::xxx; }elsif($^O eq 'MSWin32'){ use XXX1::xxx1; }结果是错的,perl提示没有找到XXX这个模块,看来,这里用use的话,perl是回去原创 2015-01-11 16:16:23 · 1221 阅读 · 0 评论 -
perl学习笔记
1)perl是非常灵活的,听到有人说,看perl代码最不爽的一点就是:一个判断条件可放在一个语句后面,例如: my $value = "value" if $needvalue; 有时,如果前面的语句很长,然后要if语句就那么短小地放在后面,若没注意看后面的if语句,就可能会理解错误,这点有时也会让审代码的头疼。 2)最近听到一位前辈说,最好是不要用unless,因为对于没有学过perl的人原创 2014-12-07 00:34:26 · 1375 阅读 · 0 评论 -
perl学习笔记(2)
1)记得刚开始写perl的时候,对于一个功能,总是拿目前能用的数据类型来解决问题,不想想有没有更好的,能用能解决问题就好,这就导致了后期,要在函数里面添加功能的时候,函数要添加很多参数,一个函数有7、8个参数,并且这些参数都是有关系的, sub is_healthy{ my ($name, $sex, $age, $height, $weight) = @_; }像上面这个判断原创 2014-12-10 23:36:11 · 843 阅读 · 0 评论 -
perl之创建临时文件夹遇到同名文件该咋办
当你在目录下进行一系列操作时,若要创建许多文件或者修改文件,可能会遇到许多麻烦的事。所以呢,新建一个文件夹,然后在这个文件夹下新建文件或者修改文件。假设,你的代码要在一个目录下新建一个文件夹,名为TmpFolder,然后,在文件夹下进行一系列操作。但是,目录下可能之前就会出现TmpFolder,这样一搞,会出问题的。该怎么解决呢,有以下2个: (1)若是遇到有文件夹的名字是TmpFolder,就原创 2015-03-05 23:08:33 · 1457 阅读 · 0 评论 -
判断perl里两个简单hash是否相等的方法
对于形如: my $h = { a => 'a', b => 'b', }; 的hash,你要怎么比较他们是否相等呢,比较普遍的方法是遍历所有key,然后看下相应的key在两个hash中对应的value是否相等。可以用hash来记录每个key对应的每个value出现的次数,先记录一个hash,然后再遍历第二个hash的时候,如果发现有个key对应的value出现的次数为1,那原创 2015-12-27 10:51:33 · 3467 阅读 · 0 评论