Re: Iterator Problem with recursion


Problems? Is your data what you think it is?
	PerlMonks

Re: Iterator Problem with recursion

by moot (Chaplain)

on Apr 26, 2005 at 17:08 UTC ( [id://451674]=note: print w/replies, xml )

Need Help??

in reply to Iterator Problem with recursion

Are you sure analyze is eventually returning? Seems to me if proccode() returns anything at all that the loop over @out will be executed, calling analyze once more, and so ad infinitum.

Update: Gah! didn't see that regexp conditional in there.. so it's unlikely that analyze() does not return at some point. In that event, is there a minimal test case that tickles this behaviour?

Comment on Re: Iterator Problem with recursion

Replies are listed 'Best First'.

Re^2: Iterator Problem with recursion
by PetaMem (Priest) on Apr 26, 2005 at 17:43 UTC

sub manal {
  my $htree = shift;
  my $rul   = shift;
  my $level = shift || 1;
  my $hist  = (split /\n/, $htree->data)[0];
  my $str   = (split /\|/, $hist)[0];
  my ($k, $v);

  $hist = "|$hist";
  &log("entering manal L$level with history: $hist\n");

  while(($k,$v) = each %$rul) {
    my @out = @{&proccode($str,$v)}

    for my $h (@out) {
      &log("debug: (out: @out - $h)/$str/$hist/$k\n");
      &manal($htree->append("$h$hist\n$k"),$rul,$level+1) if($hist !~ 
+/\|$h\|/);
 
    }
  }
  &log("exiting manal L$level for STR: $str\n");
}
[download]