Perl语言学习笔记

偷偷爱一个人是很幸福的，因为你永远也不会担心失恋

恋爱都没谈过，怎么找女朋友啊！

一、引言

perl语言的CGI后端程序代码，跟传统的C语言语法有些区别，这里做一下笔记。

Perl语言，一种功能丰富的计算机程序语言，运行在超过100种计算机平台上，适用广泛，从大型机到便携设备，从快速原型创建到大规模可扩展开发。

Perl 语言的应用范围很广，除CGI以外，Perl被用于图形编程、系统管理、网络编程、金融、生物以及其他领域。由于其灵活性，Perl被称为脚本语言中的瑞士军刀。

Perl 编程语言 - www.perl.org

二、特点

使用# 是单行注释，多行注释是=pdo开头，=cut结尾：

#!/usr/bin/perl

# 这是一个单行注释
print "Hello, worldn";

=pdo 注释
这是一个多行注释
这是一个多行注释
这是一个多行注释
=cut

print 可以使用括号来输出字符串，也可以不使用括号：

print("Hello, worldn");
print "Hello, worldn";

变量的声明

1）my 作用：把变量的名字和值都限于某个范围内，也就是说，该变量只能本层模块或者函数可以看到这个变量，高一层或者低一层的都看不到。2）our 作用：把变量名字限于某个范围，其实就是明确声明一个”全局变量”，虽然是在某个模块或者函数里面定义，外面的也可以访问，如果已经声明过了，再次用our，表示此处用的和之前声明的our变量是同一个。3）local 作用：把值局限于某个范围，该范围与my有所区别的是，包含本层及本层的下层，但本层的上一层不可以访问。4）全局变量use vars qw(szVersionCode,szVersionName), 作用是把变量szVersionCode和szVersionName定义成全局变量。其作用与our作用等同。

循环类型

循环控制

#!/usr/bin/perl

# 函数定义
sub func{
   # 参数；使用特殊数组 @_ 标明，第一个参数为 $_[0], 第二个参数为 $_[1]...
   foreach $item (@_){
      print "item:".$item."n";
   }

   # 返回值；如果没有使用 return 语句，则子程序的最后一行语句将作为返回值。
   # 不使用 return
   $_[0]+$_[1];  

   # 使用 return
   # return $_[0]+$_[1]; 
}

# 函数调用，在 Perl 5.0 以下版本调用函数是&func(1,2);
$sum = func(1,2);
print "sum:".$sum."n";

结果为：

item:1
item:2
sum:3

正则表达式(regular expression)描述了一种字符串匹配的模式，可以用来检查一个串是否含有某种子串、将匹配的子串做替换或者从某个串中取出符合某个条件的子串等。

Perl语言的正则表达式功能非常强大，基本上是常用语言中最强大的，很多语言设计正则式支持的时候都参考Perl的正则表达式。

Perl的正则表达式的三种形式，分别是匹配，替换和转化:

• 匹配：m//（还可以简写为//，略去m）

• 替换：s///

• 转化：tr///

这三种形式一般都和 =~ 或 !~ 搭配使用， =~ 表示相匹配，!~ 表示不匹配。

1）匹配示例

#!/usr/bin/perl

$string = "welcome to zhiwanyuzhou site.";
$string =~ m/wan/;
print "匹配前的字符串: $`n";
print "匹配的字符串: $&n";
print "匹配后的字符串: $'n";

结果为：

匹配前的字符串: welcome to zhi
匹配的字符串: wan
匹配后的字符串: yuzhou site.

2）替换示例

#!/usr/bin/perl

$string = "welcome to baidu site.";
$string =~ s/baidu/zhiwanyuzhou/;

print "$stringn";

结果为：

welcome to zhiwanyuzhou site.

3）转化示例

#!/usr/bin/perl 

$string = 'welcome to zhiwanyuzhou site.';
$string =~ tr/a-z/A-z/;

print "$stringn";

结果为：

WELCOME TO ZHIWANYUZHOU SITE.

三、CGI相关

所有的CGI程序都接收以下的环境变量，这些变量在CGI程序中发挥了重要的作用：

以下是一个简单的CGI脚本输出CGI的环境变量：

#!/usr/bin/perl

print "Content-type: text/htmlnn";
print '<meta charset="utf-8">';
print "<font size=+1>环境变量：</font>n";
foreach (sort keys %ENV)
{
  print "<b>$_</b>: $ENV{$_}<br>n";
}

print "<font size=+1>参数：</font>n";
local ($buffer, @pairs, $pair, $name, $value, %FORM);
# 读取信息
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}else {
   $buffer = $ENV{'QUERY_STRING'};
}
# 读取 name/value 对信息
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%(..)/pack("C", hex($1))/eg;
   $FORM{$name} = $value;

   print "<b>$name</b>: $value<br>n";
}

1;
1;在模块的结尾意味着模块返回true以use/require语句。它可以用来判断模块初始化是否成功。否则， use/require将失败。 

四、参考文档

https://perldoc.perl.org/perlre

https://www.w3cschool.cn/perl/perl-intro.html

原文始发于微信公众号（qingjiegong）：Perl语言学习笔记