Платность CMS и ущербный хостинг — это непересекающиеся категории.
Я могу с использованием Dancer сделать открытую CMS и запускать его через CGI на виртуальном хостинге или через PSGI на собственном — это нормально. А могу сделать платную кучу навоза, которая, тем не менее, сможет работать подо всем, кроме CGI.
Таким образом, наличие возможности запуска через CGI не говорит о низком качестве продукта.
Подобные фрагменты встречаются в большом количестве, что говорит о намеренном написании «именно так».
Если бы всё было сделано правильно (с use strict), то этот именно фрагмент выглядел бы так: my ($fii, @FIL, $FIS, $pat, $file_text = (0, (), 0, undef, "");
Основная проблема в том, что локальной становится только первая переменная, а не всё перечисленное.
А просто написать: $ua->default_headers->init_header('content-type' => 'application/json');
$ua->post("http://dd.wooga.com/game/eor/?timestamp=$time&signature=$r%3D&api_version=2", Content => $data);
и избежать плясок с формированием запроса не кошерно?
И qq в определении $data явно лишнее — хватит одинарных кавычек.
%3D наводит на мысль об знаке равно (что очень характерно для Base64) прошедшем через url_encode, подумайте — стоит ли пририсовывать там отсебятину?
Символ / меняется на _ (а не \ на /).
Ну и классическое — use strict.
Я могу с использованием Dancer сделать открытую CMS и запускать его через CGI на виртуальном хостинге или через PSGI на собственном — это нормально. А могу сделать платную кучу навоза, которая, тем не менее, сможет работать подо всем, кроме CGI.
Таким образом, наличие возможности запуска через CGI не говорит о низком качестве продукта.
Если бы всё было сделано правильно (с use strict), то этот именно фрагмент выглядел бы так:
my ($fii, @FIL, $FIS, $pat, $file_text = (0, (), 0, undef, "");Основная проблема в том, что локальной становится только первая переменная, а не всё перечисленное.
$ua->default_headers->init_header('content-type' => 'application/json');
$ua->post("http://dd.wooga.com/game/eor/?timestamp=$time&signature=$r%3D&api_version=2", Content => $data);
и избежать плясок с формированием запроса не кошерно?
И qq в определении $data явно лишнее — хватит одинарных кавычек.
%3D наводит на мысль об знаке равно (что очень характерно для Base64) прошедшем через url_encode, подумайте — стоит ли пририсовывать там отсебятину?
Символ / меняется на _ (а не \ на /).
Ну и классическое — use strict.