Добрый день
Новичок. Начинаю пытаться осваивать PERL и JS. Стоит задача делать кроссдоменные запросы. Пробую тестировать на простом примере для дальнейшей усложненной реализации. Составленный пример, разумеется нерабочий. Пока пытаюсь просто получить true от запроса (пока false). Пожалуйста, помогите cделать true и, если возможно, обработчик JSON ответа. В сети не нашел нормальных примеров по CORS и настройки ответов сервера, особенно на PERL. Пожалуйста, пните лузера в нужную сторону, желательно, исправив мой пример, не используя модули. Что бы не позориться, прикрепляю ссылки: Код JS: http://a.ru/ctest.html Код PERL: http://b.ru/cgi-bin/ctest.cgi
Для начала - не занимайтесь изобретением велосипедов а-ля ручное формирование JSON. Для этого есть модуль JSON (и его XS-версия JSON::XS). Ваш пример мог бы выглядеть так:
use JSON qw/to_json/;
my %data = ( 'a' => 'A', 'b' => 'B' );
# ...
print to_json( \%data );
Дальше, по мелочам:
$a
и $b
. Конечно, в данном контексте это не приведёт ни к чему страшному, но хорошие привычки лучше вырабатывать сразу.use strict; use warnings;
или
use Modern::Perl;
В любом случае вам нужно сначала разобраться с основами.
Айфон мало держит заряд, разбираемся с проблемой вместе с AppLab
Есть вывод элементов через конструкцию each в JadeМне нужно обернуть каждые 2 элемента в div-родитель, как это можно реализовать? Я написал следующий...
Например, ссылка siteru в профиле инстаграм редиректилась на site