open mydoc="thedoc.xml"
cd //filename/..
rm filename
foreach { glob("*") } {
  insert element filename into .
  insert text $__ into filename[last()]
}
save mydoc
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

If you look into the t\* directory that comes with XML::XPath, you'll find a test script called remove.t.

This shows a method, $root->removeChild($nodes[0]);.

That said, I looked through all the documentation I could find and scanned all the obvious looking source files and failed to find any documentation on the method, nor even where it is implemented?

Maybe it's so intuative to use that it doesn't require documenting.

XML::XPath has been in maintainence mode for a long time now. That means I'm not changing or fixing the API (much) and I'm not doing any personal work on it (if you want a more complete DOM + XPath module look to XML::LibXML). If anyone wants things fixed (like documentation) they're going to have to send patches, sorry.

No apoligies necessary, my comments weren't intended as critisism, just a note of the situation as I found it and an attempt to take the sting away from the OP who had failed to find the removeChild() call, which is indeed, fairly self-expanatory once you know it's there.

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

my $t = new XML::Twig( ignore_elts => {'/bxh/datarec/filename' => 1,
                       '/bxh/datarec/fileoffset' => 1,
                       '/bxh/datarec/filerecordsize' => 1,
                      },
               TwigHandlers =>
               {
            '/bxh/datarec' => \&add_filenames,
               },
               pretty_print=>'indented',
             );

$t->parsefile($file);      # build it
$t->print;                 # output the twig


sub add_filenames {
  my($t,$drec) = @_;

  my @filenames = glob "mri*.img";
  foreach my $file(@filenames) {
    my $elt = new XML::Twig::Elt('filename',$file);
    $elt->paste('last_child',$drec);
    my $size = -s $file;
    $elt = new XML::Twig::Elt('fileoffset','0');
    $elt->paste('last_child',$drec);
    $elt = new XML::Twig::Elt('filerecordsize',$size);
    $elt->paste('last_child',$drec);
  }
}
[download]

Interesting, I had never thought about using ignore_elts to effectively delete elements. That's smart though. You just have to be sure that you don't ever have any other element in datarec. I would maybe add an extra $drec->cut_children at the beginning of add_filename, just in case. Fixed formats seem to have a natural tendency to evolve over time. ;--(

You could get a slightly shorter, and I think nicer looking code, by using the insert_new_elt method:

    $elt = new XML::Twig::Elt('fileoffset','0');
    $elt->paste('last_child',$drec);
[download]

becomes:

    $drec->insert_new_elt( last_child => 'fileoffset', '0');