Perl - 如何解码或替换 '从数据库到浏览器显示的单引号

Question

我发现了很多与此相关的问题，但是没有任何问题可以帮助我解决它。由于我缺乏专业知识而出现问题。

PHP 有 html_entity_decode ，它可能会有所帮助，但我相信 Perl 没有。

在我的 MySQL 数据库中，我有 ' " 描述中的以下长度：12' 6"

我希望它显示为 12' 6"。

我已经尝试过：

$string =~ s/:[']:/'/g;
$string =~ s/:["]:/"/g;
$string =~ s/'/'/g;
$string =~ s/"/"/g;
$string =~ s/\'/'/g;
$string =~ s/\"/"/g;
$string =~ s/\'/\'/g;
$string =~ s/\"/\"/g;
perl -pi -e 's:':':g' $_; #crashes.
perl -pi -e 's:":":g' $string #also crashes.
system -pi -e 's:':':g' $_; #crashes.
system -pi -e 's:":":g' $string #also crashes.

我不知所措。有人可以帮忙吗？

Answer 1

看看 HTML::Entities：

use warnings;
use strict;
use HTML::Entities;

my $str = '12' 6"';
print decode_entities($str);