nix, shell, perl, php, mysql and mac os x tips and tricks

Friday, September 19, 2014

Perl subroutine to fix when html entities get recursively applied

sub enEntity {
 
 my $string = shift;
 
 if ($string =~ /&/) {
  #print "string: $string\n";
 }
 if ($string =~ /&(amp;)+quot;/) { $string =~ s/&(amp;)+quot;/"/ig; }
 if ($string =~ /"/) { $string =~ s/"/"/ig; } 
 if ($string =~ /"/) { $string =~ s/"/"/ig; } 
 if ($string =~ /&(amp;)+apos;/) { $string =~ s/&(amp;)+apos;/'/ig; }
 if ($string =~ /'/) { $string =~ s/'/'/ig; } 
 if ($string =~ /'/) { $string =~ s/'/'/ig; } 
 if ($string =~ /&(amp;)+/) { $string =~ s/&(amp;)+/&/ig; }
 if ($string =~ /&/) { $string =~ s/&/&/ig; }
 if ($string =~ /&/) { $string =~ s/&/&/ig; }
 #optional
        #$string = unidecode($string);

 return ($string);

} # end sub unescape html entities

3 comments:

  1. But seriously, native HTML is repetitive and annoying to write. Emmet provides an intuitive and sleek alternative. psd to html

    ReplyDelete
  2. This comment has been removed by the author.

    ReplyDelete
  3. A PSD file, as we all are aware of, is a photo shop design file which gives us the liberty to creatively design the look and appeal of our websites.
    StartPoint Web Design

    ReplyDelete