perl语法-2

fdhfgh

　　声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载
1.1   如果非真unless


表示如果非真，即：如果条件表达式不为真。
语法一:
unless(条件表达式) {
条件表达式为假执行的语句块;
}
也可以写成：
条件表达式为假执行的语句块unless (条件表达式);
范例:
#perl0-5.pl
#%为除余操作符
$x=6;
unless($x%2){
print “x是偶数\n”;
}
print “x是偶数\n” unless($x%2);
输出结果为：
x是偶数
x是偶数
语法二:
unless(条件表达式)
{
条件表达式为假时执行的语句块;
}else{
条件表达式为真时执行的语句块;
}
范例:
#perl0-6.pl
#%为除余操作符
$x=9;
unless($x%2){
print “x是偶数\n”;
}
else{
print “x是奇数\n”;
}
输出结果为：
x是奇数
1.2   更简洁的控制方式

1  
2  
3  
4  

4.1  
4.2  
4.3  

4.3.1  替代if-else结构的三目操作符?:

?: 操作符可以替代if-else结构，语法格式如下：
条件表示式?表达式1:表达式2
表示如果条件表示式为真则求表达式1的值，否则求表达式2的值。
范例:
#perl0-7.pl
#%为除余操作符
$x=9;
$x%2?print "x是奇数\n":print "x是偶数\n";
输出结果为：
x是奇数
4.3.2  替代if结构的&&

&&可替代if结构，语法格式如下：
条件表达式 && 条件表达式为真时执行的语句块
范例：
#perl0-8.pl
#%为除余操作符
$x=8;
$x%2&& print "x是奇数\n";
因为8不是奇数，所以print语句不会执行，无输出结果。
1.  
2.  
3.  

1.  
2.  

4.3.3  替代unless结构的||

||可替代unless结构，语法格式如下：
条件表达式 || 条件表达式为假执行的语句块

#perl0-9.pl
#%为除余操作符
$x=8;
$x%2|| print "x是偶数\n";
因为8是偶数，所以输出结果如下：
x是偶数
1.  循环控制

　 Perl循环控制很丰富，其中某些控制语法在处理列表和数组方面相当实用和高效。
1    
2    
3    
4    
5    
1    
2    
3    
4    
5    

5.1   while

语法一:
while(条件表达式) {
语句块;
}
范例:
#perl0-10.pl
#计算1到10的连乘结果
$x=1;
$jg=1;
while($x<=10)
{
$jg=$jg*$x;
$x++;
}
print “$jg\n”;
输出结果如下：
3628800
语法二:
语句块while(判别运算式);
范例:
#perl0-11.pl
#计算1到10的连乘结果
$x=1;
$jg=1;
{
$jg*=$x;
$x++;
} while($x<=10)
print “$jg\n”;
请注意$jg*=$x这种写法，学过C语言的都知道：
$jg*=$x与$jg=$jg*$x的结果一样，但编译效率更高。
输出结果如下：
3628800
5.2   do while

与while相比，do while保证语句块至少执行一次。
语法:
do
{
语句块;
}while(条件表达式)
范例:
#perl0-12.pl
#求和1到100
$jg=0;
$x=1;
do{
$jg+=$x;
$x++;
}while($x<=100);
print "$jg\n";
输出结果如下：
5050
5.3    until

until 直到...才终止循环
语法:
until(条件表达式)
{
语句块;
}
也可以写成: 语句块 until(条件表达式);
范例:
#perl0-13.pl
#从1开始求和，直到和大于1000终止
$jg=0;
$x=1;
until ($jg >1000)
{
$jg+=$x;
$x++;
}
print "1->$x:";
print "$jg\n";
输出结果如下：
1->46:1035
5.4   do …until

do …until直到...才终止循环
语法:
do{
语句块;
}until (条件表达式);
范例:
#perl0-14.pl
#从1开始求和，直到和大于1000终止
$jg=0;
$x=1;
do
{
$jg+=$x;
$x++;
} until ($jg >1000);
print "1->$x:";
print "$jg\n";输出结果如下：
1->46:1035
5.5   for

循环
语法一:
for (初始表达式;条件表达式;循环过程运算式)
{
语句块;
}
范例一:
#perl0-15.pl
#从1开始求和，直到和大于1000终止
$jg=0;
$x=1;
for ($jg=0,$x=1; $jg <=1000;$x++)
{
$jg+=$x;
}
print "1->$x:";
print "$jg\n";
输出结果如下：
1->46:1035
语法二:
每次循环依次将数组变量的元素指定给标量
for  标量(数组变量)
{
语句块;
}
范例：
#perl0-16.pl
#从数组中挑出奇数
@myarr=(2,5,7,10,23,33,18);
print"奇数如下:\n";
for $num(@myarr)
{
  $num%2&&print "$num  ";
}
print"\n";
输出结果如下：
奇数如下:
5  7  23  33
语法三:
每次循环依次将数组变量的元素指定给预定义变量$_
for  (数组变量)
{
读取$_，处理数组的相关语句块;
}
范例：
#perl0-17.pl
#从数组中挑出奇数
@myarr=(2,5,7,10,23,33,18);
print"奇数如下:\n";
for (@myarr)
{
  $_%2&&print "$_  ";
}
print"\n";
输出结果如下：
奇数如下:
5  7  23  33
5.6   foreach

每次循环依次将数组变量的元素指定给标量
语法一:
foreach  标量(数组变量)
{
语句块;
}
如果把$variable变量省略的话,就会将数组@array的元素一一指定给$_这个内定的输出变量.
范例:
#perl0-18.pl
#从数组中挑出奇数
@myarr=(2,5,7,10,23,33,18);
print"奇数如下:\n";
foreach $num(@myarr)
{
  $num%2&&print "$num  ";
}
print"\n";
输出结果如下：
奇数如下:
5  7  23  33
语法二:
每次循环依次将数组变量的元素指定给预定义变量$_
foreach  (数组变量)
{
语句块;
}
范例:
#perl0-19.pl
#从数组中挑出奇数
@myarr=(2,5,7,10,23,33,18);
print"奇数如下:\n";
foreach (@myarr)
{
  $_%2&&print; #使用无参数的print表示输出$_
  print" ";
}
print"\n";
输出结果如下：
奇数如下:
5  7  23  33
5.7   last退出循环

退出循环
语法:
last
范例:
#perl0-20.pl
#从1开始累加，直到和大于500为止
$x=1;
$jg=0;
while (1)
{
      $jg+=$x;
$jg>500&&last;#求和>500退出循环
$x++;
 }
print"sum(1:$x)=$jg\n";
输出结果如下：
sum(1:32)=528
5.8    next终止本次循环

终止本次循环，进入下一循环。
语法:
next
范例:
#perl0-21.pl
#求出1-100内的奇数之和
foreach ($x=1,$jg=0;$x<=100;$x++){      
      $x%2||next;#如果是偶数则结束本次循环，不累加，继续下次循环
      $jg+=$x;
      $x++;
 }
print "$jg\n";