Как отправить данные в Perl скрипт через ajax?

Question

Как отправить данные в Perl скрипт через ajax?

4

Я хочу отправить данные в Perl script через ajax и получить от него формат json. Но это не сработает. Я знаю, что что-то не так в следующих сценариях. Кто-нибудь знает, как это исправить?

Код jQuery:

$("#test").click(function(){
    var ID = 100;
    var data = {
        data_id : ID                                                                        
    };

    $.ajax({        
        type: "POST",
        url: "ajax.cgi",
        data: data,
        success: function(msg){
            window.alert(msg);
        }       
    });
});

ajax.cgi(perl script):

#!/usr/bin/perl

use CGI;
use DBI;

$cgi = CGI->new;

# Here I'd like to receive data from jQuery via ajax.
$id = $cgi->param('data_id');     
$json = qq{{"ID" : "$id"}};

$cgi->header(-type => "application/json", -charset => "utf-8");
print $json;

exit;

Akio Yanagawa 06 окт. 2013, в 09:53

Источник

2

проверьте доступ к серверу и файлы журнала ошибок
Сухой27 06 окт. 2013, в 07:33
0

Большое спасибо за ваш комментарий. Итак, означает ли это "$ cgi = CGI-> new; и $ id = $ cgi-> param ('data_id');" не так, чтобы получать данные через ajax в jQuery?
Akio Yanagawa 06 окт. 2013, в 07:49
6

(1) Пожалуйста, сделайте так, чтобы ваш скрипт на Perl работал под use strict; use warnings → объявите свои переменные. (2) На самом деле вы не print $cgi->header(...) , насколько я вижу. (3) Чтобы увидеть, что получил ваш скрипт, выведите параметры в файл журнала: use Data::Dumper; print STDERR Dumper $cgi->Vars . (4) Чтобы де- или кодировать JSON, use JSON модуль use JSON .
amon 06 окт. 2013, в 11:21
0

Большое спасибо за редактирование и ваши советы. Я изменю код и попробую.
Akio Yanagawa 07 окт. 2013, в 04:49

Показать ещё 2 комментария

Теги:

jquery

ajax

json

perl

cgi

3 ответа

1

Я думаю, вы забыли напечатать заголовок:

$cgi->header(-type => "application/json", -charset => "utf-8");

должен быть

print $cgi->header(-type => "application/json", -charset => "utf-8");

Kamal Nayan 12 март 2015, в 12:29

-1

На самом деле это не ответ, а просто вопрос, связанный с одним из ответов.

Я новичок в Perl, и я просто скопировал ответ Cleb (а также сделал исполняемый файл ajax.pl), но он не работает и выдает эту ошибку:

XML Parsing Error: not well-formed
Location: file:///home/ali/workspace/snmp-agent/query_ui/ajax.pl
Line Number 1, Column 2:

Как видно из ответа Cleb, первая строка - "#!/Usr/bin/perl". Может кто-нибудь подсказать, пожалуйста, как решить эту проблему?

AVarf 28 янв. 2019, в 12:21

Ещё вопросы

проверьте доступ к серверу и файлы журнала ошибок
Большое спасибо за ваш комментарий. Итак, означает ли это "$ cgi = CGI-> new; и $ id = $ cgi-> param ('data_id');" не так, чтобы получать данные через ajax в jQuery?
(1) Пожалуйста, сделайте так, чтобы ваш скрипт на Perl работал под use strict; use warnings → объявите свои переменные. (2) На самом деле вы не print $cgi->header(...) , насколько я вижу. (3) Чтобы увидеть, что получил ваш скрипт, выведите параметры в файл журнала: use Data::Dumper; print STDERR Dumper $cgi->Vars . (4) Чтобы де- или кодировать JSON, use JSON модуль use JSON .
Большое спасибо за редактирование и ваши советы. Я изменю код и попробую.

Cleb · Accepted Answer · 2015-03-11T18-38-00.000Z

Не уверен, решили ли вы его сейчас, но, возможно, кто-то еще спотыкается над этим вопросом и задается вопросом, как это работает.

Пожалуйста, найдите код ниже. Если вы хотите запустить этот код, просто скопируйте файл index.html в каталог html (например,/var/www/html) и perl script в каталог cgi-bin (например,/var/www/cgi-bin). Обязательно сделайте исполняемый файл perl script! В моем коде ниже каталог cgi находится в /cgi -bin/ajax/stackCGI - пожалуйста, измените его соответствующим образом.

Я также добавил несколько более подробный пример того, как использовать Perl cgi, AJAX и JSON: click, а также еще один пример того, как передать массив из Javascript к Perl через AJAX с помощью JSON: нажмите.

index.html

<!DOCTYPE html>
<html>
    <head>
        <title>Testing ajax</title> 
        <script src="http://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>


    <script>

            $(document).ready(function() {

                $("#test").click(function(){
                    var ID = 100;
                    $.ajax({
                            type: 'POST',
                            url: '/cgi-bin/ajax/stackCGI/ajax.pl',
                            data: { 'data_id': ID },
                            success: function(res) {

                                                        alert("your ID is: " + res.result);

                                                    },
                            error: function() {alert("did not work");}
                    });
                })

            })



        </script>
    </head>
    <body>

        <button id="test" >Testing</button>

    </body>
</html>

ajax.pl

#!/usr/bin/perl

use strict;
use warnings;

use JSON; #if not already installed, just run "cpan JSON"
use CGI;

my $cgi = CGI->new;

print $cgi->header('application/json;charset=UTF-8');

my $id = $cgi->param('data_id');    

#convert  data to JSON
my $op = JSON -> new -> utf8 -> pretty(1);
my $json = $op -> encode({
    result => $id
});
print $json;