Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: CURL and Perl (it rhymes!)

by Corion (Patriarch)
on Dec 28, 2011 at 20:33 UTC ( [id://945415]=note: print w/replies, xml ) Need Help??

in reply to CURL and Perl (it rymes!)

I would look at what HTTP requests Curl creates from that command line, and then recreate these HTTP::Requests for use with LWP::UserAgent. If Curl has no convenient way to show what it is sending, likely Wireshark or any other network sniffer will produce the data sent by Curl.

use HTTP::Request::Common; my $virtual_machines = GET( '', Accept => 'application/json', Content_Type => 'application/json', ); # perform request, passing the credentials either in the URL or settin +g up LWP::UserAgent ... print $response->as_string;

Setting new values is likely done via POST:

use JSON; my $new_values => [ machine1 => 100, machine2 => 200, machine3 => 300, machine4 => 400, ]; my $set_virtual_machines = POST( '', Accept => 'application/json', Content_Type => 'application/json', Content => [ 'magic_json_parameter_name' => encode_json($new_values ), ], );

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://945415]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2024-06-21 16:40 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.