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...
In Section
Seekers of Perl Wisdom