使用Mojo :: DOM时NBSP格式错误

Question

使用Mojo :: DOM时NBSP格式错误

Pra*_*eep 9 unicode perl html-entities mojolicious

我正在使用Mojo :: DOM Perl模块替换<IMG>标签,但 实体被Mojo :: DOM替换为\ xa0,但是当我将其打印到页面时,NBSP字符变为\ x {fffd}并显示为问号.我尝试过更换\n 但这样做会破坏另一个unicode角色.这是我的代码:

#!/usr/bin/perl

use utf8;
use strict;
use warnings;
use CGI;

my $cgi = new CGI;

print $cgi->header(-charset => 'utf-8');

my %params = $cgi->Vars;

print q[<html><head><title>UTF-8 Test</title></head><body><form method="POST"><textarea name="msg" cols="50" rows="20">].$params{msg}.q[</textarea><br/><br/><input type="submit"></form>];

if($ENV{REQUEST_METHOD} eq 'POST') {
    require Mojo::DOM;


    my $dom = Mojo::DOM->new($params{msg});

    for my $e ($dom->find('img')->each) {
          my $x = $e->attr('data-char');

          if(defined($x) && $x) {
             $e->replace($x);
          }
          else {
              $e->delete;
          }
    }

    $params{msg} = $dom->to_string();
    print '<hr/><div>'.$params{msg}.'</div>';
}

print q[</body></html>];

Run Code Online (Sandbox Code Playgroud)

POST的msg参数的内容:

אֱלֹהִים,+אֵת+הַשָּׁמַיִם,+וְאֵת+הָאָרֶץ.1在起始点 <img src ="p.jpg"data-char =""> Easy Bengali打字:বাংলাটাইপইপরুনМинюстРФопубликовалсписокСМИ-иноагентов日语键盘 - 日本语のキーボード先秦和汉(先秦两汉)

这是输出的屏幕截图:

Answer 1

Gri*_*nnz 3

Mojo::DOM 期望使用字符，而不是 UTF-8 编码的字节，因此它很可能会解码 为字符，然后需要在输出之前将其编码为 UTF-8。旧的 CGI 模块不会像现代框架那样解码您的输入参数或编码您的输出。因此，您需要自己处理这个问题：$params{msg}在将其传递给 Mojo::DOM 之前从 UTF-8 进行解码，然后在将其放入输出之前将其编码回 UTF-8（毕竟您声明了 UTF-8 的输出字符集））。

if($ENV{REQUEST_METHOD} eq 'POST') {
    require Mojo::DOM;
    require Mojo::Util;


    my $dom = Mojo::DOM->new(Mojo::Util::decode('UTF-8', $params{msg}));

    for my $e ($dom->find('img')->each) {
          my $x = $e->attr('data-char');

          if(defined($x) && $x) {
             $e->replace($x);
          }
          else {
              $e->delete;
          }
    }

    $params{msg} = Mojo::Util::encode('UTF-8', $dom->to_string());
    print '<hr/><div>'.$params{msg}.'</div>';
}

Run Code Online (Sandbox Code Playgroud)

归档时间：	8 年，2 月前
查看次数：	179 次
最近记录：	7 年，4 月前