-- Start
标准输出
通常,所谓的标准输入指的是键盘,标准输出指的是屏幕。我们已经知道了如何通过 print 函数来打印消息到标准输出,事实上,那是简写,完整的写法如下:
#!/usr/bin/perl
# 标准输出
print "message\n";
print STDOUT "message\n";
# 标准错误输出
print STDERR "error\n";
标准输入:一次读入一行
下面的例子演示了如何从标准输入中读取输入。
#!/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