Perl基础（备忘）

　　前两天项目中遇到了一个Perl脚本程序，需要读懂该程序，由于以前重来没有用过Perl语言，所以没法搞定。今天抽空把该语言的基础看了一遍，基本上内读懂Perl脚本程序了吧。真是如网上很多分享的经验所说，第一：会一门语言后，学习其他的语言也就容易了，所有的语言包含的内容都差不多，只要熟悉一下该语言的语法就OK了；第二：会一门语言的有经验的开发者，跟本没有必要花大量的时间把一门新语言重头读到尾来学习他，看看基础就可以用了，用的过程中不明白的再去查阅手册或资料。

　　网上不少人说Perl语言受关注度越来越低，在服务器端慢慢的被PHP取代，但是作为系统脚本语言还是有他的特点的，我觉得最主要的是：强大的正则表达式和模式匹配功能，在sed和awk中也用到了类似的语法。

　　下面是我学习中记下的一些乱七八糟的东西，没有什么参考价值，就当自己学习过程中熟悉用的吧。

　　入门可以参考以下教程：

　　http://www.cbi.pku.edu.cn/chinese/documents/perl/index.htm

　　http://www.phpchina.com/resource/manual/perl/perl5-1.htm

• 字符串比较与数值比较

字符串比较用：lt，gt，eq，le，ge，ne，cmp（比较，返回1,0,or-1）。数值比较用：<， >，==，<=， >=，!=，<=>（比较，返回1,0,or-1）。

需要注意的是，不能用数值比较符号去比较字符串，因为用数值符号比较时，会先把左右操作数转换为数值类型，非数字字符串转换结果为0。所以，例如：if (“abc”== “yes”) 判断结果为真！

• 去掉标准输入的行尾换行符
  例如：
  $in = <STDIN>;
  print (“Hello world!\n”) if ($in eq “yes”);
  终端输入yes，结果没有输出，这是因为$in末尾有换行符，可以用模式匹配删除掉，如下：
  $in = <STDIN>;
  $in =~ s/[\r\n]//;
  print (“Hello world!\n”) if ($in eq “yes”);

• 普通变量“$”开头，数组变量“@”开头，关联数组“%”开头，另外访问数组或者关联数组的单个元素时以“$”开头。数组元素访问用“[]”，关联数组元素访问用“{}”，例如：
  数组：@arr =(1,2,3)，访问第三个元素：$arr[2]；
  关联数组：@fruit =(“apple”, 1, “banana”, 2, “orange”, 12)，获取元素或修改元素值：$dict{“bananas”}，$dict{“bananas”}=1。
  上面的关联数组初始化也可以这样：@fruit = (“apple”=>1, “banana”=>2, “orange”=>12)。

• 使用正则表达式进行模式匹配时，$&为上一次匹配成功的字符串。

• 去掉行首或行尾的空白符（包括换行符）的正则表达式写法：
  $inputline = <STDIN>;
  $inputline =~ s/^\s+|\s+\n$//g;

• 注意替换操作符s/string1/string2/和翻译操作符tr/string1/string2/的区别，前者查找string1并替换成string2，后者查找string1中的第一个字符替换为string2中的第一个字符，查找string1中的第二个字符替换为string2中的第二个字符，以此类推，也就是tr操作符不把string1和string2当做字符串而是一个个独立的字符。下面的例子显示了二者的区别。
  $str = “abc123cba”;
  $str =~ s/abc/xyz/; #结果str为：”xyz123cba”
  $str = “abc123cba”;
  $str =~ tr/abc/xyz/; #结果str为：”xyz123zyx”

• 字符串联结和重复操作符
  联接: .
  重复：x （注意，这里是小写字母x）
  联接且赋值(类似+=)： .=
  例子：
  $newstring = "hello" . "world"; #结果为”helloworld”
  $newstring = "t" x 5; #结果为”ttttt”
  $a = "be";
  $a .= "witched"; #结果为”bewitched”

• 文件操作
  

open(HANDLE, "filename"); //获取读文件句柄
open(HANDLE, ">filename"); //获取写文件句柄，若文件存在则先清空内容再写
open(HANDLE, ">>filename"); //获取写文件句柄，若文件存在则在原内容之后追加
$a = <HANDLE>; //读取文件中的一行
@a = <HANDLE>; //将文件整个赋给数组@a，数组的每个元素对应文件的一行

详见：http://blog.csdn.net/taesimple/article/details/6307639

opendir($handle, $path);
while($item = readdir($handle)) {
if(-d $item && !($dic =~ m/\.$|\.\.$/)) {
...
}
if ( -f $item ) {
...
}
}