#!/usr/bin/perl
# myagain.pl
$count = 3;
subinsub();
sub subinsub {
my $number = $count * 2;
if( $count ) {
$count--;
print "¾Õ $count : $number
";
subinsub(); # ÀÚ±â ÀÚ½ÅÀ» È£Ãâ
print "µÚ $count : $number
";
}
}
ÀÌ°ª¿¡¼­ µÚ¶ó´Â Ãâ·Â°ªÀÌ ¾î¶»°Ô ³ª¿À´ÂÁö ¸ð¸£°Ú³×¿ä
¾Æ½Ã´ÂºÐÀº ¾Ë·ÁÁà¿©