本文主要是介绍【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.23456
65535
255
13
0.0013
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
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";
$data{'google'} = google.com
$data{'runoob'} = runoob.com
$data{'taobao'} = taobao.com
Perl 哈希 | 菜鸟教程 (runoob.com)
这篇关于【perl】基本语法 /备忘录/的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!