本文共 839 字，大约阅读时间需要 2 分钟。

-- Start

标准输出

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

#!/usr/bin/perl# 标准输出print "message\n";print STDOUT "message\n";# 标准错误输出print STDERR "error\n";

标准输入：一次读入一行

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

#!/usr/bin/perlprint "你的姓名?\n";$name = 
   
    ;chomp($name); # 从标准输入读取的字符串结尾都有一个换行符，chomp 函数用来去掉这个结尾的换行符print "你的年龄?\n";$age = 
    
     ;chomp($age);print "欢迎你$name, 你今年$age岁了.\n"
    
   

上面 chomp 函数的作用是截去字符串结尾的一个行分隔符(行分隔符可由$/定义)。如果字符串结尾有多个行分隔符，它只截去一个；如果字符串没有行分隔符，那它什么不干。

标准输入：一次读入多行

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

-- 更多参见：

-- 声 明：转载请注明出处