Perl 读取标准输入

1. 读取标准输入

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

#!/usr/bin/perl

use strict;
use warnings;

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

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

print "$string\n" x $number;

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

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

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

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