Damn. That'll teach me to cut 'n' paste :-/ Try:
print "\n";
print while <>;
print "\n";
/R
"Rob Dixon" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> OK, I think you need this:
>
> print "\n";
> print while <>;
> print "\n" and close
Sorin Marti wrote:
>
> Hi all,
Hello,
> 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.
>
>
> [content]
>
>
> How do I do that?
>
> #/usr/bin/perl
>
> while( @ARGV ){
> $filename=shift @AR
Hi Sorin
What module are you using, if any, to build your XML?
Rob
"Sorin Marti" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hi all,
>
> I've written a very simple script which puts xml-documents together...
> Now I want to add a root node at the beginnin
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.
[content]
How do I do that?
#/usr/bin/perl
while( @ARGV ){
$filename=shift @ARGV;
open( DATEI, "<$filename" );
while( ){
print unl
