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);