Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Deleting a branch from a tree structure

by demerphq (Chancellor)
on Apr 22, 2003 at 23:52 UTC ( #252412=note: print w/replies, xml ) Need Help??


in reply to Deleting a branch from a tree structure

sub rec_delete { my $id=shift; foreach my $id (select id where parent=$id) { rec_delete($id); } delete($id); }

---
demerphq

<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...

Replies are listed 'Best First'.
Re: Re: Deleting a branch from a tree structure
by hv (Prior) on Apr 23, 2003 at 16:58 UTC

    This deletes referenced categories before the category that refers to them, which I think leaves open a window of brokenness, at least of referential integrity.

    It might be better to do it the other way round:

    sub rec_delete { my $id = shift; my @kids = (... select id where parent = $id ...); delete($id); rec_delete($_) for @kids; }

    Update: this is wrong - I was thinking "delete the categories this category refers to" rather than "delete the categories that refer to this category".

    Hugo

      Hmm. If the child refrences the parent, then we can't delete the parent until we remove the childs reference to it, or remove the child itself of course. So we have to do a postorder traversal of the implicit tree. A preorder traversal as you have here would try to delete the parent while the children point at it.

      Im assuming that the OP was using using the only sane way I know of to represent an nary tree in a single table form, that is using a parent pointer list representation. Now these may have been asumptions too far but... :-)


      ---
      demerphq

      <Elian> And I do take a kind of perverse pleasure in having an OO assembly language...

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://252412]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2023-02-07 11:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (39 votes). Check out past polls.

    Notices?