交互式编程
你可以在命令行中使用 -e 选项来输入语句来执行代码,实例如下:
$ perl -e ‘print "Hello World\n"‘
输入以上命令,回车后,输出结果为:
Hello World
脚本式编程
我们将以下代码放到 hello.pl 文件中:
#!/usr/bin/perl
# 输出 "Hello, World"
print "Hello, world\n";
代码中 /usr/bin/perl 是 perl 解释器的路径。在执行该脚本前要先确保文件有可执行权限,我们可以先将文件权限修改为 0755 :
$ chmod 0755 hello.pl
$ ./hello.pl
Hello, world # 输出结果
print 也可以使用括号来输出字符串,以下两个语句输出相同的结果:
print("Hello, world\n");
print "Hello, world\n";
脚本文件
perl 代码可以写在一个文本文件中,以 .pl、.PL 作为后缀。
文件名可以包含数字,符号和字母,但不能包含空格,可以使用下划线(_)来替代空格。
一个简单的Perl 文件名:
run_oob.pl
注释
使用注释使你的程序易读,这是好的编程习惯。
perl 注释的方法为在语句的开头用字符#,如:
# 这一行是 perl 中的注释
perl 也支持多行注释,最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:
#!/usr/bin/perl
# 这是一个单行注释
print "Hello, world\n";
=pdo 注释
这是一个多行注释
这是一个多行注释
这是一个多行注释
这是一个多行注释
=cut
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的用法。
#!/usr/bin/perl
$a = 10;
$var = <<"EOF";
这是一个 Here 文档实例,使用双引号。
可以在这输如字符串和变量。
例如:a = $a
EOF
print "$var\n";
$var = <<‘EOF‘;
这是一个 Here 文档实例,使用单引号。
例如:a = $a
EOF
print "$var\n";
转义字符
如果我们需要输出一个特殊的字符,可以使用反斜线(\)来转义,例如输出美元符号($):
#!/usr/bin/perl
$result = "菜鸟教程 \"runoob\"";
print "$result\n";
print "\$result\n";
特殊用法
$# - 用来取得数组的最大index, 一般情况下,也可以用-1来表示最后一个元素。
常用函数
printf:输出函数,用法同c语言中一样;
length:输出包含内容的长度:如length("asdf")=4;
chop:去除最后一个字符:chop("abcd")="abc";
chomp:去除尾部的回车换行:chomp("abcd\n")="abcd";
substr($string,m,n):给定字符串,从第m位开始截取n位长度: substr("Hello",2,3)="llo", 计数从0开始,n可省略,即至尾部;
赋值运算符
- = 赋值
- += 例如:$num += 1; 等价于$num =$num+1;
- -= 例如:$num -= 1; 等价于$num =$num-1;
- *= 例如:$num *= 1; 等价于$num =$num*1;
- /= 例如:$num /= 1; 等价于$num =$num/1;
- %= 例如:$num %= 1; 等价于$num =$num%1; #取模,除以那个数取余数
- **= 例如:$num **= 2; 等价于$num =$num**2; #**代表幂,$num的2次方
- .= 例如:$str.=“ string” 等价于 $str = $str." string";# . 代表连接符,将两个字符串拼接起来
算术运算符
- +
- -
- *
- /
- % 取余数
- ** 幂指数 10**2 即10的2次方
- ++
- --
- . 连接字符串,"this is a "."string" = "this is a string"
数值关系运算符
- > 大于
- >= 大于等于
- < 小于
- <= 小于等于
- == 等于
- != 不等于
- <=> 大于:1;等于:0;小于:-1;
字符串关系运算符
- gt 大于
- ge 大于等于
- lt 小于
- le 小于等于
- eq 等于
- ne 不等于
- cmp 大于:1;等于:0;小于:-1;
逻辑运算符
- &&或and 与 全真则真
- || 或or 或 全假则假
- !或not 非 真假假真
- xor 异或 同假异真
位运算
- & 按位与
- | 按位或
- ~ 按位非
- ^ 按位异或
- << 左移位
- >> 右移位
特殊运算符
- .. 区间表示 如 1..3 等价于 1,2,3
- ?: 三目操作符,满足?前条件执行:前内容,不满足执行:后内容
文件数据运算符
- -r $file 如果$file是可读取的话,返回1的值
- -w $file 如果$file是可写入的话,返回1的值
- -x $file 如果$file是可执行的话,返回1的值
- -e $file 如果$file存在的话,返回1的值
- -o $file 如果$file是被执行才所拥有的话,返回1的值
- -s $file 返回$file的文件大小(bytes)
- -f $file 如果$file是正常文件的话,返回1的值
- -T $file 如果$file是文本文件的话,返回1的值
- -B $file 如果$file是Binary文件的话,返回1的值
- -M $file 返回$file文件最后一次更改时间到现在的日期数