Convert Perl code to Autoit code

[DjDeep00]

Is anyone a Perl expert out there, who can convert the following Perl code to Autoit?

#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

use HTTP::Request::Common;

my $userAgent = LWP::UserAgent->new(agent => 'perl post');

opendir DIR, "c:/XML";

my @files = readdir(DIR);

closedir DIR;

#print $files[2];

my $x = 2;

while ( $x <= @files-1 )

{

open(DAT, "c:/XML/".$files[$x]) || die("Could not open file!");

undef $/;

my $raw_data = <DAT>;

close DAT;

$/ = "\n";

my $message = $raw_data;

#print "XML Sent: ";

#print $raw_data;

my $response = $userAgent->request(POST 'http://199.168.1.88:5555/servlet',Content_Type => 'text/xml',Content=>$raw_data);

open LOG, ">>C:/Log.txt";

print LOG $response->error_as_HTML unless $response->is_success;

print LOG $response->as_string;

close LOG;

$x = $x + 1;

}

Thanx in advance.

[Thatsgreat2345]

Maybe for some of us that can help but dont know PERL could you explain what it does?

[DaleHohm]

It's opening all of the files in a particular folder, reading them in as raw XML and then posting them to a web address. Most of the code is just housekeeping.

Why do you want to convert it to AutoIt?

Dale

[DjDeep00]

It's opening all of the files in a particular folder, reading them in as raw XML and then posting them to a web address. Most of the code is just housekeeping.

Why do you want to convert it to AutoIt?

Dale

DaleHohm you absolultely correct, thats exactly what I am doing.

My main reason for converting is because you wont be able to execute the perl code on any computer. You will need to install activate now for the Perl script. If I can convert it to Autoit then I can just simply compile it to one exe. Any help would be appreciated.

[DjDeep00]

Perl --> Autoit....Anyone?

[Xenobiologist]

Perl --> Autoit....Anyone?

HI,

I think there are also perl2exe converter out there.

So long,

Mega

[DaleHohm]

Is anyone a Perl expert out there, who can convert the following Perl code to Autoit?

#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

use HTTP::Request::Common;

my $userAgent = LWP::UserAgent->new(agent => 'perl post');

opendir DIR, "c:/XML";

my @files = readdir(DIR);

closedir DIR;

#print $files[2];

my $x = 2;

while ( $x <= @files-1 )

{

open(DAT, "c:/XML/".$files[$x]) || die("Could not open file!");

undef $/;

my $raw_data = <DAT>;

close DAT;

$/ = "\n";

my $message = $raw_data;

#print "XML Sent: ";

#print $raw_data;

my $response = $userAgent->request(POST 'http://199.168.1.88:5555/servlet',Content_Type => 'text/xml',Content=>$raw_data);

open LOG, ">>C:/Log.txt";

print LOG $response->error_as_HTML unless $response->is_success;

print LOG $response->as_string;

close LOG;

$x = $x + 1;

}

Thanx in advance.

The complicated piece is this line:

my $response = $userAgent->request(POST 'http://199.168.1.88:5555/servlet',Content_Type => 'text/xml',Content=>$raw_data);

Check out this desctiption of using XMLHTTP to post

Dale

[DjDeep00]

Dale,

request(POST 'http://199.168.1.88:5555/servlet' ---> Instead of GET I am using POST.

Content_Type => 'text/xml' ---> This is a header for HTTPS.

Content=>$raw_data) ---> This is the data (xml).

I know there is some kind of xml posting code for VB that you can use.

Please let me know if you need more info on what that specfice line of code does. If you can just give it a shot and post the converted Autoit script, that would be awesome. Then I can play around with it and hopefully make it work.

Thanks in advance.

[DaleHohm]

The complicated piece is this line:

my $response = $userAgent->request(POST 'http://199.168.1.88:5555/servlet',Content_Type => 'text/xml',Content=>$raw_data);

Check out this desctiption of using XMLHTTP to post

Dale

Hmmm. I thought there was enough information at taht site for you to give it a shot... here is some help with syntax converting their example to something close for you in AutoIt:

$xml = ObjCreate("Microsoft.XMLHTTP")
$xml.Open("POST", "http://199.168.1.88:5555/servlet", False)
$xml.setRequestHeader("Content-Type", "text/xml")
$xml.Send($raw_data)

Dale

Edited June 7, 2006 by DaleHohm

[DjDeep00]

Hmmm. I thought there was enough information at taht site for you to give it a shot... here is some help with syntax converting their example to something close for you in AutoIt:

$xml = ObjCreate("Microsoft.XMLHTTP")
$xml.Open("POST", "http://199.168.1.88:5555/servlet", False)
$xml.setRequestHeader("Content-Type", "text/xml")
$xml.Send($raw_data)

Dale

You were rite there was enough info at that site. I just needed some help with the syntax and now I am GOOD TO GO!

Thanx Dale.

[gamerman2360]

Is there a difference between "Microsoft.XMLHTTP" and "winhttp.winhttprequest"?

[mary]

Is there a difference between "Microsoft.XMLHTTP" and "winhttp.winhttprequest"?

very interesting question:

i don't know but i tested them and it appear that winhttp is more rapid and you can do a loop WinHttpReq.send() with only one call to WinHttpReq.open()

maybe other expert tell as more