Help for this page

Select Code to Download


  1. or download this
    print "\nDelete children of $test :\n";
    foreach $key (keys %index) {
        ...
        delete $index{$key};
    }
    
  2. or download this
    foreach $key (%index) {
        delete $index{$key};
    }