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!