【perl】基本语法 /备忘录/

分享 perl 语言学习资源

Perl 教程|极客教程 (geek-docs.com)

Perl [zh] (runebook.dev)

Perl 运算符 | 菜鸟教程 (runoob.com)

Perl Documentation - Perldoc Browser

Search the CPAN - metacpan.org

当然还有一些经典书籍，不再列举。

1、数字

1.1、数字表示

perl内部会把所有的数字当做浮点数进行处理。如果一个数字太长，可以使用下划线将数据分开，便于阅读。

与其他语言类似，支持整数的其他进制表示，十六进制0x，八进制0，二进制0b。

同样支持幂指数表示。

example：

$a = 1.23_456;#十进制
print "$a\n";$b = 0xFF_FF;#十六进制
print "$b\n";$c = 0377;#八进制
print "$c\n";$d = 0b1101;#二进制
print "$d\n";$e = 1.3e-3;#指数表示
print "$e\n";

result：

1.2、数字操作符

基本的加减乘除运算，+ - * /

取模（求余）运算 % ，对于小数的求余，会将操作数的小数部分直接去掉（即，向下取整）然后再做求余运算，如 10.99 % 3 = 1。可以将操作数变为负数，如 -10.01 % -7 = -3；-10.01 % 7 = 4

指数运算符 ** ，如2**3 = 8。负数的非整数次方运算会产生复数，复数的运算需要Math::Complex 模块。

use Math::Complex;# $cc = cplx(3,4);
$cc = 3+4*i;
print $cc**2 . "\n";

Perl - Math::Complex [zh] (runebook.dev)

这个网址有很多中文的perl语法手册。

2、字符串

2.1、单引号字符串

单引号里面的转义字符，只支持单引号和反斜线。其他字符均表示自身。

示例：

$s1 = 'asdf\'\\\n qwe
\twefff';
print $s1 ;

result：

asdf'\\n qwe
\twefff

2.2、双引号字符串

双引号字符串支持所有的转义字符。

example：

$s2 = "asdf\'\\\nashs\thjlidce12#\"";
print $s2;

result：

asdf'\
ashs	hjlidce12#"

perl中文教程：Perl 教程|极客教程 (geek-docs.com)

2.3、字符串操作符

. 可以将字符串前后连接。

x 可以将字符串复制粘贴，x后面的次数如果是小数，将小数向下取整后复制粘贴。

字符串和数字之间，perl 解释器会根据语境自动转换。

example：

print "HELLO WORLD " . "HELLO PERL" . "\n";# 字符串连接print "hello perl \n" x 3;print 3 x 10 . "\n";print 1 x 3.99 . "\n";print "A" . 3*8 . "\n";

result：

HELLO WORLD HELLO PERL
hello perl 
hello perl 
hello perl 
3333333333
111
A24

3、perl 内置警告

有几种使能警告的方式：

1、在终端运行时： perl -w perl_program.pl

2、 perl代码的第一行：#! /usr/bin/perl/ -w

3、perl代码的前面打开使能：use warnings;

如果不理解警告信息，可以使用诊断：use diagnostics;

4、标量变量

标量变量只能存放一个标量值。命名方式和其他语言不一样的是，变量名称由$符号后接标识符组成。标识符由数字、字母、下滑线组成，不可以由数字开头。

变量赋值几种方式：

1、单纯使用 = 赋值。

2、使用 += 、*=、 /=、 .=、等。

字符串标量变量的内插(仅双引号有效)：

$str1 = "12345678980";

$str2 = "You input $str1";#将str1插入str2

print $str2;

$str3 = "You input \$str1";#转义字符使得str2不会插入str3

4、if

基本与C语言一致，example：

需要注意的是 perl 的 elseif 写作 elsif。

$str22 = "vhwroivqpo";
if($str22 eq "abc")
{print "OK" . "\n";
}
else
{print "NOT OK" ."\n";
}

5、用户输入

输入操作符 <STDIN> 示例：

print "input something you want please." . "\n";
$line = <STDIN>;
chomp $line;
print "your input is $line" . "\n";

chomp 操作用于去掉行尾的换行符。

6、while

perl 程序出现死循环，使用Ctrl + C强制结束。

while的句法和C语言中差不多。

Perl 循环 | 菜鸟教程 (runoob.com)

$count = 0;
while ($count < 10) {
$count += 2;
print "count is now $count\n"; #打印出2 4 6 8 10
}

