perl 打印相同的指定行的字符串
要求：提示用户输入一个数n，和一个字符串。然后输出n行该字符串。
程序：
#! /usr/bin/perl
print "please input a number:";
$a=<STDIN>;
print "please input a character:";
$b=<STDIN>;
while ($n<$a) {
print $b;
$n+=1;
}
程序：
#! /usr/bin/perl
print "please input a number:";
$a=<STDIN>;
print "please input a character:";
$b=<STDIN>;
while ($n<$a) {
print $b;
$n+=1;
}
none
