Perl初心者スレ（マジレス回答）

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

324: 2014/11/05(水)11:35 ID:+yDKEom1(1) AAS
引数で渡す

sub foo {
　　my ($arg, $count) = @_;
　　...;
　　foo($arg, $count) if $count++ < 10;
}