perl心得（二）-逐步循环

  逐渐的，我觉得应该系统的看下perl了，虽然只需要做一个小程序。如此的无头撞下去，非死即伤。

  在这里给大家推荐本书吧，《Perl 语言入门（第四版）》作者：Brian d foy, Tom Phoenix, Randal L.Schartz

  怎么说呢，因为目前我也没看完，了解一写perl的基本语法、perl的基本命令还是必要的。其实也没必要了解的很详细，用的时候再看就好了，毕竟我们也不是专门做这个的。

  淡定，淡定，淡定...........

  看书一回事，实践一回事。这个道理在大学的时候俺就懂了，一本很好的基础教程视乎是远远不够的，唉......同时也找些例子看吧。

  perl这个语言呢，相对来说还是比较开放的。在这里perl的历史就不给大家介绍了，有兴趣的人（估计也没人对这个有兴趣）可以自己查查看。perl在安装时他的包文件包括的内容都是些基础应用的东西，比如说文件处理、CWD这些的，如果你想通过perl连接数据库（oracle等）的话，很抱歉，他给java等很多编程语言一样，去下个DBI、DBD的包吧，具体是做什么的，怎么安装网上有茫茫多的教程。俺也初学，还在摸索当中。

  这里我主要说下文件处理方面的吧，应为我现在要用嘛，所以研究的多些。

  首先，说几个要点。这里讲的是逐步的循环处理

  1，单层文件中的循环处理，在这里文件夹和文件中的内容处理方法视乎是一样的。因为我只是针对文件夹来操作，具体文件中的内容如何处理还没试验过。

       my $file_path="F:/测试";

       opendir(KTXXWD,$file_path)||die"error, can't open the dir";

       my @dir = readdir KTXXWD;#将文件目录写到数组dir中

       #对数组循环，变量依次存放到$file中 

       foreach my $file (@dir)

        {print "file=".$file."/n";}

  注释写的很明白了，也没必要解释什么。

   2，多层循环处理中（对子文件夹的循环等），一定要思路清晰，否则就会被循环的层次搞蒙。

   3，内部函数的使用还是很方便的，像substr()、length()这样的函数perl都是支持的

        my $file_first = substr($file_var,0,2);

        if(length($file_var) > 2){......}

   4，字符串的判断

        perl的字符串判断和数字判断区别是比较大的，

       比较关系数字字符串

                     数字 字符串
      相等         = =    eq
      不等         !=      ne
      小于         <       Lt
      大于         >       gt
      小于或等于<=     le
      大于或等于>=    ge