CORS запрос к PERL серверу и JSON ответ

717
26 ноября 2016, 09:14

Добрый день

Новичок. Начинаю пытаться осваивать PERL и JS. Стоит задача делать кроссдоменные запросы. Пробую тестировать на простом примере для дальнейшей усложненной реализации. Составленный пример, разумеется нерабочий. Пока пытаюсь просто получить true от запроса (пока false). Пожалуйста, помогите cделать true и, если возможно, обработчик JSON ответа. В сети не нашел нормальных примеров по CORS и настройки ответов сервера, особенно на PERL. Пожалуйста, пните лузера в нужную сторону, желательно, исправив мой пример, не используя модули. Что бы не позориться, прикрепляю ссылки: Код JS: http://a.ru/ctest.html Код PERL: http://b.ru/cgi-bin/ctest.cgi

Answer 1

Для начала - не занимайтесь изобретением велосипедов а-ля ручное формирование JSON. Для этого есть модуль JSON (и его XS-версия JSON::XS). Ваш пример мог бы выглядеть так:

use JSON qw/to_json/;
my %data = ( 'a' => 'A', 'b' => 'B' );
# ...
print to_json( \%data );

Дальше, по мелочам:

  1. Не используйте переменные с именами $a и $b. Конечно, в данном контексте это не приведёт ни к чему страшному, но хорошие привычки лучше вырабатывать сразу.
  2. Любой перловый исходник должен начинаться со строк:

use strict; use warnings;

или

use Modern::Perl;

В любом случае вам нужно сначала разобраться с основами.

READ ALSO
Как правильно отрефакторить код?

Как правильно отрефакторить код?

Как правильно отрефакторить следующий код?

674
Группировка элементов при выводе через each loop в Jade

Группировка элементов при выводе через each loop в Jade

Есть вывод элементов через конструкцию each в JadeМне нужно обернуть каждые 2 элемента в div-родитель, как это можно реализовать? Я написал следующий...

592
Как сделать на сайте редирект на определённую страницу учитывая источник перехода?

Как сделать на сайте редирект на определённую страницу учитывая источник перехода?

Например, ссылка siteru в профиле инстаграм редиректилась на site

577