2 # Takes STDIN and converts Converts hexadecimal, decimal and named HTML
3 # entities to their respective literals.
5 # Usage: perl entities2literals.pl < file_to_convert [> outfile]
6 # Reference: http://www.w3.org/TR/REC-html40/sgml/entities.html
7 # Copyright 2005 Ævar Arnfjörð Bjarmason <avarab@gmail.com> No rights reserved
11 my $file = join /$\//, <>;
13 $file =~ s/&#(\d+);/chr $1/eg;
14 $file =~ s/&#x([0-9a-fA-F]+);/chr hex $1/eg;
18 my ($number, $entity) = split / +/;
19 $file =~ s/&$entity;/chr $number/eg;