Perl Script for Automation Testing

[suther]

Can anyone give suggestion about Perl Script for Automation Testing(check http request & response).with some sample code.

[erezschatz]

There are many such tools (as with everything in Perl). The exact nature of the tool(s) recommended needs to be based on the exact nature of the problem.

For instance, to test simple http request/response you can try WWW:Curl which is a Perl-binding for the cUrl tool.
OTOH, if you want to simulate an actual web-browser, you could try Test::WWW::Mechanise.

Naturally there are a lot of tools in the range of usage between those two, if you could supply more information regarding the tests you want to make, a better recommendation could be given.

[suther]

Thanks for your reply.
I need one help..

I have faced problem, while sending XML request to Message Queue.

Message has posted to Message Queue(body), but with dot between characters.eg: (T.e.s.t.M.e.s.s.a.g.e)

Is there any message format to send plain text?

sub sendInbox()
{
my $Body = shift;
#my $Queue = "DIRECT=OS:tandbpc137\\private\$\\testqueue";
my $Queue = "DIRECT=OS:\.\\private\$\\testqueue";
my $sendMsg = Win32::OLE->new('MSMQ.MSMQMessage');
my $sendInfo = Win32::OLE->new('MSMQ.MSMQQueueInfo');

$sendInfo->{FormatName}= $Queue;
my $sendQ = $sendInfo->Open(2, 0);
$sendMsg->{Label}= "test";
$sendMsg->{Body}= "test message";
#Send Message
$sendMsg->Send($sendQ);
$sendQ->Close;
}

sendInbox();