Shell Programming and Scripting

Speaking of learning new stuff, I have an issue that needs to be resolved in a perl program.

#! /usr/bin/perl

use LWP::UserAgent;
$ua = LWP::UserAgent->new;

$ua->agent("0/0.1 " . $ua->agent);

$Supplier = '201330-01';
$Plant = 'XXX';
$Contact = 'NMD';

$qry = 'http://xxx.xxxxxx.com/servlet/eDCISSupplierServlet?Supplier=' . $Supplier . '&Plant=' . $Plant . '&Group=' . $Contact;

print "The query is \n";
print $qry . "\n";
$req = HTTP::Request->new(GET => '$qry');
$req->header('Accept' => 'text/xml');

$res = $ua->request($req);

if ($res->is_success) {
print $res->content;
} else {
print "Error " . $res->status_line . "\n";
}

The above Code returns the following
The query is
http://xxx.xxxxxx.com/servlet/eDCISS...=XXX&Group=NMD
Error 400 URL must be absolute

However if I execute the URL from ie I get an XML stream as a result. The xxx.xxxxxx.com is a lotus notes Dominos server. Any ideas as to how to over come this issue? Thanks.

This should read

or just simply

Does this fix it?

Thank you so much. I didnt have a clue as to what was causing this issue. If I may ask, why the difference between the single versus double quote.

You passed exactly the string '$qry' as the URL, which is wrong. Variable names will not be expanded if they appear in single quotes.

From the perldata manpage:

I received the following private message from you. As I mentioned in my reply message, let us make more contribution to the knowledge base by keeping technical discussions in the forums, so I give my response here.

I think XPath will give the shortest code (not necessarily the fastest).

Code:

use XML::XPath;
$xml = new XML::XPath(xml => $res->content);
@aryEmailAddr = ();
for ($xml->findnodes('//EMAIL')) {
 push(@aryEmailAddr, $_->string_value);
}

This should give you an array of email addresses (if found). I think by now you should be able to do some research and work on your own.

Thank you cbkihong. Since I do not have access to install XML::XPath module on our system over here, I have decided to write a simple program which essentially does what you have provided in 4 or 5 lines. Here is the code for the same.

#! /usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("0/0.1 " . $ua->agent);
$Supplier = '201330-01';
$Plant = 'XXX';
$Contact = 'ABC';

$qry = 'http://nshamd02.ham.am.honda.com/servlet/eDCISSupplierServlet?Supplier=' . $Supplier . '&Plant=' . $Plant . '&Group=' . $Contact;

print "The query is \n";
print $qry . "\n";
$req = HTTP::Request->new(GET => "$qry");
$req->header('Accept' => 'text/xml');

$res = $ua->request($req);

if ($res->is_success) {
open(MAIL, ">.mail.tmp");
print MAIL $res->content;
close(MAIL);
open (FP, ".mail.tmp");
while (<FP>) {
if (/EMAIL/) {
$mail = $_;
$mail =~ s/EMAIL//g;
$mail =~ s/\<//g;
$mail =~ s/\>//g;
$mail =~ s/\///g;
$mail =~ s/^ //g;
$mail =~ s/ *//g;
print $mail;
}
}
unlink ".mail.tmp";
} else {
print "Error " . $res->status_line . "\n";
}

Jerardfjay

I don't have most of these modules installed systemwide for my projects. I just extract them, put them at appropriate places in my source project dirs and point @INC to there, and they will work. At least, non-compiled modules can be installed likewise, to avoid having to always rely on the system offerings.

If your servlet application is instructed to write in strictly this form (the element and its text node on a separate line) then it will be okay, but note that the XML specification states that whitespace between tags are insignificant and so you need to watch out if the XML generation component has changed at the servlet side (for instance, I think the Sun Java XML parsers do not write spaces or newlines in between tags). And you need to watch out for characters encoded (such as &gt; and &lt;) to comply with the XML standard by the generator. That is why using "standard" means such as SAX/DOM/XPath will be more convenient as your XML structure becomes more complex.