Hello kanewilliam7777,
Some time ago (not more than 5-6 months) I wrote a small module for doing (GET, POST, DELETE, PUT and POST file). It should all what you need when you modify it to your requirements.
See the repo in GIT thanos1983/Perl5-MyClientRest-ClientRest.
Sample of how to call the module:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use MyClientRest::ClientRest;
my $host = "http://127.0.0.1:8000";
# instatiate class
my $object = new ClientRest( $host );
my $username = "user";
my $password = "password";
my $url = "/snippets/";
my $snippets = $object->getSnippets( $url, $username, $password );
# print Dumper $snippets;
my $hashRef = { "title" => "Test Title",
"code" => "print \"Test PUT Thanos Request\"",
"linenos" => "false",
"language" => "perl",
"character" => "\x{00AE}",
"style" => "emacs" };
my %options = ( "url" => $url,
"hashRef" => $hashRef,
"username" => $username,
"password" => $password );
# my $post = $object->postSnippets( %options );
# print Dumper $post;
my %optionsUpdate = ( "url" => $url . '49/',
"hashRef" => $hashRef,
"username" => $username,
"password" => $password );
my $put = $object->putSnippets( %optionsUpdate );
print Dumper $put;
You need to configure it to your needs but it should be more than a good starting point. The module is very simple so it should be straight forward for modifications.
Hope this helps, BR.
Seeking for Perl wisdom...on the process of learning...not there...yet!
|