https://www.opennet.ru/openforum/vsluhforumID9/7085.html из формы с текстовым полем name=word передаётся запрос для яндекса в скрипт обработчик, код ниже<br>но яндекс не понимает кодировку и говорит что запрос был пустой, похоже это происходит во время передачи формы на сервер, хотя<br>print $word; после передачи печатает слово правильно.<br><br>если раскаментить строчку #$word="грузовые перевозки";<br>то всё будет работать, где что нужно поменять, чтобы яндекс понимал слово переданное из формы, есть ли какие-нибудь функции для смены кодировок, подозреваю, что нужно перевести в кодировку utf-8, библиотека iconv на моём сервере похоже не стоит.<br><br><br>[code]<br>#!/usr/bin/perl<br>use LWP::UserAgent;<br>use HTTP::Request::Common;<br><br><br>sub urldecode{<br>local($val)=@_;<br>$val=~s/\+/ /g;<br>$val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;<br>return $val;<br>}<br><br>if ($ENV{'REQUEST_METHOD'} eq 'GET') {<br>$query=$ENV{'QUERY_STRING'};<br>}<br>elsif($ENV{'REQUEST_METHOD'} eq 'POST'){<br>sysread(STDIN, $query, $ENV{'CONTENT_LENGTH'});<br>}<br><br>@formfields=split(/&/,$query);<br>foreach(@formfields){<br>if(/^wor https://www.opennet.ru/openforum/vsluhforumID9/7085.html#2 Mon, 07 Jan 2008 07:45:26 GMT &gt;Accept-Charset =&gt; 'iso-8859-1,*,utf-8,windows-1251';<br><br> если вы хотите в cp1251 так и указывайте ее первой или единственной<br>Accept-Charset =&gt; 'windows-1251';<br> https://www.opennet.ru/openforum/vsluhforumID9/7085.html#1 Mon, 07 Jan 2008 00:01:34 GMT 1. Зачем изобретать велосипед и распарсивать Get/Post самому, когда есть уйма модулей делающих это в совершенстве. Неужели вы думаете что ваш код действительно лучше? <br>2. Что вам мешает сделать print "$word\n" дабы глянуть что реально у вас в этой переменной.<br>3. Для перекодировок есть Encode<br>