Adding root node

[Sorin Marti]

Hi all,

I've written a very simple script which puts xml-documents together... Now I want to add a root node at the beginning and one at the end.

<root>
[....content....]
</root>

How do I do that?

#/usr/bin/perl

while( @ARGV ){
$filename=shift @ARGV;
open( DATEI, "<$filename" );
while( <DATEI> ){
print unless ( m/^<\?xml / || m/^<!DOCTYPE/ );
}
}

THX
Sorin


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]