Am Montag, 23. Mai 2005 05.54 schrieb bingfeng zhao:
> Hi, everyone,
> I want know whether perl support recursive sub routine call?
[..]
Hi,
It does:
perl -le'
use warnings; use strict;
sub recursive {
my $cnt=shift;
print "recursion level $cnt";
recursive(++$cnt) if $cnt<10;
}
recursive(0);
'
recursion level 0
recursion level 1
recursion level 2
recursion level 3
recursion level 4
recursion level 5
recursion level 6
recursion level 7
recursion level 8
recursion level 9
recursion level 10
joe
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
