Changes between Version 12 and Version 13 of Perl

Timestamp:

09/25/06 11:39:17 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ -415 +415 @@
 $ perl -e '@A=reverse split//,$ARGV[0];for(@A){$s+=(ord($_)-96)*(26**$i++)};print $s-1,"\n";' 
 }}}
+
+== HTML 関連 ==
+=== 実体参照，文字参照をほげる ===
+{{{
+#!perl
+my %entref_map = (
+     amp  => "&",
+     apos => "'",
+     gt   => ">",
+     lt   => "<",
+     nbsp => " ",
+     quot => '"',
+);
+
+$body =~ s/&(\w+?);/$entref_map{$1}/ge;         # entityref
+$body =~ s/&#([0-9]+?);/chr($1)/ge;             # dec charref
+$body =~ s/&#x([0-9A-Fa-f]+?);/chr(hex($1))/ge; # hex charref
+}}}
+ * こういうのもあるらしい http://www.kawa.net/works/perl/i18n-emoji/EntityRef.pm.html