Monks,

I am trying to call Perl script using AngularJS POST method, but am not able to get back result to the front-end. I tried the same using PHP and getting result back.

Please find the UI code and Perl script. Could you please check and guide me what went wrong.

HTML page

<!DOCTYPE html>
<html >
<head>
<style>
table, th , td  {
  border: 1px solid grey;
  border-collapse: collapse;
  padding: 5px;
}
table tr:nth-child(odd) {
  background-color: #f1f1f1;
}
table tr:nth-child(even) {
  background-color: #ffffff;
}
</style>
<script src="angular.min.js"></script>

<script>
var app = angular.module('myApp', []);
app.controller('customersCtrl', function($scope, $http) {
   $http.get("http://sample.com/cgi-bin/jsonTest.cgi")
   .then(function (response) {$scope.names = response.data.records;});
   });
</script>

</head>
<body>
 
<div ng-app="myApp" ng-controller="customersCtrl">
 
<table>
  <tr ng-repeat="x in names">
    <td>{{ x.name }}</td>
    <td>{{ x.email }}</td>
  </tr>
</table>
 
</div>
 
</body>
</html>

[download]

Perl Script: jsonTest.cgi

#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use DBI;
use JSON;
my @output;
my $dbh = DBI->connect("dbi:mysql:database=test","usern","userp")  or 
+die "Connecting from Perl to MySQL database failed: $DBI::errstr";
my $sth = $dbh->prepare('SELECT name, email FROM user_tb');
$sth->execute;
while ( my $row = $sth->fetchrow_hashref ){ 
    push @output, $row;
}
my $cgi = CGI->new;
print $cgi->header( 'application/json' );
print objToJson( \@output );

[download]

if I run Perl script separately,can see output as 

Getting output as
[{"email":"test@test.com","name":"test"},{"email":"test1@test.com","na
+me":"Testone"},{"email":"test2@test.com","name":"TestTwo",},{"email":
+"test3@test.com","name":"TestThree"}];

[download]

Thanks

In reply to Perl and AngularJS - Help Required by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.