Re: Consuming A Web Service

[NetWallah]

As others have pointed out, it looks like your web service returns JSON by default.

If you want XML, you need to ask for it - in your REQUEST's header :

  my $req = HTTP::Request->new('GET',
                               'Accept' => 'application/xml');

(Untested).

[pkupnorth]

Thanks, NetWallah.

I had to slightly modify the syntax above - it should be just Accept => 'application/xml' - but the general idea worked. I am now getting the same XML back that my browser gets.

Regards,
pkupnorth

[NetWallah]

The modification should not have been necessary. The two are equivalent.

The "=>" operator auto-quotes the argument to its left, so the single-quotes I used are not strictly necessary, but it is a matter of style, and they should work fine.

Let me know what error you got when the quotes were in place.

[pkupnorth]

NetWallah, here is the code with your suggestion as listed:

 use strict;
 use warnings;
 use LWP::UserAgent;
 use HTTP::Request::Common qw(GET);
 
 my $ua = LWP::UserAgent->new;
 my $endpoint = 'Http://www.somecompany.com:8081/api/ourCompany/getASN
+';
 my $req = HTTP::Request->new('GET',
                              'Accept' => 'application/xml');
 $req->url($endpoint);
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";

I get the error message "bad header argument at code.pl line 8." Which is the HTTP::Request->new line.




Here is the working code with the slight modifications:

 use strict;
 use warnings;
 use LWP::UserAgent;
 use HTTP::Request::Common qw(GET);
 use XML::Simple;
 
 my $ua = LWP::UserAgent->new;
 my $endpoint = 'Http://www.somecompany.com:8081/api/ourCompany/getASN
+';
 my $req = HTTP::Request->new(GET => $endpoint);
 $req->header(Accept => 'application/xml');
 $req->url($endpoint);
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";

Thanks,
pkupnorth