perl 被设计为90%处理文本，10%针对其它情况。
在Perl内部，没有整型，全当双精度浮点型来处理。
双引号字符串内会变量内插
字符串可用“.”操作符连接。
字符串重复操作符“x”，可将左边的字符串重复多少次，如"f"x3 # "fff"
变量的名字由“$”开头，后接变量名。
用户输入用<STDIN>
chomp函数，去掉字符串尾的换行符。chomp是一个函数，作为函数，它有一个返回值。$b=chomp <STDIN>; #返回值是1。
在perl中，（）通常可以省略。
undef值:Perl程序员在使用新变量时，经常不初始化，从而将变量作为0或空串使用。要分辨是undef还是真正的空串，可以用defined函数，它将在undef时返回false，其余返回true。如果想自己声明undef值，可以使用undef:，如：
$a=undef;
(1..100)，这种定义方式包含100个整数的列表。“..”是range oprator。
在Perl中，字符串列表会经常使用，有一种简便的方法可以不用输入大量的引号，而达到类似的功能，那就是使用qw。如：
qw(abc abcd abcde abcdef) #同（"abc","abcd","abcde","abcdef"）
qw表示quoted words或者“quoted by whitespace”。Perl将它们当作单引号字符串处理，不能像双引号那样在qw中使用\n和$var。
Perl中还允许用任何符号来作为分界符，如下，也一样：
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 >
列表赋值：($fred, $barney, $dino) = (“flintstone”, “rubble”, undef);
变量交换（swap函数，很方便也很邪乎)：
($fred, $barney) = ($barney, $fred) #交换两个变量
($betty[0],$betty[1]) = ($betty[1],$betty[0]);
数组不能成为列表的一个元素的原因是数组只能包含标量值，不能包含其它的数组。
@copy = @quarry;#将一个数组的值拷贝到另一个数组中
push的第一个参数或者pop的唯一参数必须是数组变量。他们对数组的结尾进行操作。
shift和unshift对一个数组的开头进行操作。
和标量类似，数组也可以插入双引号的字符串中，插入的数组元素会自动由空格分开。
Perl最常用的默认变量：$_，如下例：
$_ ="Yabba dabba doo\n"
print;
reverse函数会返回逆转的列表，它不会改变其参数的值，所以如果返回值没有赋值给某个变量，那这样操作是没有什么意义的。sort函数也一样。
一个给定的表达式在不同的上下文中其含义是不同的。
如：一个数组的“name”，在列表上下文中，它返回列表元素，在标量上下文中，它返回数组元素的个数。
数组@people的真实名字是people。@只是一个限定词（qualifier）。
甚至普通的赋值也产生不同的上下文：
@people = qw( fred barney betty );
@list=@people; #3个people的列表
$n=@people; #数字3
可以用scalar函数在上下文中将列表转换为标量。如：
@rocks = qw(talc quartz jade obsidian);
print "I have ", scalar @rocks, "rocks!\n"
文件结束符：*nix系统中用Ctrl+D，在DOS中，用Ctrl+Z。
定义一个子程序的方式如下：
sub marine {
$n + = 1;
print "Hello, sailor number $n!\n";
}
如果两个子程序同名，则后一个将覆盖前一个。
可以使用子程序的名字（带有&）来调用子程序。
将参数传递给子程序中的方法是，在程序后面接括号，括号内存放参数列表。
在Perl中，会自动将参数列表自动存放在一个叫做@_的数组中。也就是说此子程序参数的第一个值存放在$_[0]中，第二个存放在$_[1]中，依次类推。
可以任意时候使用my创建私有变量。如：
sub max {
my($m,$n);
($m,$n) = @_; #可以这样写，将声明和赋值放一起:my($m,$n)=@_;
if($m > $n) {
$m
} else{
$n
}
}
在调用Perl的函数时，可以省略&，但函数的定义必须在调用之前。如果子程序和Perl一个内嵌程序同名，则必须使用&来调用它。
while (defined($line = <STDIN>)) {
print "I saw $line";
}
使用defined来检测输入是否结束。
<>（尖括号操作符）是一种特殊的行输入操作。
在Unix中，-(连接号)代表标准输入流。