标准输入输出

-- Start

标准输出

通常，所谓的标准输入指的是键盘，标准输出指的是屏幕。我们已经知道了如何通过 print 函数来打印消息到标准输出，事实上，那是简写，完整的写法如下：

#!/usr/bin/perl

# 标准输出
print "messagen";
print STDOUT "messagen";


# 标准错误输出
print STDERR "errorn";

标准输入：一次读入一行

下面的例子演示了如何从标准输入中读取输入。

#!/usr/bin/perl

print "你的姓名?n";
$name = <STDIN>;
chomp($name); # 从标准输入读取的字符串结尾都有一个换行符，chomp 函数用来去掉这个结尾的换行符


print "你的年龄?n";
$age = <STDIN>;
chomp($age);


print "欢迎你$name,你今年$age岁了.n"

?

上面 chomp 函数的作用是截去字符串结尾的一个行分隔符(行分隔符可由$/定义)。如果字符串结尾有多个行分隔符，它只截去一个；如果字符串没有行分隔符，那它什么不干。
值得注意的是 Perl 还有一个非常类似的 chop 函数，它的作用是截去最后一个字符，无论是什么字符。

标准输入：一次读入多行

#!/usr/bin/perl

print "请在第一行输入你的姓名，第二行输入你的年龄，在 Windows 中按 Ctrl-D 结束，在 Linux 中按 Ctrl-Z 结束 n";
@user = <STDIN>; # 注意此处是数组
chomp(@user); # 去掉数组中每个元素的换行符
print "欢迎你$user[0],你今年$user[1]岁了.n"

-- 更多参见：Perl 精萃

-- 声 明：转载请注明出处 -- Last Updated on 2012-06-28 -- Written by ShangBo on 2012-06-17 -- End