初尝 Perl

本文将阐述以下几方面内容：

1、什么是Perl

2、Perl有什么用

3、Windows 下的Perl环境搭建

4、Perl 版Hello World

5、Perl 语法梗概

6、一些参考资料

---

什么是Perl

Perl 是一门由 Larry Wall(拉里·沃尔)设计并实现的一门脚本语言，Larry Wall设计这门语言的最初的目的为了让UNIX 上得报表处理工作变得更方便。Perl 第一版的发行时间为 1987年（Python第一版的发行时间为 1991年、Ruby第一版的发行时间为 1995年，这三种程序设计语言经常被放在一起做比较）。

Perl的来自单词Pearl（珍珠的意思），或许在设计者 Larry Wall 眼里，Perl如珍珠般珍贵

Perl的吉祥物为骆驼据说是因为Oreilly出版的畅销书Programming Perl的封面是一匹骆驼，Perl社区就采用了骆驼作为Perl语言的吉祥物。

 

Perl 有什么用

引用维基百科的说法，Perl的用途很广，除了CGI以外，Perl还被用于图形编程、系统编程、网络编程、金融、生物等领域。由于其灵活性，Perl被称为脚本语言中的瑞士军刀。在CPAN上有大量优秀Perl的库。在Linux和Mac OS 上都是内置Perl的。总结为一句话——Perl很有用，当需要脚本语言的时候，不妨考虑下Perl。这些我们了解即可。

本篇文章为初尝Perl，定位为了解Perl的梗概，博主目前现实工作中也没用到Perl，仅仅当一个知识储备，以后用到Perl的时候再深入学习一番。

 

Windows 下的Perl环境搭建

1、访问 http://www.perl.org/ 下载Perl Windows的实现版本，这里有两个版本（Strawberry Perl 和 ActiveState Perl）这两个版本没什么大的区别，博主选择了后者ActiveState Perl 5.20 

2、安装 ActiveState Perl 5.20 ，一路默认安装即可

3、验证 Perl 是否安装成功，在命令提示符下输入 perl –v

如出现上图所示信息表示 Perl 已安装成功

 

Perl 版Hello World

1、打开一个文本编辑器(如Notepad++)，输入如下内容

# perl-w
print "Hello World";

在名利提示符下运行结果为（代码保存在 1.pl 中）

上面的 # 是注释符号， perl –w 是要求 perl 显式 Warmming 信息的选项

 

Perl 语法梗概

1、 变量定义，在 Perl下有好几种定义变量的方法，我捡最常用两种说明：

单数变量：以$ 打头，仅表示一个变量对象

复数变量：以@打头，表示一个数组

例1：单数变量

# perl-w
$pi = 3.141592;
print $pi;

例2：复数变量

# perl-w
@digital = (a..z);
print @digital; #打印a到z的所有小写字母

 

2、每个语句以分号“;”结束

 

3、简单的数学运算

# perl-w
$a = 2;
$b = 3;
print $a + $b;    # 加法
print "
";
print $a - $b;    # 减法
print "
";
print $a % $b;  # 模运算
print "
";
print $a ** $b; # 幂运算

 

4、比较操作符 及 if 分支结构

比较	数字	字符串	含义
等于	==	eq	判断相等与否
不等	!=	ne	判断不等与否
小于	<	lt	判断小于与否
大于	>	gt	判断大于与否
小于或等于	<=	le	判断不大于与否
大于或等于	>=	ge	判断不小于与否
比较	<=>	cmp	相等为0，前者大为1，否则为-1

也许读者看到这个会奇怪，为什么有两套比较操作符，其实我也很奇怪，但是Perl设计人就是这样设计的，咱不计较。这两组比较符要求待比较参数先转换为合适的参数类型后比较。光说不练假把式看代码：

# perl-w
$a = "a";
$b = "b";
if($a == $b){
    print "两变量相等";        
} else {
    print "两变量不相等";
}
# 会打印两变量相等 因为$a 和 $b 都是字符串转换为数字都会失败，返回相同的默认值，所以相等

# perl-w
$a = "a";
$b = "b";
if($a eq $b){
    print "两变量相等";        
} else {
    print "两变量不相等";
}

if分支包括 if 、if –else 、if –若干个elsif-else 3种

 

5、循环

Perl 有4种循环 while 、do-while、for、foeach

# perl-w
# 打印1-100 被3整除的数
$var = 1;
while($var <= 100){
    if($var % 3 == 0){
        print $var;
        print " ";
    }
    $var += 1;
}

do-while 略

# perl-w
# 打印1-100 被3整除的数
for($var = 1;$var <=100;$var++){
    if($var % 3 == 0) {
        print $var;
        print " ";
    }
}

foreach 的格式为：

foreach $i (@some_list){

   statement_1;

   …

   statement_n;

}

# perl-w
# 打印1-100 被3整除的数
# (1..100)返回的是一个数组
foreach $var ((1..100)){
    if($var % 3 == 0){
        print $var;
        print " ";
    }
}

在 for 和 foreach 中有两个循环控制关键字——last 和 next。 last 相当于break，next 为 continue，有C基础的人都能看懂什么意思。

 

6、函数

函数的定义为用关键 sub 声明

sub methodName{

  statement_1;

  …

  statement_n;

}

参数列表存在 @_ 中

如函数带返回值，结尾用 return 语句接口

看代码

# perl-w
sub add{
    foreach $para (@_) {
        print $para;
        print " ";
    }
    print "
";
    return $_[0] + $_[1];    # 带返回值
}
print add(3,4);

 

 

一些参考资料

1、小骆驼书

2、大骆驼书

3、Perl 官网 http://www.perl.org/

 

本文完