プログラムは以下のようになります。
#!/usr/local/bin/perl print "数を入力してください。"; $n=<STDIN>; chomp($n); for ($i=0; $i<$n; $i=$i+1) { # $n回繰り返し print "*"; } print "\n";
while文でも作れます。