在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
四、控制语句 1.条件语句:
有以下几种形式的条件语句,和C,java还是类似的。
if(expression)
if(expression1)
#倒置的if语句 特别注意这里的elsif不是elseif,这个关键词来源于ada语言。
其中expression可能涉及到的关系运算符:
2.循环语句
while(expression) doBLOCKwhile(expression);
until(expression)
for(initialization;test;increment)
foreach$each(@list) 例子:
@list=(1,2,3,4,5);
3.局部跳转语句 last:类似于C语言中的break,它让程序跳出循环,也就是跳出当前BLOCK,紧接BLOCK之后的代码往下。 例如: for($i=1;$i<=10;$i++) { Lastif($i==5)#如果$i等于5的话就退出for循环 print"$i\n"; }
例如下面的程序是将1到100之间的奇数显示出来。 for($i=0;$i<=100;$i++) { #如果是2的倍数的话,就进入下一次循环 nextunless($i%2); print"$i是一个奇数!\n";
}
Redo:类似于上述介绍过的next语句,但是它不会判断循环的退出条件。 $i=-1; while($i<=10) { $i++; redounless($i%2); print$i,"是一个奇数!\n"; } 会打印出: 1是一个奇数! 3是一个奇数! 5是一个奇数! 7是一个奇数! 9是一个奇数! 11是一个奇数!
五、读写文件和目录处理 Perl的I/O操作都是通过文件句柄来进行的。在缺省的情况下,有默认的句柄STDIN(代表标准输入)、STDOUT(代表标准输出)和STDERR(代表标准错误输出)。下标中介绍了如何读写文件,删除和重命名文件,创建和删除目录。
六、子程序 子程序,也称作例程或函数。它接受多个输入参数,返回一个输出参数。使用这样一段分离的代码完成一个特殊的功能,可以减少重复代码同时使得程序更易读。 一、定义语法如下: subSubroutine_name[()] { sequence_of_statements; } 举例如下: subGetCurrentPath() { $fs=Win32::OLE->new("Scripting.FileSystemObject"); $folder=$fs->GetFolder("."); $ls_current_path=$folder->path; return$ls_current_path; }#GetCurrentPath 二、调用方法如下:
|
请发表评论