envinyater has asked for the wisdom of the Perl Monks concerning the following question:

I am using XML::Writer since it doesn't have that many dependencies and I'm going to use fatpack to roll what I need into the script itself. Anyways, I am currently creating an XML file and the format is nice but I want to also display it to STDOUT. Here is how I declare my XML::Writer 
my $output = IO::File->new(">$xmlFileName");

my $writer = new XML::Writer(OUTPUT => $output,DATA_MODE => 1, DATA_IN
+DENT => 2 );

[download]
Now, if I remove the  OUTPUT => $output it prints everything to the console, formatted and nice -- which is what I want. As soon as I set the output, I lose that functionality. I can't see how I can get it back to the console. I've been googling for a while now but I would appreciate some help from this community, which has been AMAZING so far. Thanks :)

Replies are listed 'Best First'.
Re: Using XML::Writer, how can I output to a file AND to the console?
by GrandFather (Saint) on Dec 13, 2012 at 22:38 UTC

    Open a file handle on a string:

    use strict;
use warnings;
use XML::Writer;

my $outputStr;

open my $output, '>', \$outputStr;

my $writer = new XML::Writer(OUTPUT => $output);

$writer->startTag("greeting", "class" => "simple");
$writer->characters("Hello, world!");
$writer->endTag("greeting");
$writer->end();
close $output;

print $outputStr;

    [download]

    Prints:

    <greeting class="simple">Hello, world!</greeting>

    [download]

    Having captured the output to a string you can print where ever you want and as many times as you want.

    Update helps to copy and paste the right stuff!

    True laziness is hard work
[reply]
[d/l]
[select]
      It works, Thank you :)
[reply]
Re: Using XML::Writer, how can I output to a file AND to the console?
by ww (Archbishop) on Dec 13, 2012 at 21:44 UTC
[reply]
Re: Using XML::Writer, how can I output to a file AND to the console?
by aitap (Curate) on Dec 13, 2012 at 22:37 UTC
[reply]
[d/l]

Back to Seekers of Perl Wisdom