perl-小骆驼 总结（三）

九、其他控制结构

1、unless：与if相反，如果不满足则执行；unless也可以伴随else

2、until：与while相反

3、注意perl中elsif的写法

4、last操作符，类似于C语言中的break，用于立即终止循环的执行；

5、next：类似于C语言中的continue，立刻结束当前的这次操作；

6、redo操作符：跳回当前循环块的顶端，而不经过任何测试条件，也不会前进到循环的下一次迭代；

十、文件测试

1、文件测试操作符，-e测试问价是否存在；

2、perl中可以用time获得当前时间，但是格式不易观察，此时可以使用函数localtime来获得易于观察的时间格式；

十一、目录操作

1、chdir改变当前的工作目录；

2、glob操作：shell会将命令行里的文件名模式展开成所有匹配的文件名，这就是globbing；

（1）如：my @all_files = glob "*";会获取当前目录的所有文件，但不包括以点号开头的文件；

（2）另一种语法：用角括号代替，上面操作可以改为：my @all_files = <*>;

3、目录句柄：打开（opendir）、读取（readdir）、关闭（closedir）

如：my $dir = "/etc";

opendir DH, $dir or die "can't open the dictory";

foreach $file(readdir DH){}

closedir DH;

4、目录中注意当前目录.和上层目录..

5、readdir会返回一堆文件名，但是他们并不包括路径名称

6、建立和移除目录：mkdir、rmdir

十二、子字符串操作：

1、index：$where = index ($big, $small);从big字符串中寻找small字符串首次出现的地方，并且返回一个整数，返回的字符位置从0开始算起；

2、如果想知道字符串最后出现的位置，用rindex；

3、使用substr操作子字符串，如：$part = substr($string, $initail_position, $length);

（1）3个参数分别为：一个字符串，一个从零起算的初始值，及子字符串的长度；

（2）如果想要一直取到字符串结尾，那么不论字符串长短，只要省略第三个参数即可；

十三、others

1、system函数：可以调用linux中的命令；

2、perl有许多现成的模块可以安装使用，在使用中要慢慢学习；

3、用eval捕获错误：类似于java中的try-catch，只需要将可能出现严重错误的代码放在eval中即可；如果有错误的话，答案会放在$@这个特殊变量中。

eval实际上是一个表达式，所以块后面必须加分号。