在 Perl 中编码特殊字符

Question

I have this string for example:

This is an example text ã&"><£

When I run this Perl code on the string:

my($string)= @_;
$string =~ s/>//g;
$string =~ s/<//g;
$string =~ s/&/and/g;
$string  =~ s/\"//g;
$string  =~ s/-//;
$string  =~ s/ó//;
$string =~ s/;//g;
$string =~ s/&/&amp;/g;

$string = encode_entities($string, '<>&"');
$string = encode_utf8($string);

return $string;      

I receive this result:

This is an example text ã£ã£

Instead of the expected one:

This is an example text ã&"><£

How can I solve it?

Answer 1

Can you try the following script:

use feature qw(say);
use strict;
use warnings;
use utf8;
use open qw(:std :encoding(utf-8));
use HTML::Entities;

my $string = 'This is an example text ã&"><£';
$string = encode_entities($string, '<>&"');
say $string;

Output :

This is an example text ã&"><£