XML query

[tar565]

I have never had to work with XML before and I am looking for a way to read an XML file post it to a url and read the response. Any help would be great as this is a complete new one for me

 

[tchatzi]

Maybe these two modules will help you

XML:arser #for handle XML file
LWP::UserAgent #for Get/Post files and handle request/response

there are many more modules though for handling XML files


``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[tar565]

Actually reading is not a problem I just want to upload it and get a response.

 

[ishnid]

pengo's right -you can use LWP::UserAgent for that. Have a look at the section on POST in lwpcook

 

[tar565]

ok i have found the following script. How can I upload an xml file called test.xml with it

use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new(env_proxy => 1, keep_alive => 1, timeout => 30, );

my @greeting = <>; #-- Read file containing XML struct to send
my $data_to_send; #-- And build a string of it
foreach my $newItem (@greeting) {
$data_to_send = "$data_to_send$newItem";
}

print "Sending :\n$data_to_send\n";

#-- Create the Request Object and send the data
my $response =
$ua->request(HTTP::Request->new('GET', '

http://idpoc1.test.belo.com/amserver/authservice',

HTTP::Headers->new(Content_Type => "text/xml"), $data_to_send));

#-- Print the response
print $response->as_string;

 

[tchatzi]

Try like this

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

[red]undef $/;
open FILE, "yourXMLfile.xml";
my $data_to_send = <FILE>;
close FILE;
[/red]
print "Sending :\n$data_to_send\n";

my $response = $ua->request(HTTP::Request->new('GET', '[URL unfurl="true"]http://your/web/server/for/uploading/',[/URL]
HTTP::Headers->new(Content_Type => "text/xml"), $data_to_send));

print $response->as_string;

I haven't try it though ......


``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[tar565]

got it thanks for the help.