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

dbg> b myclass::mymethod
[download]

dbg> b 123
[download]

dbg> b myclass::123
[download]

Hi!

I have some packet from app that looks like "ec bd ... 00 00 ff ff" which I am trying to decode.

From what I have found, it looks like "00 00 ff ff" is a Z_SYNC_FLUSH of deflate (zlib).

I tried to reproduce it on Compress::Raw::Zlib, Compress::Zlib and some others. But the ending pattern was "00 ff 00 ff". Am I missing something?

#!/usr/local/bin/perl

use Compress::Zlib ;

my $x = deflateInit() or die "Cannot create a deflation stream\n" ;
($output, $status) = $x->deflate('text') ;

($output, $status) = $x->flush(Z_SYNC_FLUSH) ;

$output =~ s/(.)/sprintf '%04x', ord $1/seg;
print "output=$output\n";
[download]