RPC connection to eXist XML O.K how to print results to file

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

I have connected to an eXist XML database and find a xml file and print the contents of the file to the consol is there a way to print the contents to a file instead.

#!/usr/bin/perl

use RPC::XML;
use RPC::XML::Client;

print "Please specify a document path as first argument";
chomp($doc = <STDIN>);

if(!$doc) {
    die "Please specify a document path as first argument!\n";
}

$URL = "http://admin:spencerr\@localhost:8080/exist/xmlrpc";
print "connecting to $URL...\n";
$client = new RPC::XML::Client $URL;

# Output options
$options = RPC::XML::struct->new(
    'indent' => 'yes', 
    'encoding' => 'UTF-8');
$req = RPC::XML::request->new("getDocument", $doc, $options);
$resp = $client->send_request($req);
if($resp->is_fault) {
    die "An error occurred: " . $resp->string . "\n";
}
print $resp->value . "\n";
[download]

Comment on RPC connection to eXist XML O.K how to print results to file Download Code

Replies are listed 'Best First'.
Re: RPC connection to eXist XML O.K how to print results to file (print to file) by Anonymous Monk on May 04, 2013 at 18:25 UTC
No, it is absolutely impossible to print to a file, its like you have to read the answers you get or something	[reply]
Re: RPC connection to eXist XML O.K how to print results to file by ww (Archbishop) on May 04, 2013 at 19:21 UTC
As you said, after the last time the Monks provided links to the information about how to do this, " Hopefully some day I will be able to contribute. " Gotta' agree w/AnonyMonk: you really should read and undertand the replies and information you already have, before posting another question bringing little more than ~~embarrassment~~ disgrace on your head. If you didn't program your executable by toggling in binary, it wasn't really programming!	[reply]
Re^2: RPC connection to eXist XML O.K how to print results to file by spencerr1 (Novice) on May 04, 2013 at 19:54 UTC
Sorry about that I do have my challenges with printing to file. Sorry again #!/usr/bin/perl use RPC::XML; use RPC::XML::Client; # print "Please specify a document path as first argument"; # chomp($doc = <STDIN>); chomp($doc = "/db/Shakespeare/hamlet.xml"); if(!$doc) { die "Please specify a document path as first argument!\n"; } $URL = "http://admin:spencerr\@localhost:8080/exist/xmlrpc"; print "connecting to $URL...\n"; $client = new RPC::XML::Client $URL; # Output options $options = RPC::XML::struct->new( 'indent' => 'yes', 'encoding' => 'UTF-8'); $req = RPC::XML::request->new("getDocument", $doc, $options); $resp = $client->send_request($req); if($resp->is_fault) { die "An error occurred: " . $resp->string . "\n"; } $file = "C:/Results.xml"; open (XMLFILE, ">$file") \|\| die "Can't open file: $!\n"; print XMLFILE $resp->value ."\n"; #print $resp->value . "\n"; close XMLFILE; [download]	[reply] [d/l]