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
Posted by Rory at 12:28 PM

3 comments:

  1. Richard C. LambertFebruary 8, 2016 at 10:35 PM

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

    ReplyDelete
  2. Mueeid SoomroMay 10, 2017 at 3:29 AM

    This comment has been removed by the author.

    ReplyDelete
  3. Steve RMay 12, 2017 at 2:24 PM

    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

Subscribe to: Post Comments (Atom)