Perl开发的学习-3

计算机作为一种计算工具，其优势在于执行重复任务和根据条件进行大量判断（因此循环语句，条件语句及顺序执行语句是计算机控制结构中基本语句，而与人类语言中句法完全不同）。

[root@windriver-machine test]# cat ctl.pl
#!/usr/bin/perl

print "$a's value restore after the cycle:";
$a=1;
print "$an";
foreach $a(2,3,4)
{
print "$a is in cyclen";
}
print "$a not in cyclen";

print "n change the var of cycles will impact the data of arrays:n";
@a=(1,2,3);
print "@an";

foreach $c(@a){$c=4 if $c==2;}

print "@an";

print "n may visit part elements of arrays:n";
@a=(1,3);
print "@an";
foreach $c(@a[1,2]){print "$cn";}

print "n the defalut var of cycles is $_:n";
@a=(1,3);
foreach (@a){print "$_n";}

print "nfor and foreach is same:n";
foreach($i=1;$i<5;$i++){print "$in";}

print "using LABEL:n";
LABEL:for($i=1;$i<5;$i++){
???????? for($j=1;$j<5;$j++){
???????????? print "$i ";
???????????? last LABEL if $i==3;
????????? }
??????? }
print "$i=$in";

print "continue testn";
$a=0;

while($a++<10)
{
($f=1,next) if $a==5;
print "$a";
}
continue {
(print (":$a in continue:"),$f=0) if ($f==1);
}
[root@windriver-machine test]# perl ctl.pl
$a's value restore after the cycle:1
2 is in cycle
3 is in cycle
4 is in cycle
1 not in cycle

change the var of cycles will impact the data of arrays:
1 2 3
1 4 3

may visit part elements of arrays:
1 2 3
2
3

the defalut var of cycles is $_:
1
2
3

for and foreach is same:
1
2
3
4
using LABEL:
1 1 1 1 2 2 2 2 3 $i=3
continue test
1234:5 in continue:678910[root@windriver-machine test]#

Perl语句根标准C/C++有很大的不一样，需要特别注意。

1） 条件语句，使用if(){} elsif(){} …else{},需要注意这里是elsif ，另外可以使用unless() {}

单选if 语句也是只有perl才有，() if() 或者() unless()

2） 循环条件语句，使用while(){} 或者do{} while() 及while() {} continue{}。 Until(){},do{} until(),util(){}continue{}，特别是带continue，这一点与C完全不一样，需要特别注意.单选语句，一定要有结束条件。

3） 循环语句，使用for,foreach.注意这里面的控制last,next,redo,goto跟通常意义的理解也不一样的，需要特别注意。