#! /usr/bin/perl
$number1=<STDIN>;
$number2=<STDIN>;
$i=0;
while($i<$number2){
print "$number1/n";
$i++;
}
结果
C:/Perl/test>perl 2_1.pl
hello
3
hello
hello
hello
不是
C:/Perl/test>perl 2_1.pl
hello
3
hello
hello
hello
因为:<STDIN>中的字符串通常由一个换行符作为结尾
#! /usr/bin/perl
$number1=<STDIN>;
$number2=<STDIN>;
$i=0;
while($i<$number2){
print "$number1/n";
$i++;
}
结果
C:/Perl/test>perl 2_1.pl
hello
3
hello
hello
hello
不是
C:/Perl/test>perl 2_1.pl
hello
3
hello
hello
hello
因为:<STDIN>中的字符串通常由一个换行符作为结尾