Perl 基础语法

Perl借用了C、sed、awk、shell脚本以及很多其他编程语言的特性,语法与这些语言有些类似,也有自己的特点。

Perl 程序有声明与语句组成,程序自上而下执行,包含了循环,条件控制,每个语句以分号 (;) 结束。

Perl 语言没有严格的格式规范,你可以根据自己喜欢的风格来缩进。

第一个 perl 程序

交互式编程

你可以在命令行中使用 -e 选项来输入语句来执行代码,实例如下:

  1. $ perl -e 'print "Hello World\n"'

输入以上命令,回车后,输出结果为:

  1. Hello World

脚本式编程

我们将以下代码放到 hello.pl 文件中:

实例

  1. #!/usr/bin/perl
  2. # 输出 "Hello, World"
  3. print "Hello, world\n";

代码中 /usr/bin/perl 是 perl 解释器的路径。在执行该脚本前要先确保文件有可执行权限,我们可以先将文件权限修改为 0755 :

  1. $ chmod 0755 hello.pl
  2. $ ./hello.pl
  3. Hello, world # 输出结果

print 也可以使用括号来输出字符串,以下两个语句输出相同的结果:

  1. print("Hello, world\n");
  2. print "Hello, world\n";

脚本文件

perl 代码可以写在一个文本文件中,以 .pl、.PL 作为后缀。

文件名可以包含数字,符号和字母,但不能包含空格,可以使用下划线(_)来替代空格。

一个简单的Perl 文件名:

  1. hello.pl

注释

使用注释使你的程序易读,这是好的编程习惯。

perl 注释的方法为在语句的开头用字符#,如:

  1. # 这一行是 perl 中的注释

perl 也支持多行注释,最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:

实例

  1. #!/usr/bin/perl
  2. # 这是一个单行注释
  3. print "Hello, world\n";
  4. =pod 注释
  5. 这是一个多行注释
  6. 这是一个多行注释
  7. 这是一个多行注释
  8. 这是一个多行注释
  9. =cut

执行以上程序,输出结果为:

  1. Hello, world

注意:

  • =pod、 =cut只能在行首。
  • 以=开头,以=cut结尾。
  • =后面要紧接一个字符,=cut后面可以不用。

Perl 中的空白

Perl 解释器不会关心有多少个空白,以下程序也能正常运行:

实例

  1. #!/usr/bin/perl
  2. print "Hello, world\n";

执行以上程序,输出结果为:

  1. Hello, world

但是如果空格和分行出现在字符串内,他会原样输出:

  1. #!/usr/bin/perl
  2. # 会输出分行
  3. print "Hello
  4. world\n";

执行以上程序,输出结果为:

  1. Hello
  2. world

所有类型的空白如:空格,tab ,空行等如果在引号外解释器会忽略它,如果在引号内会原样输出。

单引号和双引号

perl 输出字符串可以使用单引号和双引号,如下所示:

实例

  1. #!/usr/bin/perl
  2. print "Hello, world\n"; # 双引号
  3. print 'Hello, world\n'; # 单引号

输出结果如下:

  1. Hello, world
  2. Hello, world\n

从结果中我们可以看出,双引号 \n 输出了换行,而单引号没有。

Perl双引号和单引号的区别: 双引号可以正常解析一些转义字符与变量,而单引号无法解析会原样输出。

  1. #!/usr/bin/perl
  2. $a = 10;
  3. print "a = $a\n";
  4. print 'a = $a\n';

输出结果如下:

  1. a = 10
  2. a = $a\n

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的用法。

实例

  1. #!/usr/bin/perl
  2. $a = 10;
  3. $var = <<"EOF";
  4. 这是一个 Here 文档实例,使用双引号。
  5. 可以在这输如字符串和变量。
  6. 例如:a = $a
  7. EOF
  8. print "$var\n";
  9. $var = <<'EOF';
  10. 这是一个 Here 文档实例,使用单引号。
  11. 例如:a = $a
  12. EOF
  13. print "$var\n";

执行以上程序输出结果为:

  1. 这是一个 Here 文档实例,使用双引号。
  2. 可以在这输如字符串和变量。
  3. 例如:a = 10
  4.  
  5. 这是一个 Here 文档实例,使用单引号。
  6. 例如:a = $a

EOF在这里通俗讲就是一个标记,他用来标记一段文字(一般都是多行的,省得编码麻烦,用”<<”加上一个标记就可以把一大段代码存入到一个变量中去了)

  1. $a=<< EOF 的意思就是说:下一行开始,直到遇见“EOF”为止,所有的字符都按照指定的格式存入变量a中。
  2. 你可以用EEEMAMA等等其他的名字都可以,就是一个标记而已。他的作用就是简化输入。

转义字符

如果我们需要输出一个特殊的字符,可以使用反斜线(\)来转义,例如输出美元符号($):

实例

  1. #!/usr/bin/perl
  2. $result = "perl 教程 \"HelloWorld\"";
  3. print "$result\n";
  4. print "\$result\n";

执行以上程序输出结果为:

  1. perl 教程 "HelloWorld"
  2. $result

Perl 标识符

Perl 标识符是用户编程时使用的名字,在程序中使用的变量名,常量名,函数名,语句块名等统称为标识符。

  • 标识符组成单元:英文字母(a~z,A~Z),数字(0~9)和下划线(_)。
  • 标识符由英文字母或下划线开头。
  • 标识符区分大小写,$runoob 与 $Runoob 表示两个不同变量。

perl 中的单引号和双引号

  • 1.双中有双,单中有单都需要 \ 转义。
  • 2.双中有单或单中有双均不需要转义。
  • 3.单引号直接了当,引号内是什么就显示什么,双引号则需要考虑转义或变量替换等。