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 $_";
}
