Скрипт "сжатия" строки не работает для русских букв

@Марианнна · Регистрация: 07.06.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте,помогите пожалуйста исправить скрипт ,чтоб он работал для русских букв тоже.
Задание было такое " По заданной строке выдать её максимальное сжатие."
Пример Строка: ababababABabAbbccccccccccc
Сжатие: 4ab1ABabA2b11c
Вот с этим работает правильно
А для русских букв
Ввожу:
тест
получаю:
1%D4%C5%D3%D4

Не знаю как это исправить=(
Вот сам скрипт

Perl

#!/usr/bin/perl -w
print "Content-type:text/html\n\n";
print "<html>
       <body bgcolor=a000ff>
      <h1>Проверка вторая</h1>";
$string = $ENV{'QUERY_STRING'};
@p = split(/&/, $string);
foreach $i (@p)
{
    ($name, $value) = split(/=/, $i);
};
      if ($name eq "qwe"){
       $str=$value;}
       `chcp 1251`;
       print "$str<br>\n"; $ln = length ($str); $new = "";
$pr = 0;
while ($str =~ /(((\w+?)\3{1,$ln})|(.))/g) {
do {$new .= length($1)/length($3) . $3; $pr = 0;} if $3;
do {$new .= $4} if ( ($4) && ($pr == 1));
do {$new .= "1" . $4; $pr = 1;} if ( ($4) && ($pr == 0));
}
print $new;

@fCixx · 10.06.2011, 11:39

Похоже, что у Вас символы русского языка кодируются в Юникод (UTF8) и представляются в шестнадцатеричном виде. Может стоит перекодировать их в ASCII специальной функцией?

@Марианнна · 10.06.2011, 13:29 **[ТС]**

Возможно...Но я в этом мало чего понимаю=(пару раз только писали на perl(

Добавлено через 1 час 34 минуты
Для символов тоже должно работать (например для ?*():%?№ ) но так же как и для русских букв не работает(((

@fCixx · 10.06.2011, 14:57

А у Вас все символы, отличающиеся от (A-Z), (a-z), =, & и ?, при передаче в виде URL кодируются вышеописанным образом. Только латиница будет нормально передаваться (без спец. знаков). Я сам недвно Perl изучаю, поэтому плохо знаю стандартную библиотеку. Может кто подскажет, как из шестнадцатиричного Юникода перекодить символы обратно в ASCII

@fCixx 8 / 8 / 0 Регистрация: 18.04.2009 Сообщений: 28
	10.06.2011, 11:39	2
	Похоже, что у Вас символы русского языка кодируются в Юникод (UTF8) и представляются в шестнадцатеричном виде. Может стоит перекодировать их в ASCII специальной функцией? 0

@Марианнна 1 / 1 / 0 Регистрация: 07.06.2010 Сообщений: 65
	10.06.2011, 13:29 [ТС]	3
	Возможно...Но я в этом мало чего понимаю=(пару раз только писали на perl( Добавлено через 1 час 34 минуты Для символов тоже должно работать (например для ?*():%?№ ) но так же как и для русских букв не работает((( 0

@fCixx 8 / 8 / 0 Регистрация: 18.04.2009 Сообщений: 28
	10.06.2011, 14:57	4
	А у Вас все символы, отличающиеся от (A-Z), (a-z), =, & и ?, при передаче в виде URL кодируются вышеописанным образом. Только латиница будет нормально передаваться (без спец. знаков). Я сам недвно Perl изучаю, поэтому плохо знаю стандартную библиотеку. Может кто подскажет, как из шестнадцатиричного Юникода перекодить символы обратно в ASCII 0