내 다이아는 Perl로 만든거야..

알앗서해..
 
 1 #!/usr/bin/perl
  2
  3 $i = 0;
  4 $j = 5;
  5 $k = 0;
  6
  7 $a = 1;
  8 $d = 2;
  9 $num = 5;
 10 print \" Input Number\\n\";
 11
 12 for($i = 0;$i < $num; $i++)
 13 {
 14     for($j = 5;$j-$i > 0;$j--)
 15     {
 16         print \" \";
 17     }
 18     for($k = 1;$k <= $a+($d*$i);$k++)
 19     {
 20         print \"*\";
 21     }
 22     print \"\\n\";