Exalted Monks,

I was here last time asking about Perl and was both humbled and amazed by your answers. I am here again to ask you for another favour. I am looking for a good tutorial for REST API for Perl.

What I understand as of now, is that REST API is something like a call I make to a website and give me the results in the json format, that's all.

If you could direct me to a good tutorial that teaches REST API using Perl, I will be ever so thankful.

my $prod_dbh = DBI->connect_cached('DBI:Sybase:database','web_','web')
+ || die "Couldn't connect to DB!\n" . DBI->errstr;
my $parent_sth = $prod_dbh->prepare_cached('select * from table where 
+id = ?');
$parent_sth->bind_param(1,$id);
$parent_sth->execute();
my @parent_data = $parent_sth->fetchrow_array();
[download]

my $child_sth = $prod_dbh->prepare_cached('select * from table2 where 
+id = ?');
$child_sth->bind_param(1,$parent_data[0]);
$child_sth->execute();
my @child_data = $child_sth->fetchrow_array();
print Dumper(@child_data);
[download]

I'm trying to sort and a comma-separated list and insert a line from another file. I created an array of structs as a test, but it wouldn't print outside of dumper, what am I doing wrong

use strict;

use warnings;

use Class::Struct;

package Carrier_Info;

 

struct Carrier_Info => {

          name => '$',

          abbrev => '$',

};

 

my $aa="TH";

my @carriers;

{

    #method 2

    push @carriers, Carrier_Info->new(name => "Paul Lalli", abbrev =>"
+PL");

    push @carriers, Carrier_Info->new(name => "Travis Hervey", abbrev=
+> $aa);

               

                my $xyz;

                $xyz = pop(@carriers);

                my $ppp = $xyz->{name};

                print "which name is $ppp\n";

}
[download]

This prints either "Array(0x)", "Hash(0x)" or nothing. I'm expecting it to print "Travis Harvey". Once I understand using structs I can proceed with my real perl program Michael

So I copied that from another node, placed it into /usr/bin, and chmod-ed it. Now it runs. It indexes modules, then tells me I can access the pod using localhost:8020 . Ducky!

But that host is in another state- its NOT my localhost. So I figure no problem, I'll just use:

http://www.myserver.com:8020
[download]

TYVM

I was recently forced into a server change and it has broken an old script that's in use. I'm getting the error: "Software error: DBD::mysql::st execute failed: Field 'name' doesn't have a default value at admin.cgi line 192."

  my $var;
  if ($new eq "charter") { $var = "c"; } elsif ($new eq "sales") { $va
+r = "s"; }
  my $sth = $dbh->prepare("INSERT INTO $new (active) VALUES (0)");
 #line 192
 $sth->execute;
[download]

Could any kind Monk please advise on the steps I should take to troubleshoot this

NB. The script is connecting to the DB ok - other aspects like edit are working fine

Hi, everything else seems to work if I manually insert file names instead of using hash values but everything I have tried on lines 40,44 &47 gives me a string instead of a file handle. What am I doing wrong? thanks, Dave Driscoll

#!/usr/bin/perl -w
#ad_sort.pl 
#in ~/logs take paydirt.log as input
#for each item in the ads hash,
#search for a match for 'GET /bookstore/'+ads key
#when a match is found, write that and all following lines to 
#ads key value .
#until a string containing '####' is found then stop writing
#keep reading until next match or EOF


use IO::File;
use strict;
use diagnostics;

my $do_write = 'no';

open(MYINPUTFILE, "<paydirt.log") || die("$!");

my $western_lore_ad1 = IO::File->new("> ad_logs/western_lore_ad1.log")
+;
my $western_lore_ad2 = IO::File->new("> ad_logs/western_lore_ad2.log")
+;
my $western_lore_ad3 = IO::File->new("> ad_logs/western_lore_ad3.log")
+;
my $native_ad1 = IO::File->new("> ad_logs/native_ad1.log");
my $native_ad2 = IO::File->new("> ad_logs/native_ad2.log");

my %ads = ('western_lore.php?ad=n1'=>$western_lore_ad1,'western_lore.p
+hp?ad=n2'=>$western_lore_ad2,'$western_lore.php?ad=n3'=>$western_lore
+_ad3,'native.php?ad=n1'=>$native_ad1,'native.php?ad=n2'=>$native_ad2)
+;
my @ad_strings = keys $ads;

my(@lines) = <MYINPUTFILE>;

foreach (@ad_strings){
  my $this_ad = $_;
  my $clicks = 0;
  foreach my $line (@lines){
    if ($line =~ m/GET \/bookstore\/\Q$this_ad/){
      $do_write = 'yes';    
      $clicks++;
    }
    if ($do_write eq 'yes'and $line =~ m/###/){
      print $ads{$this_ad} "$line\n";#this should print to one of the 
+files referenced by IO::File on lines 21-25
      $do_write = 'no';
    }
    if($do_write eq 'yes' ){
      print $ads{$this_ad} $line;#ditto
    }
  } 
  print $ads{$this_ad} "clicks = $clicks \n";#ditto
}

close (MYINPUTFILE);

$western_lore_ad1->close;
$western_lore_ad2->close;
$western_lore_ad3->close;
$native_ad1->close;
$native_ad2->close;

exit ();
[download]

Just decided to get more into testing (i've read it is almost guaranteed my code will improve..). I created a new Dancer2 app. The modules I use are installed locally via a cpanfile and a `carton install` command. Everything works though I cannot get the testing to work as I get warnings like:

Can't locate Dancer2/Plugin/Database.pm in @INC (you may need to insta
+ll the Dancer2::Plugin::Database module)
[download]

bin/app.psgi looks like:

#!/usr/bin/env perl

use strict;
use warnings;

use File::Basename;
use File::Spec;
use lib File::Spec->catdir( File::Basename::dirname( File::Spec->rel2a
+bs($0) ),
    '..', 'local/lib/perl5' );
use lib File::Spec->catdir( File::Basename::dirname( File::Spec->rel2a
+bs($0) ),
    '..', 'lib' );

use jwsDancer;

jwsDancer->to_app;
[download]

lib/jwsDancer.pm

package jwsDancer;
use Dancer2;
use Dancer2::Plugin::Database;
use Dancer2::FileUtils qw/path read_file_content/;

use Cwd qw(abs_path);
use lib dirname( dirname abs_path $0) . '/../../lib';

get '/' => sub {
    template 'index' => { 'title' => 'a web page' };

true;
[download]

For now I'm just trying to use the test that is generated by scaffolding a Dancer2 app via

Can anyone give a hint what I should do to have the locally installed modules (in local/lib/perl5) work as well in the testing environment?

hello fellow monks

From long time i've been developing little Perl programs to do some stuff. As i do often (ab)use other REST apis to scrap data i need, i am familiar with Curl blessings, i know how to perform simple GET or trick certain endpoint to POST him given payload to receive wanted answer. Until now it almost always happened in console, where requested informations were thrown out to STDOUT. Simple stuff

But my programs always lacked a crossplatform, human friendly web interface. Now i wanted to change this and write my own API (simple DB selects, some system() executions) and send AND receive response in browser
So i started Apache, made it capable of running CGI scripts and wrote some simple "parse url arguments and return json" procedures. it works, cool.
Problem arose when i tried to use same set of tools to run my "frontend". My "webui" consists of single form with textarea and submit button. Action is targetted against my api. So i fill textarea, press submit and... i get raw json response in my browser.
Question is:

How do i separate "api" from "frontend" and made them pass data between each other in order to
- have nice form
- have api to do actual job
- receive data from api in json format, process it and return output to user in "web format", like a table?
i deliberately am trying to avoid javascript and other node.js-junk, as i don't want to have anything in common with JS ;p

my first idea was to include some sort of www-client (like LWP) in my "fronted" to do request on my behalf, capture "api's" output and process it, but it seems like big overkill for me to have Apache running CGI script which "embeds" www client which requests data from other apache instance.
My other idea (utilizing forms) was to submit to the same page (my fronted) and check wheter request was caused by form submission (then do www-client magic) or just by entering site "for the first time to fill the form".
Both solutions feels clunky to me, so here i am, seeking a wisdom ;)

My frontend doesn't have to be pretty, "responsive" and "modern". I just want to be able to click my buttons using browser in phone, tablet and computer, simpler the better in my case
Also separation is important as i want to develop only my "backend" features, while focusing as little as possible on frontend. Seriously, form with button and optional checkboxes is something which will satisfy me as this point

dbg> b myclass::mymethod
[download]

dbg> b 123
[download]

dbg> b myclass::123
[download]