Help for this page
# Make the opposite mapping while (my($entity, $char) = each(%entity2char)) { $entity =~ s/;\z//; $char2entity{$char} = "&$entity;"; }
package HTML::Entities; $char2entity{'.25'} = '¼'; ... package main; ...
www.com | www.net | www.org
No recent polls found