練習問題の答

プログラムは以下のようになります。

#!/usr/local/bin/perl

print "数を入力してください。";
$n=<STDIN>;
chomp($n);

for ($i=0; $i<$n; $i=$i+1) { # $n回繰り返し
	print "*";
}
print "\n";

while文でも作れます。