转眼我们perl零零八系列已经有了五次知识点讲解，并配以两次实例精讲。不知道大家是否已经开始自己写脚本啦？
在上一节Perl编程课程中，我们介绍了Perl字符串操作，并结合一个实例进行讲解。从该实例中我们可以看到，Perl程序一般会有输入和输出文件，而且会用到while等循环结构。
这一期，我们就来详细说说输出、输出和控制结构的使用。
《Perl零零八速成系列》（共8节课）主要是面向无Perl编程经验或者Perl语言初学者，介绍Perl的基本知识和实用编程技巧。晨光与你一路，轻松点亮编程技能，一跃成为特工级的Perl编程牛人！
【前情回顾】
【本节内容】
本节内容包括Perl 语言的的输入、输出与控制结构。
一、输入与输出
1、读取标准输入
读取标准输入一般采用
$line=
chomp($line); # 截取最后的换行符
chomp(=
如果读到文件结尾，行输入操作符就会返回undef。这样的设计是为了配合循环使用，可以自然跳出循环：
while(defined($line=
print 'I saw $line';
}
然而，在实际运用过程中，这里的defined()函数可以省略，直接写成：
while(
print 'I saw $_'; #所读取的行默认储存在特殊变量$_
}
这样看起来就简洁多了！
2、钻石操作符输入
钻石操作符（<>）是行输入操作符的特例，不过它不是从键盘取得输入，而是从用户指定的位置读取：
while(<>){
chomp; #这里chomp会直接作用于$_
print 'It was $_ tha I saw!\n';
}
3、调用参数
前面我们介绍到@ARGV是Perl用来储存参数列表的特殊数组，钻石操作符可以查看@ARGV，然后决定该用哪些文件名。如果@ARGV是空的，就会改用标准输入流。所以再程序运行之后，只要未使用钻石操作符，就可以对@ARGV进行修改。我们可以指定特定的文件，而不管用户在命令行参数中指定了什么：
@ARGV=qw(larry moe curly) #强制让钻石操作符只读取这三个文件
while(){
chomp;
print 'It was $_ tha I saw in some stooge-like file!\n';
}
4、输出到标准输出
常见的输出函数包括print、printf和sprintf等（详见：《Perl零零八速成系列---字符串操作与排序》）。
print操作符会读取后续列表中的所有元素，并把每一项依次送到标准输出，例如：print 'Hello world!'。
而printf函数负责将格式化的字符串输出到选定的文件句柄。其默认文件句柄是 STDOUT（标准输出），printf 函数后面带有一个加有引号的负责格式规范的控制字符串。其后则是一系列由逗号隔开的参数，例如：
$user='Mike';
$days_to_die=30;
printf 'Hello, %s; your password expires in %d days!\n', $user, $days_to_die;
运行结果：
Hello, Mike; your password expires in 30 days!
sprintf 函数可以将格式化后的字符串存放在变量里面，以便稍后使用。它的一种常见的用法就是格式化小数点后面具有特定精度的数字。例如：
my $money = sprintf '%.2f', 2.49997;
print '$money\n'; #输出结果：2.50
5、文件句柄及操作
文件句柄（filehandle）就是程序里代表Perl进程（process）与外界之间的I/O联系的名称。也就是说，它是“这种关系”的名称，不是文件的名称。句柄的命名与其他变量命名规则一样，必须是以字母、数字及下划线组成，但不能以数字开头。有6个特殊文件句柄名是Perl保留的，它们是：STDIN、STDOUT、STDERR、DATA、ARGV以及ARGVOUT。
Perl可以使用open函数打开文件，例如：
#!/usr/bin/perl
open(FILE,'
#表示只读方式，FILE为文件句柄用于读取文件
while(
print '$_';
}
PS: 当Perl遇到致命错误时，可以用die函数来终止程序，并给出错误信息。
以下代码可以写入( > )文件：
open(FILE, '>file.txt') or die $!;
在文件使用完后，要关闭文件，以刷新与文件句柄相关联的输入输出缓冲区，关闭文件的语法如下：
close FILE;
二、控制结构
前面的课程里面介绍了while、if..else..和foreach控制结构的使用，这里我们将继续学习其它控制结构。
1、unless控制结构
我们在前面的课程学习到，在if控制结构中，只有当条件表达式为真时，才执行某块代码。与if相反，unless控制结构是当条件为假时执行指定代码，例如：
unless ($fred=~ /\A[A-Z_]\w*\z/i) {
print 'The value of \$fred doesn't look like a Perl identifier name.\n';
}
使用unless意味着，要么条件为真，要么执行某块代码。这就好像使用if控制结构来判断相反的条件。另一种说法是它类似于独立的else子句。也就是说，当看不懂某个unless语句时，可以用如下的if语句来代替：
if ($fred =~ /^([A-Z_]\w*$/i) {
#什么都不做
} else {
print 'The value of \$fred doesn't look like a Perl identifier name. \n';
}
2、until控制结构
while语句是当条件一直为真时，运行相应的代码，而与此不同的是，until 语句在给定条件为 false 时，重复执行语句或语句组，直到条件为真时，终止运行代码。
语法格式如下所示：
until(condition)
{
statement(s);
}
3、for控制结构
Perl的for循环类似其他语言（如C语言），可用于多次执行一个语句序列，简化管理循环变量的代码，它的语法格式如下所示：
for ( 初始化; 测试; 递增 ){
程序主体;
}
例如：
for ($i = 1; $i <= 10;="" $i++)="">
# 1 数到10
print 'I can count to $i!\n';
}
PS: 这里设置$i的初始值为1，$i小于等于10，所以执行花括号里面的语句，然后$i进行自增操作，重复进行判断并执行语句，直到不符合$i <=>的条件时终止循环。
4、last操作符
Perl last 语句用于退出循环语句块，从而结束循环，last语句之后的语句不再执行，相当于循环的“紧急出口”，例如：
while (
if (/__END__/) {
# 表示结尾
last;
} elsif (/fred/){
print;
}
}
只要输入行中有__END__记号，这个循环就会结束。last操作符对整个循环起到终止作用，但是它只会对当前运行中的最内层的循环块发挥中用。
5、next操作符
Perl next操作不会立刻退出循环，而是结束当前这次循环迭代，并进入下一次迭代。例如：
#!/usr/bin/perl
$a = 10;
while( $a <15>
if( $a == 12)
{
# 跳出迭代
$a = $a + 1;
next;
}
print 'a 的值为: $a\n';
$a = $a + 1;
}
运行结果：
a 的值为: 10
a 的值为: 11
a 的值为: 13
a 的值为: 14
6、redo操作符
Perl redo操作符能够将控制返回到当前循环块的顶端，而不经过任何条件测试，也不会进入下一次循环迭代。例如：
#打字测验
my @words =qw{ fred barney pebbles dino wilma betty };
my $errors =0;
foreach(@words) {
## redo 命令会跳到这里 ##
print 'Type the word '$_': '; #提示输入单词
chomp(my $try =
if ($try ne $_) { #判断单词是否正确
print 'Sorry - That's not right.\n\n';
$errors++;
redo; #跳到循环的顶端
}
}
print 'You've completed the test, with $errors errors.\n';
PS: next与redo两者之间最大的区别在于，next会正常继续下一次迭代，而redo则会重新执行这次迭代。
本文尽量精简地介绍了Perl语言中输入输出与控制结构，并配上简单的示例供大家练习巩固。由于篇幅有限，难以深入展开说明，谨以此文，送与初入门Perl语言的朋友们。
下一节课我们将学习：文件测试与目标操作，敬请大家关注！
参考资料：
《Perl语言入门第六版（中文版）》
http://www.runoob.com/perl/perl-tutorial.html
http://www.runoob.com/try/runcode.phpfilename=HelloWorld&type=perl
／End.
联系客服
