循环控制：
1.last
退出标签的语句块
2.next
3.redo
不推荐，循环次数不可控
4.goto
不推荐。
***************************************
标签：
先定义一个 label
last|next|redo|goto label；
last VS next 相当于C语言中的：
last ==>break
next ==>continue
*************************************
perl的continue语句：
continue{语句}与C中的不太一样
**************************************
单行条件语句与循环语句
语句+条件；
unless:print $a unless($a==0);
while: print $a while($a -==0);
untile: print $a untile($a -=0);
**************************************
用&& || 的条件语句（***）
$a==0&&print &a;
open(F,'file') || die "can't open";
****************************************
die:
warn:
$!:内部变量，包含错误代码
$@:内部变量，包含错误信息