관리-도구

편집 파일: xml.t

BEGIN { if ( $] < 5.009 ) { print "1..0 # Skip: Perl <= 5.9 or later required\n"; exit 0; } } use strict; use warnings; use Encode; use Test::More; my $content = String->new("--\x{30c6}--"); my $text = Encode::encode('latin1', $content, Encode::FB_XMLCREF); is $text, "--&#x30c6;--"; done_testing(); package String; use overload '""' => sub { ${$_[0]} }, fallback => 1; sub new { my($class, $str) = @_; bless \$str, $class; } 1;