Perl常用语法

本文主要为了方便阅读、编写perl脚本而记录的常用的命令、语法。

一、条件判断语法

注意，数字 0, 字符串 '0' 、 "" , 空 list () , 和 undef 为 false ，其他值均为 true。 true 前面使用 ! 或 not则返回 false

1.IF语句

语法：

if(boolean_expression){
   # 在布尔表达式 boolean_expression 为 true 执行
}

示例：

#!/usr/bin/perl 

$a=;


if($a>=){
   printf "a 大于等于 20 \n";
}
printf "变量a的值为:$a\n"

结果：

2.IF...ELSE 语句

语法：

if(boolean_expression){
   # 在布尔表达式 boolean_expression 为 true 执行
}<span style="color:#0000ff;">else</span><span style="color:#000000;">{
   </span><span style="color:#008000;">#</span><span style="color:#008000;"> 在布尔表达式 boolean_expression 为 false 执行</span>
}

示例：

#!/usr/bin/perl 

$a=10;

if($a>=20){
   printf "a 大于等于 20 \n";
}else{
   printf "a 小于 20\n";
}
printf "变量a的值为:$a\n";

输出结果：

3.IF...ELSIF...else 语句

语法：

if(boolean_expression ){
   # 在布尔表达式 boolean_expression 1 为 true 执行
}
elsif( boolean_expression ){
   # 在布尔表达式 boolean_expression 2 为 true 执行
}
elsif( boolean_expression ){
   # 在布尔表达式 boolean_expression 3 为 true 执行
}
else{
   # 布尔表达式的条件都为 false 时执行
}

示例：

#!/usr/bin/perl 

$a=;

if($a>){
   printf "a 大于 10 \n";
}elsif($a=){
   printf "a 等于 10\n";
}else{
   printf "a 小于 10\g";
}

printf "变量a的值为:$a\n";

结果：

4.switch 语句

语法：

use Switch;
 
switch(argument){
   case 1            { print "数字 1" }
   case "a"          { print "字符串 a" }
   case [1..10,42]   { print "数字在列表中" }
   case (\@array)    { print "数字在数组中" }
   case /\w+/        { print "正则匹配模式" }
   case qr/\w+/      { print "正则匹配模式" }
   case (\%hash)     { print "哈希" }
   case (\&sub)      { print "子进程" }
   else              { print "不匹配之前的条件" }
}

示例：

#!/usr/bin/perl
 
use Switch;
 
$var = 10;
@array = (10, 20, 30);
%hash = ('key1' => 10, 'key2' => 20);
 
switch($var){
   case 10           { print "数字 10\n" }
   case "a"          { print "字符串 a" }
   case [1..10,42]   { print "数字在列表中" }
   case (\@array)    { print "数字在数组中" }
   case (\%hash)     { print "在哈希中" }
   else              { print "没有匹配的条件" }
}

结果：

5.三元运算

语法：

Exp1 ? Exp2 : Exp3;

示例：

#!/usr/bin/perl
 
$a=>?false:true;

print "$a\n"

结果：

二、循环语句语法

1.while循环

语法：

while(condition)
{
   statement(s);
}

示例：

#!/usr/bin/perl
 
$a = 10;
 
while( $a < 20 ){
   printf "a 的值为 : $a\n";
   $a = $a + 1;
}

结果：

2.for循环

语法：

for ( init; condition; increment ){
   statement(s);
}

示例：

#!/usr/bin/perl
 
for( $a = 0; $a < 10; $a = $a + 1 ){
    print "a 的值为: $a\n";
}

结果：

3.循环控制语句

三、perl运算符

1.算数运算符

2.比较运算符

3.逻辑运算符

4.赋值运算符

5.位运算符

6.引号运算符

7.其他运算符

8.运算符优先级

四、perl时间格式

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

1.localtime对应时间变量

sec,     # 秒， 0 到 61
min,     # 分钟， 0 到 59
hour,    # 小时， 0 到 24
mday,    # 天， 1 到 31
mon,     # 月， 0 到 11
year,    # 年，从 1900 开始
wday,    # 星期几，0-6,0表示周日
yday,    # 一年中的第几天,0-364,365
isdst    # 如果夏令时有效，则为真

2.格式化时间输出

1)通过时间变量格式化输出

#!/usr/bin/perl
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
 
printf("格式化时间：YYYY-mm-DD HH:MM:SS\n");
printf("%04d-%02d-%02d %02d:%02d:%02d\n",$year+,$mon+,$mday,$hour, $min, $sec);

2)通过POSIX 函数 strftime()格式化时间输出

#!/usr/bin/perl
use POSIX qw(strftime); 

$datestring = strftime "%Y-%m-%d %H:%M:%S", localtime;
printf("时间日期 - $datestring\n");

3.POSIX 函数 strftime()格式

五、函数