perl--if/while

if控制结构

if($name gt 'fred') {

     print " '$name' comes after 'fred' in sorted order.\n";

}else{

print " \n";

}

获取用户输入：<STDIN>;

chomp操作符

如果字符串后面有两个以上的换行符，chmop（）仅仅删除一个，

如果结尾处没有换行符，它什么也不做，直接返回0.

while控制结构

$food = 0;
while ($food <10){
    $food +=2;
    print "$food\n";
}