日本語を RTF 内に記述可能な形式へ変換
#!/usr/bin/perl -w
use strict;
use Encode qw(encode decode :fallbacks);my $utf8 = '日本語文字列のtest: テスト of decoding japanese strings.';
my $internal = decode('utf8', $utf8);
my $dref = encode('ascii', $internal, FB_HTMLCREF);
$dref =~ s//\\u/g;my @ss = split(";",$dref);
foreach my $s (@ss) {
if($s =~ /\\u/){ print $s , " ? "; }
else { print $s , " "; }
}
print "\n";exit;