Perl的骆驼精神(一)

mofdan

　　Perl语言中的大部分语句表达式后都紧接一个分号，分隔不同的Perl语句。
　　perl解释器能一次完成编译和运行这两个动作。 perl通过一对反引号"``"来表示运行外部命令。
　　
　　标量（scalar）包括数字和字符串两部分。
　　在perl内部按“双精度浮点数”的格式来存储数字，整型常量也会被转换成等效的浮点数。
　　perl允许在数字直接量间插入“_”分隔符。而且对于十进制（decimal）之外的数。八进制（octal）以“O”开头。
　　十六进制（hexadecimal）以“0x”开头。二进制（binary）以“0b”开头。
　　数字操作符包括：+，-，*，/，%。取模操作先取整再求余。
　　$fred += 5;         $str .= "";
　　
　　perl内的字符串长度不受限制，从空字符串到无限长都可以。
　　如果源码内出现除ASCII之外的其他字符，需要加use utf8;来加入任意一个unicode的支持。
　　单引号内的字符串，基本不会出现特殊字符，除单引号“ ‘ ”和“ / ”，其他字符都表示他们本身。
　　双引号内的字符串，可以表示多个特殊字符，而且支持变量内插。
　　字符串操作符有：字符串连接符“ . ”，字符串重复操作符“ x ”。表示重复的直接量在使用前会取整，直接去掉小数。
　　5x4.8          #得到“5555”
　　perl内支持数字与字符串直接的自动转换，根据操作符来判断。字符串中的非数字部分及其之后的数字部分，在转换过程中都会被忽略。
　　
　　标量变量（variable），以美元符号“$”来表示，为了避免变量名的歧义，可以使用花括号{}来将变量名括起来。
　　perl中的变量不需要初始化，初始值都是undef。而后可以直接用来赋值或运算。
　　运算操作符有比较操作符：按数字或字符串来划分，==（eq）, !=（ne）, <（lt）, > （gt）, <= （le）, >= （ge）。
　　布尔值：perl内部没有专用的布尔类型。如果数字是“0”，则为假，其他都是真。如果字符串是空，则为假，其他都是真。
　　’0‘是唯一的为假的非空字符串。
　　perl中的控制结构：if...else..      while( )  {.....}
　　
　　print输出结果用双引号“”来表示输出内容。
　　print "The answer is ", 6*7, ".\n";         #也可以用逗号","隔开，连在一块来输出。
　　perl获得用户输入<STDIN>一般在末尾会带有换行符。
　　$line = <STDIN>;
　　chomp（）函数，用于去掉字符串末尾的换行符。
　　chomp($text = <STDIN>);
　　defined（）函数，用来判断某个字符串是不是空字符串。
　　perl内部的警告功能。可以在命令行用perl   -w perl_file来表示。或者use   warning。
　　当perl未被告知使用哪个变量或数值时，使用默认变量$_。
　　如print没参数时，默认打印$_的值。
　　
　　数组：存放列表变量，可以用“@”字符加数组名来引用整个数组。数组索引从“0”开始到“$#+数组名”
　　$rock[$#rock] = 'hard rock';              #对最后一个元素赋值。
　　列表直接量：用圆括号内用逗号隔开的一串数字表示。或者使用qw （）表示，其中的空白符会被自动忽略。
　　qw( fred barney betty dino )  #表示4个元素的列表。
　　或者使用范围操作符 ..   (1..100);   #以“1”为单位而递增。
　　带双引号的字符串内也可以进行数组内插，同时注意数组的索引值中的变量会按普通的字符串表达式来表示，进而计算索引值。
　　$y =2;   $x = "this is $fred[$y-1]'s place"   #会直接取$fred[1]这个变量。
　　在标量上下文和列表上下文，perl的处理方式是不同的。
　　1)数组的名称在列表上下文，返回元素的列表。在标量上下文，返回数组中的元素个数。     $number = 42+@people;
　　2)在标量上下文，使用reverse函数。  $backwards= reverse qw/yabba dabba doo/;    #赋值oodabbadabbay。
　　3)在标量上下文，<STDIN>返回输入数据的下一行。在列表上下文，<STDIN>返回所有剩下的行。
　　
　　pop/push操作：对数组的最后一个变量进行操作。
　　shift/unshift：对数组的第一个变量进行操作。
　　splice操作：对数组随意的修改。第一个参数表示要修改的数组。第二个参数表示操作的元素的起始索引。第三个参数表示操作的长度。
　　第四个参数表示要替换的列表。
　　@array= qw( pebbles dino fred barney )
　　@removed=splice @array,  1, 2, qw(wilma);     #@array=qw( pebbles wilma barney)。
　　可以使用foreach循环体来遍历列表或数组中的数值，并且在此过程中列表或数组或变量都不会被改变。
　　foreach $rock (@rocks) {....}
　　reverse操作符：返回次序相反的列表或数组。
　　sort操作符：按ASCII码的大小或字符的代码点的大小来对列表或数组进行排序。
　　each操作符：返回数组中下一操作元素的索引值及数值。
　　while (my ( $index, $value) = each @rocks)   {...}