Toon posts:

[VB vs Perl]XMLHTTP omzetten naar Perl

Pagina: 1
Acties:

Verwijderd

Topicstarter
VB script
code:
1
2
3
4
5
6
7
8
Dim xmlHTTP
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")

Dim URLPath

URLPath = "http://localhost/cgi-bin/env.cgi"
xmlHTTP.open "POST", URLPath, False
xmlHTTP.send( strxml)


Perl
code:
1
2
3
4
5
6
7
my $ua = LWP::UserAgent->new(agent => 'xml client');
my $adress = 'http://localhost/cgi-bin/env.cgi';

my $resp = $ua->request(
        POST $adress ,
        Content       => [$strXML ]
    );


Beide codes hebben in env.cgi dezelfde output. Echter als ik de POST naar de API van de leverancier stuur doet de VB code het maar de Perl code niet. Kan het mogelijk zijn dat XMLHTTP nog meer dingen meestuurt dan alleen de POST data.

Verwijderd

Topicstarter
Oplossing gevonden :9

Regel 6 in de Perl code veranderen in Content => $strXML dus [ en ] weghalen.

Verwijderd

dat is nog eens zelf-hulp op GoT ;)