Something about Perl (1)

# 行末注释，类似于C中的//

" " 双引号double-quoted的内部会对@$等符号展开为变量或数组
''单引号的内部不展开，仅仅视作原本的字符

'Hello/n'与"Hello/n"是两个不同的字符串

/转义字符slash
'/'//' 是一个字符串，内容为'/

变量不能以数字开头
使用变量以$解析

Perl中的数字
科学计数法为-1.36E-23 或32.1e23
大小写e都是允许的
可以使用下划线对一个长数字进行分隔 61_298_040_283_768
以0开头的数字是八进制数 如 0377
0x开头的数字是16进制数 如 0xff
0b开头的数字是二进制数 如 0b111111

.操作符single period 简单连接字符串
$str = $str ." "

x操作符 复制字符串
例如:
"strings!"x3  相当于"strings!strings!strings!"
5x4  相当于"5555"

chomp操作 去掉行末换行符
chomp（$text）

对于第一次使用的变量，默认给予值undef
undef被当作数字使用相当于0，或者空字符串

通过defined($var)
测试var是否未初始化（值为undef）

if语句的真假条件：
1.undef  假
2.0 假，其余所有数字均为真
3.空字符串为假，其它所有字符串为真
4.特殊情况，'0'，Perl中数字和字符串可以灵活转换使用，字符'0'也为假

数组变量
A list is an ordered collection of scalars. An array is a variable that contains a list.
数组类型没有限制，可以是任何变量（但不能是另一个数组）
通过[]square brackets 访问数组变量中的元素
$array[]  @array
数组index可以是小数，会忽略小数部分，index从0开始
负数的index
$array[-1] 数组最后一个元素
$array[-2] 数组倒数第二个元素
…………
通常只使用-1

使用print @array 由于@array会被认为是标量上下文，输出是array元素的个数

$#array 数组最大的index
0..$#array) 数组序数的列表
$array[ $#array] 数组最后一个元素
注意数组大小是$#array+1,不过通常不会用到

初始化一个数组 （1，2，3）

可以使用范围操作符..
（9..100） 9到100间的整数
注意：
foreach $item (1.7..5.7){
print $item."/t";}
句点会被忽略，因此输出为1 2 3 4 5
(5..1)  逆序是不允许的，这是一个空表

qw操作符  qw stands for "quoted words" or "quoted by whitespace,"
通常使用方法：
@rocks = qw/ bedrock slate lava /
qw的边界符是可选的
qw! fred barney betty wilma dino !
qw# fred barney betty wilma dino #
qw( fred barney betty wilma dino )
qw{ fred barney betty wilma dino }
qw[ fred barney betty wilma dino ]
qw< fred barney betty wilma dino >
连#都可以使用，视乎需要可以灵活使用
qw! yahoo/! google excite lycos ! 转义字符/能够处理必须出现的边界符

用=进行赋值， 右侧表达式多余的值会被扔掉，不足的值变成undef
($fred, $barney) = qw< flintstone rubble slate granite >;

几个赋值的例子
@tiny = ( );                      # the empty list 空表
@giant = 1..1e5;                  # 使用范围符..  a list with 100,000 elements
@stuff = (@giant, undef, @giant); # 可以包含undef元素 a list with 200,001 elements
$dino = "granite";
@rocks = qw/ bedrock slate lava /;   
@quarry = (@rocks, "crushed rock", @tiny, $dino);  #在数组中定义的数组会被展开，空数组不会展开为undef元素quarry相当于(bedrock, slate, lava, crushed rock, granite)

通过赋值进行swap 交换是允许的：
($betty[0], $betty[1]) = ($betty[1], $betty[0]);

pop 和 push 操作符 数组末端相当于栈顶，数组首元素相当于栈底，返回值为弹出的元素
@array = 5..9;
$fred = pop(@array);  # $fred gets 9, @array now has (5, 6, 7, 8)
pop @array;           # @array now has (5, 6). (The 7 is discarded.)
对空数组pop返回undef

push @array, 1..10;   # 可以一次push多个元素
@others = qw/ 9 0 2 1 0 /;
push @array, @others; # 可以把一张表push进另一张表

shift 和 unshift 与pop push功能类似，不过是在数组首元素进行操作，数组首元素是栈顶，末元素是栈底

array 转换字符串，
注意！电子邮件的@符号可能被解析为数组操作符！
$email = "fred@bedrock.edu";  # 错误！！WRONG! Tries to interpolate @bedrock
$email = "fred/@bedrock.edu"; # 正确！使用/进行转义
$email = 'fred@bedrock.edu';  # 使用单引号可以避免解析

有相同的变量名和数组名时，必须使用括号为名称定界
@fred = qw(eating rocks is wrong);
$fred = "right";               # we are trying to say "this is right[3]"
print "this is $fred[3]/n";    # prints "wrong" using $fred[3]
print "this is ${fred}[3]/n";
输出
this is wrong
this is right[3]

foreach 循环
foreach $eachitem (@list)
{
#do some thing
}

默认变量$_
foreach (1..10) {  # Uses $_ by default
  print "I can count to $_!/n";
}

$_ = "Yabba dabba doo/n";
print;  # prints $_ by default
当无须使用一个变量名时使用$_

reverse操作符 逆序一个数组，注意reverse返回逆序后的数组，但源数组不会被改变。
如果需要逆序一个数组，可以：
@fred = reverse @fred

sort操作符  排序一个数组，排序按照ASCII码表方式，从数组第一个字符位置比较起。类似字典法。在ASCII表中，数字排在字母前，大写字母排在小写字母前

Scalar and list Context
Scalar 和 list 上下文
同一个语句在Perl中可能有不同的含义，取决于上下文
如：
@list = @people; # 复制数组people
$n = @people;    # 右边是个标量，因此$n等于3， people表的元素个数

当list上下文中提交的是一个标量时，转化为有一个标量元素的list
强制把标量上下文 使用scalar
@rocks = qw( talc quartz jade obsidian );
print "How many rocks do you have?/n";
print "I have ", @rocks, " rocks!/n";        # WRONG, prints names of rocks
print "I have ", scalar @rocks, " rocks!/n";

 

<STDIN>标准输入
@lines = <STDIN>; # read standard input in list context
在UNIX 和Windows环境下，文件结束符不同
UNIX   Ctrl+D
Windows Ctrl+Z
常用chomp(@lines = <STDIN>); # 读取标准输入，并去掉行尾的换行符
lines字符串数组保留每一行输入
这种读取方式不能再次读取已经读取过的行，当文件输入非常大的时候，最好使用其他方法。