1. 读取标准输入

• <STDIN> 行输入操作符，每次读取一行；
• while 循环输入多行；
• foreach 一次读入文件所有输入；

#!/usr/bin/perl

use strict;
use warnings;

print "enter character string\n";
my $string = <STDIN>;
chomp($string);

print "enter numbers\n";
chomp (my $number = <STDIN>);

print "$string\n" x $number;

#多行读入
while (defined($line = <STDIN>)) { #读取标准输入，存入变量，检查变量是否被定义，是否执行while循环体
    print "I saw $line";
}

while (defined($_ = <STDIN>)) { #每次读取一行，存入变量并执行循环体，而后再获取后续输入
    print "I saw $_";
}

while (<STDIN>) { #简写
    print "I saw $_";
}

foreach (<STDIN>) { #按照列表上下文处理，一次读入所有输入
    print "I saw $_";
}