7、undef

变量在定义后，如果没有被赋值，其默认值为 undef 。

对于数字变量，undef 等价于 0。如果是字符串变量，undef则表现为空字符串。

8、defined

由于undef 有默认行为，在程序执行过程中不报错，但是容易产生不易于理解的方面，可以使用defined函数分辨变量是否为undef，若是未定义则返回false，否则返回 true 。

example：

$ee ;
if(not defined($ee))
{print "it is a empty string" . "\n";
}$ee = "123";
if(defined($ee))
{print "it is a non-empty string :" .$ee . "\n";
}

result：

it is a empty string
it is a non-empty string :123

9、数组/列表

Perl 数组一个是存储标量值的列表变量，变量可以是不同类型。

数组变量以 @ 开头。访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取，实例如下。

索引序号由0开始，-1表示列表的最后一个元素，$#列表变量名 同样表示最后一个列表元素的索引值。数组内元素的修改则可以通过索引直接赋值的形式进行。

@list1 = (1,2,3,4,5,6,7,8);
print $list1[1] . "\n";
print $list1[$#list1] . "\n";# 索引最后一个
print $list1[-1] . "\n";# 索引最后一个
$list1[0] = "1";
$list1[1] = "2";
$list1[2] = "1";
$list1[3] = "2";
$list1[4] = "1";
$list1[5] = "2";
$list1[6] = "1";
$list1[7] = "2";
print $list1[1] . "\n";
print $list1[$#list1] . "\n";# 索引最后一个
print $list1[-1] . "\n";# 索引最后一个

9.1 数组创建

数组变量以 @ 符号开始，元素放在括号内，也可以以 qw 开始定义数组。Perl 允许使用任何标点符号作为分界符，最好不要用 #。

Perl 提供了可以按序列输出的数组形式，格式为 起始值 + .. + 结束值。

@p1 = qw !12 13 45 56 123 11 2223 2345!;
@p2 = qw <12 13 45 56 123 11 2223 2345>;
@p3 = qw *12 13 45 56 123 11 2223 2345*;
@p4 = qw ?12 13 45 56 123 11 2223 2345?;
@n1 = 0..10;
@a1 = a..d;@p5 = @p2;                        #将p2列表拷贝到p5。
($p2[0],$p2[1]) = ($p2[1],$p2[0]);#变量交换$size1 = @p1;      #数组长度
$max_index = $#p1; #数组的最大索引号@p6 = (@p1,@n1,@a1);#列表的元素也可以为列表print $size1 . "\t" . $max_index . "\n";
print @p2;print "\n";
print @p6;print "\n";
print @n1;print "\n";
print @a1;print "\n";

result：

8	7
131245561231122232345
121345561231122232345012345678910abcd
012345678910
abcd

9.2 pop 、push

pop 操作将数组的最后一个元素取出并返回。

push，它可以将一个元素（或者一列元素）加在数组的末尾。

push 的第一个参数或者pop 的唯一参数必须是数组变量。

@t1 = 'a'..'z';print @t1;print "\n";
$a1 = pop @t1;print $a1;print "\n";
push @t1,'k';print @t1;print "\n";
push @t1,@t1;print @t1;print "\n";

result：

abcdefghijklmnopqrstuvwxyz
z
abcdefghijklmnopqrstuvwxyk
abcdefghijklmnopqrstuvwxykabcdefghijklmnopqrstuvwxyk

9.3 shift 、unshift

unshift 和 shift 对一个数组的开头进行操作（数组的左端有最小下标的元素）。

unshift类似于push；shift类似于pop。

@t1 = 'a'..'z';print @t1;print "\n";
$a1 = shift @t1;print $a1;print "\n";
unshift @t1,'kkkk';print @t1;print "\n";
unshift @t1,@t1;print @t1;print "\n";

result：

abcdefghijklmnopqrstuvwxyz
a
kkkkbcdefghijklmnopqrstuvwxyz
kkkkbcdefghijklmnopqrstuvwxyzkkkkbcdefghijklmnopqrstuvwxyz

9.4 取数组子集

@t1 = ('a'..'z')[10..15];print @t1;print "\n";
@t2 = @t1[1..3];print @t2;print "\n";

result：

klmnop
lmn

9.5 splice

splice函数用于实现数据元素替换。

示例：

@t1 = ('a'..'z')[10..20];print @t1;print "\n";
splice @t1, 2, 2, qw/& &/; print @t1;print "\n";
splice @t1, 4, 2, qw/* */; print @t1;print "\n";

result：

klmnopqrstu

kl&&opqrstu

kl&&**qrstu

9.6 split

示例：

# 定义字符串
$var_test = "runoob";
$var_string = "www-runoob-com";
$var_names = "google,taobao,runoob,weibo";# 字符串转为数组
@test = split('', $var_test);
@string = split('-', $var_string);
@names  = split(',', $var_names);print "$test[3]\n";    # 输出 o
print "$string[2]\n";  # 输出 com
print "$names[3]\n";   # 输出 weibo

result：

o

com

weibo

9.7 join

example：

# 定义字符串
$var_string = "www-runoob-com";
$var_names = "google,taobao,runoob,weibo";# 字符串转为数组
@string = split('-', $var_string);
@names  = split(',', $var_names);# 数组转为字符串
$string1 = join( '%', @string );
$string2 = join( '*', @names );print "$string1\n";
print "$string2\n";

result：

www%runoob%com

google*taobao*runoob*weibo

9.8 sort

sort 操作将输入的一串列表（可能是数组）根据内部的字符顺序进行排序。如对于ASCII 字符串，将根据ASCII 序进行排序。和reverse 一样，其参数是不会受到影响的。如果想将某个数组排序，那必须将排序之后的结果存回数组中。

# 定义数组
@sites = qw(google taobao runoob facebook apple blue break cup);
print "排序前: @sites\n";# 对数组进行排序
@sites = sort(@sites);
print "排序后: @sites\n";

result：

排序前: google taobao runoob facebook apple blue break cup

排序后: apple blue break cup facebook google runoob taobao

9.9 reverse

reverse（逆转）操作将输入的一串列表（可能是数组）按相反的顺序返回。注意reverse 返回逆转的列表，它不会改变其参数的值。如果返回值没有赋值给某个变量，那这个操作是没有什么意义的。

@t1 = ('a'..'z')[10..20];print "@t1\n";
@t2 = reverse @t1;print "@t2\n";

result：

k l m n o p q r s t u

u t s r q p o n m l k

10、foreach

主要用于遍历列表，语法格式：

foreach var (list) {
...
}
示例：
@t1 = ('a'..'z')[10..20];print "@t1\n";
foreach $k (@t1){print "$k \n";
}
result：

k l m n o p q r s t u

k

l

m

n

o

p

q

r

s

t

u

11、scalar

scalar只是用来告诉perl 解释器这是一个标量。

@rocks = qw(talc quartz jade obsidian);
print "How many rocks do you have?\n";
print "I have ", @rocks, "rocks!\n"; #错误，输出rocks 的名字
print "I have ". @rocks. "rocks!\n"; #正确，输出其数字
print "I have ", scalar @rocks, "rocks!\n"; #正确，输出其数字

result：

How many rocks do you have?

I have talcquartzjadeobsidianrocks!

I have 4rocks!

I have 4rocks!

12、多行输入 @lines = <STDIN>;

@lines = <STDIN>; #读入所有的行
chomp = (@lines); #去掉所有的换行符

或者：

chomp (@lines = <STDIN>); #读入所有的行，不包括换行符

Unix 系统中应当使用CTRL+D 表明end-of-file，在Windows 系统中使用CTRL+Z。

13、子程序（函数）

语法格式：

13.1、向子程序传递参数

Perl 子程序可以和其他编程一样接受多个参数，子程序参数使用特殊数组 @_ 标明。

因此子程序第一个参数为 $_[0], 第二个参数为 $_[1], 以此类推。

不论参数是标量型还是数组型的，用户把参数传给子程序时，perl默认按引用的方式调用它们。

# 定义求平均值函数
sub Average{# 获取所有传入的参数$n = scalar(@_);$sum = 0;foreach $item (@_){$sum += $item;}$average = $sum / $n;print '传入的参数为 : ',"@_\n";           # 打印整个数组print "第一个参数值为 : $_[0]\n";         # 打印第一个参数print "传入参数的平均值为 : $average\n";  # 打印平均值
}# 调用函数
Average(10, 20, 30);

13.2、子程序返回值

子程序可以向其他编程语言一样使用 return 语句来返回函数值。

如果没有使用 return 语句，则子程序的最后一行语句将作为返回值。

13.3、子程序的私有变量

默认情况下，Perl 中所有的变量都是全局变量，这就是说变量在程序的任何地方都可以调用。

如果我们需要设置私有变量，可以使用 my 操作符来设置。

my 操作符用于创建词法作用域变量，通过 my 创建的变量，存活于声明开始的地方，直到闭合作用域的结尾。

闭合作用域指的可以是一对花括号中的区域，可以是一个文件，也可以是一个 if, while, for, foreach, eval字符串。

13.4、变量临时赋值

我们可以使用 local 为全局变量提供临时的值，在退出作用域后将原来的值还回去。

local 定义的变量不存在于主程序中，但存在于该子程序和该子程序调用的子程序中。

example：

# 全局变量
$string = "Hello, World!";sub PrintRunoob{# PrintHello 函数私有变量local $string;$string = "Hello, Runoob!";# 子程序调用的子程序PrintMe();print "PrintRunoob 函数内字符串值：$string\n";
}
sub PrintMe{print "PrintMe 函数内字符串值：$string\n";
}sub PrintHello{print "PrintHello 函数内字符串值：$string\n";
}# 函数调用
PrintRunoob();
PrintHello();
print "函数外部字符串值：$string\n";

result：

PrintMe 函数内字符串值：Hello, Runoob!
PrintRunoob 函数内字符串值：Hello, Runoob!
PrintHello 函数内字符串值：Hello, World!
函数外部字符串值：Hello, World!

13.5、静态变量

state操作符功能类似于C里面的static修饰符，state关键字将局部变量变得持久。

state也是词法变量，所以只在定义该变量的词法作用域中有效。

注1：state仅能创建闭合作用域为子程序内部的变量。

注2：state是从Perl 5.9.4开始引入的，所以使用前必须加上 use。

注3：state可以声明标量、数组、哈希。但在声明数组和哈希时，不能对其初始化（至少Perl 5.14不支持）。

use feature 'state';sub PrintCount{state $count = 0; # 初始化变量print "counter 值为：$count\n";$count++;
}for (1..5){PrintCount();
}

result：

counter 值为：0

counter 值为：1

counter 值为：2

counter 值为：3

counter 值为：4

子程序调用过程中，会根据上下文来返回不同类型的值，比如以下 localtime() 子程序，在标量上下文返回字符串，在列表上下文返回列表。

# 标量上下文
my $datestring = localtime( time );
print $datestring;print "\n";# 列表上下文
# $year 的值是从 1900 年作为起始年开始的计数
($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);
printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec);print "\n";

result：

Wed Jun 12 15:17:32 2024

2024-6-12 15:17:32

14、运算符合集

14.1、算术运算符

14.2、比较运算符

14.3、逻辑运算符

14.4、赋值运算符

14.5、位运算符

14.6、引号运算符

14.7、其他运算符

14.8、运算符优先级

15、三目运算符 ? :

16、时间日期

Perl中处理时间的函数有如下几种：

1、time() 函数：返回从1970年1月1日起累计的秒数
2、localtime() 函数：获取本地时区时间
3、gmtime() 函数： 获取格林威治时间

Perl 时间日期 | 菜鸟教程 (runoob.com)

17、正则表达式

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

匹配：m//（还可以简写为//，略去m）
替换：s///
转化：tr///

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

Perl 正则表达式 | 菜鸟教程 (runoob.com)

18、POD

pod本身的功能很强大，但是对于我而言，我喜欢在perl脚本中用=pod、=cut实现多行注释。

=pod
========================================
Author:
Abstract:
Date:
Note:
========================================
=cut

19、DATA、END

可以将其后的代码注释掉。

example：

print "vcqhewviu" . "\n";# __END__
__DATA__print "vcqhewviu" . "\n";
print "vcqhewviu" . "\n";
print "vcqhewviu" . "\n";

result：

vcqhewviu

20、哈希

简单来说，哈希是 key/value 对的集合。

Perl中哈希变量以百分号 (%) 标记开始。

访问哈希元素格式：${key}。

以下是一个简单的哈希实例：

%data = ('google', 'google.com', 'runoob', 'runoob.com', 'taobao', 'taobao.com');print "\$data{'google'} = $data{'google'}\n";
print "\$data{'runoob'} = $data{'runoob'}\n";
print "\$data{'taobao'} = $data{'taobao'}\n";