Как кодировать кириллические символы для URL, а затем декодировать их? - PullRequest
Новая
       29

Как кодировать кириллические символы для URL, а затем декодировать их?

5 голосов
/ 22 марта 2012

У меня есть форма на одной странице: 

<form method="POST" accept-charset="UTF-8" action="index.cgi" name="TestForm">

Одно из полей ввода "search_string" может использоваться для отправки символов кириллицы, и в этом случае строка URL выглядит следующим образом: 

search_string=%41F%2F%424+%41F%41E%414%416%410%420%41A%410+%418%417+%421%412%418%41D

Как мне декодировать это обратно в исходную строку на странице, на которой я размещаю сообщение?

Ответы [ 3 ]

5 голосов
/ 22 марта 2012

Правильное решение, включая пробелы: 

use open ':std', ':encoding(UTF-8)';
use Encode;

my $escaped = '%41F%2F%424+%41F%41E%414%416%410%420%41A%410+%418%417+%421%412%418%41D';
(my $unescaped = $escaped) =~ s/\+/ /g;
$unescaped =~ s/%([[:xdigit:]]+)/chr hex $1/eg;
print $unescaped;
# П/Ф ПОДЖАРКА ИЗ СВИН

Кредит поступает на Renaud Bompuis за то, что первым признал, что это кодовые точки Unicode с префиксом %.

Хочу добавить, что схема кодирования из вопроса очень необычная, я ее раньше не видел. Обычно можно ожидать, что строка символов П/Ф ПОДЖАРКА ИЗ СВИН будет закодирована как %D0%9F%2F%D0%A4+%D0%9F%D0%9E%D0%94%D0%96%D0%90%D0%A0%D0%9A%D0%90+%D0%98%D0%97+%D0%A1%D0%92%D0%98%D0%9D, то есть сначала символы кодируются в UTF-8, затем октеты экранируются процентами. Эта схема работает с ответом от Dr.Kameleon .

2 голосов
/ 22 марта 2012

Решение, которое сохраняет + и любой другой символ в исходной строке: 

my $s = '%41F%2F%424+%41F%41E%414%416%410%420%41A%410+%418%417+%421%412%418%41D';
$s =~ s/%([[:xdigit:]]+)/chr(hex($1))/eg;
print $s;

Результат: 

П/Ф+ПОДЖАРКА+ИЗ+СВИН
1 голос
/ 22 марта 2012

Попробуйте это в вашем скрипте (index.cgi): 

use Encode;

Тогда ... 

$search_string = decode_utf8( $search_string );

Еще одна идея (если вы хотите создать UTF8-дружественный хэш для вашего ввода CGI): 

require Encode;
require CGI;
my $query = CGI ->new;
my $form_input = {};  
foreach my $name ( $query ->param ) {
  my @val = $query ->param( $name );
  foreach ( @val ) {
    $_ = Encode::decode_utf8( $_ );
  }
  $name = Encode::decode_utf8( $name );
  if ( scalar @val == 1 ) {   
    $form_input ->{$name} = $val[0];
  } else {                      
    $form_input ->{$name} = \@val;  # save value as an array ref
  }
}

Взято из: http://ahinea.com/en/tech/perl-unicode-struggle.html

...