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

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( 'https://api.vps.net/virtual_machines.api10json', 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( 'https://api.vps.net/virtual_machines.api10json', Accept => 'application/json', Content_Type => 'application/json', Content => [ 'magic_json_parameter_name' => encode_json($new_values ), ], );

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://945415]
help
Chatterbox?
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
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    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.