Perl的语法-1
声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，
未经笔者授权，任何人和机构不能转载
1. 语句
1.1 结构
单个语句用;表示结束，结构如下：
语句;注释
例如：
print “hello,word”;#输出hello,word
1.2 注释
#表示后面的内容为注释。
1.3 语句块
1）语句块用{和}包围。
2）一行可以有多个语句。
2. 执行及扩展名
1.
2.
2.1 程序扩展名
程序通常以pl结尾，如果是做为Apache容器中的cgi程序执行脚本，必须为脚本文件名提供.pl或.cgi扩展名。
2.2 程序执行
在命令行中输入:perl 程序名
3. 变量与常量
1
2
3
1.
2.
3.
3.1 变量的表示
变量的表示非常简洁：
1）不要求变量有类型。
2）对于数组，采用以@后接变量名表示,比如@names。
3）对于保存单个值的变量，采用$后接变量名表示，称之为标量，比如$name。
4）对于哈希变量，采用%后接变量名表示。
5)变量在第一次赋值前有一个特殊值 undef，即没有任何值。
3.2 变量的声明
1) 变量可以不声明，直接使用。
2) 声明语法是：
作用域 变量名
3.3 变量的作用域
1)变量前不加作用域限定，表示该变量为全局变量。
2)主要有my作用域和local作用域。
my作用域主要用来声明局部变量。my声明的变量仅作用于声明该的层次及同一层次上定义的其它子程序。
local作用域只影响声明的层次以及以内的层次，仅能在local作用域声明的层次及以内层次修改变量值。
3.4 预定义变量
预定义变量
用途
$_
在执行输入和模式搜索操作时使用的默认空格变量
$.
文件中最后处理的当前行号
$@
由最近一个eval()运算符提供的Perl语法报错信息
$!
获取当前错误信息值，常用于die命令
$0
获取当前执行脚本的程序名
$$
正在执行脚本的Perl进程号
$PERL_VERSION /z
Perl解释器的版本、子版本和修订版本信息
@ARGV
获取命令行参数列表
ARGV
一个特殊的文件句柄，用于遍历@ARGV中出现的所有文件名
@INC
库文件的搜索路径
@_
在子程序中，@_变量含有传给该子程序的变量内容
%ENV
关联数组型变量%ENV含有当前环境信息
%SIG
关联数组型变量%SIG含有指向信号内容的句柄
3.5 常量
4. 选择控制
在Perl中，选择控制包括if和unless，条件表达式值为空串或0时，为假， 否则为真。
1
2
3
4
4.1 如果为真if
表示如果为真。
语法一:
if(条件表达式)
{
表达式为真时的语句块;
}
或者为以下语法(注意不是语句块，是单个语句)：
表达式为真时的语句块 if条件表达式;
范例1：
#perl0-1.pl
$x=1;
if ($x>0){
print “ok”;
}
print “ok” if $x>0;#和本程序中的上一个if功能完全一样
范例2:
#perl0-2.pl
$x=1;
if ($x) {#条件表达式非0，即真
print “x:yes\n”;
}
$y=0;
if ($y) {#条件表达式为0，即假
print “y:yes\n”;
}
$z=0.0;
if ($z) {#条件表达式为0，即假，注意0.0也作为数值表达式等于0
print “z:yes\n”;
}
$a=’0’;
if ($a) {#条件表达式为0，即假
print “a:yes\n”;
}
$b=’00’;
if ($b) {#条件表达式非0，即真
print “b:yes\n”;
}
$c=’0.0’;
if ($c) {#条件表达式非0，即真,注意’0.0’做为字符表达式不等于0
print “c:yes\n”;
}
$d=’’;
if ($d) {#条件表达式为空串，即假
print “d:yes\n”;
}
$e=’ ‘;
if ($e) {#条件表达式为一个空格，不为空串，即真
print “e:yes\n”;
}
运行结果如下：
x:yes
b:yes
c:yes
e:yes
语法二:
if(条件表达式){
条件表达式为真时的语句块;
}else{
条件表达式为假时的语句块;
}
范例:
#perl0-3.pl
$x=5;
if($x>0)
{
print”正数!\n”;
}else{
print”0或负数!\n”;
}
运行结果如下：
正数!
语法三:
if (条件表达式一)
{
条件表达式一为真时的语句块;
}elsif(条件表达式二){
条件表达式二为真时的语句块;
}elsif(条件表达式三){
条件表达式三为真时的语句块;
}
…
…
…
elsif(条件表达式n){
条件表达式n为真时的语句块;
}else{
所有条件表达式为假时的语句块;
}
范例:
#perl0-4.pl
$x=<STDIN>;
chomp($x);
if($x>=10000)
{
print”大于1万的正数!\n”;
}elsif ($x>0){
print”小于1万的正数0!\n”;
}
elsif ($x==0){
print”0!\n”;
}
else{
print “负数!\n”;
}
运行几次程序，依次输入测试数字100、300000、-200、0。
Perl perl0-4.pl
100
小于1万的正数0!
Perl perl0-4.pl
300000
大于1万的正数!
Perl perl0-4.pl
-200
负数!
Perl perl0-4.pl
0
0!
页:
[1]