Perl - How to decode or replace ' from database to single quote for browser display

Question

I have found lots of questions close to this but, nothing that helped me solve it. Prob due to my lack of expertise.

PHP has html_entity_decode which could have helped but, Perl does not, I believe.

In my MySQL database I have ' " following lengths in a description like: 12' 6"

I would like it to display as 12' 6".

I have tried:

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

I am at a loss. Can someone help?

score 6 · Accepted Answer · edited Jan 22 '11 at 20:42

6

Have a look at HTML::Entities:

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

my $str = '12&#39; 6&#34;';
print decode_entities($str);

edited Jan 22 '11 at 20:42

cjm

61,471
9
126
175

answered Jan 22 '11 at 20:02

ccheneson

49,072
8
63
68

5

+1 ... Rule of thumb: If PHP has it, **Perl has a CPAN library that does it** too. – ocodo Jan 22 '11 at 20:05
What is I do not know if the prefix will be 12 or 6? – DulcimerDude Jan 22 '11 at 20:07
@DulcimerDude. It doesnt matter. The entity is `numval;`. You can put whatever you want before. – ccheneson Jan 22 '11 at 20:11
EXCELLENT! Worked great! You rock. – DulcimerDude Jan 22 '11 at 20:14

Perl - How to decode or replace ' from database to single quote for browser display

1 Answers1