交互式编程
你可以在命令行中使用 -e 选项来输入语句来执行代码，实例如下：
$ perl -e ‘print "Hello World\n"‘
输入以上命令，回车后，输出结果为：
Hello World

脚本式编程
我们将以下代码放到 hello.pl 文件中：
#!/usr/bin/perl
# 输出 "Hello, World"
print "Hello, world\n";
代码中 /usr/bin/perl 是 perl 解释器的路径。在执行该脚本前要先确保文件有可执行权限，我们可以先将文件权限修改为 0755 ：
$ chmod 0755 hello.pl
$ ./hello.pl
Hello, world                   # 输出结果
print 也可以使用括号来输出字符串，以下两个语句输出相同的结果：
print("Hello, world\n");
print "Hello, world\n";

脚本文件
perl 代码可以写在一个文本文件中，以 .pl、.PL 作为后缀。
文件名可以包含数字，符号和字母，但不能包含空格，可以使用下划线（_）来替代空格。
一个简单的Perl 文件名：
run_oob.pl

注释
使用注释使你的程序易读，这是好的编程习惯。
perl 注释的方法为在语句的开头用字符#，如：
# 这一行是 perl 中的注释
perl 也支持多行注释，最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:

#!/usr/bin/perl
# 这是一个单行注释
print "Hello, world\n";
=pdo 注释
这是一个多行注释
这是一个多行注释
这是一个多行注释
这是一个多行注释
=cut

Here 文档
Here文档又称作heredoc、hereis、here-字串或here-脚本，是一种在命令行shell（如sh、csh、ksh、bash、PowerShell和zsh）和程序语言（像Perl、PHP、Python和Ruby）里定义一个字串的方法。
使用概述：
    1.必须后接分号，否则编译通不过。
    2.END可以用任意其它字符代替，只需保证结束标识与开始标识一致。
    3.结束标识必须顶格独自占一行(即必须从行首开始，前后不能衔接任何空白和字符)。
    4.开始标识可以不带引号号或带单双引号，不带引号与带双引号效果一致，解释内嵌的变量和转义符号，带单引号则不解释内嵌的变量和转义符号。
    5.当内容需要内嵌引号（单引号或双引号）时，不需要加转义符，本身对单双引号转义，此处相当与q和qq的用法。
#!/usr/bin/perl
$a = 10;
$var = <<"EOF";
这是一个 Here 文档实例，使用双引号。
可以在这输如字符串和变量。
例如：a = $a
EOF
print "$var\n";

$var = <<‘EOF‘;
这是一个 Here 文档实例，使用单引号。
例如：a = $a
EOF
print "$var\n";

转义字符
如果我们需要输出一个特殊的字符，可以使用反斜线（\）来转义，例如输出美元符号($):
#!/usr/bin/perl
$result = "菜鸟教程 \"runoob\"";
print "$result\n";
print "\$result\n";

特殊用法

$# - 用来取得数组的最大index, 一般情况下，也可以用-1来表示最后一个元素。

常用函数

printf：输出函数，用法同c语言中一样；

length：输出包含内容的长度：如length("asdf")=4;

chop：去除最后一个字符：chop("abcd")="abc";

chomp：去除尾部的回车换行：chomp("abcd\n")="abcd";

substr($string,m,n)：给定字符串，从第m位开始截取n位长度: substr("Hello",2,3)="llo", 计数从0开始，n可省略，即至尾部；

赋值运算符

• = 赋值
• +=  例如：$num += 1; 等价于$num =$num+1;
• -=  例如：$num -= 1; 等价于$num =$num-1;
• *=  例如：$num *= 1; 等价于$num =$num*1;
• /=  例如：$num /= 1; 等价于$num =$num/1;
• %=  例如：$num %= 1; 等价于$num =$num%1;         #取模，除以那个数取余数
• **=  例如：$num **= 2; 等价于$num =$num**2;          #**代表幂，$num的2次方
• .=    例如：$str.=“ string” 等价于 $str = $str." string"；# . 代表连接符，将两个字符串拼接起来

算术运算符

• +
• -
• *
• /
• % 取余数
• ** 幂指数 10**2 即10的2次方
• ++
• --
• .  连接字符串，"this is a "."string" = "this is a string"

数值关系运算符

• >      大于
• >=    大于等于
• <      小于
• <=    小于等于
• ==    等于
• !=     不等于
• <=>  大于：1；等于：0；小于：-1；

字符串关系运算符

• gt      大于
• ge     大于等于
• lt       小于
• le      小于等于
• eq     等于
• ne     不等于
• cmp  大于：1；等于：0；小于：-1；

逻辑运算符

• &&或and   与      全真则真
• || 或or        或      全假则假
• ！或not     非       真假假真
• xor            异或   同假异真

位运算

• &       按位与
• |        按位或
• ~       按位非
• ^        按位异或
• <<     左移位
• >>     右移位

特殊运算符

• ..         区间表示  如 1..3 等价于 1,2,3
• ？：    三目操作符，满足？前条件执行：前内容，不满足执行：后内容

文件数据运算符

• -r $file 如果$file是可读取的话,返回1的值
• -w $file 如果$file是可写入的话,返回1的值
• -x $file 如果$file是可执行的话,返回1的值
• -e $file 如果$file存在的话,返回1的值
• -o $file 如果$file是被执行才所拥有的话,返回1的值
• -s $file 返回$file的文件大小(bytes)
• -f $file 如果$file是正常文件的话,返回1的值
• -T $file 如果$file是文本文件的话,返回1的值
• -B $file 如果$file是Binary文件的话,返回1的值
• -M $file 返回$file文件最后一次更改时间到现在的日期数

perl入门知识（2）