Perl × Twitter連携 Tweet時絵文字がエンティティ化されてしまう。

Question

#PerlでTwitter連携時絵文字が10進数のHTML Entityとして表示されてしまう件
・ブログ更新時に更新通知が自動でTweetされるシステム。

起きている不具合

Tweet時に以下のように

「こんにちは朗」

などと絵文字だけエンティティ化されてTweetされてしまう。

よって、
Tweet時に絵文字が正常に表示される。　これを実現したいです。

###前提

• 内部文字列EUC-JP
• Tweet内容はPOSTで受け取った内容
• Net::Twitter::Lite　モジュールを使用
• 筆者、実環境でのテストを認められず

以上　3ファイル構成

問題のコード

• blog.htmlでPOST(投稿)

• twiter.cgiでPOSTのパラメータ受け取り、サブルーチンの引数として渡す

• tweet_sub.plにサブルーチン定義

POSTメソッドでフォームからデータをうけとる。

#blog.html
#ブログ投稿フォーム
<form action="twitter.cgi" method="POST" style="display:inline" enctype="multipart/form-data">
<input type="hidden" name="mode" value="foo">
<input type="text" name="title">

～～～～～～～～～～～～～～～～～～～～～～～～～～～～

</form>

#twiter.cgi
use Encode;
use Net::Twitter::Lite;
require '../tweet_sub.pl';


##POSTでフォームから受け取ったパラメータが'foo'の時実行
if($param{'mode'} eq 'foo'){
～～～～～～～～～～～～～～～～～～～～～～～～～～～～

##受け取ったパラメータをサブルーチンの引数として渡す。
&tweet_notice($param{'title'});
}



#tweet_sub.pl
use Encode;
sub tweet_notice{
##本来は複数の引数だが今回は一つに。
my ($title) = shift;

#ここでデコードしている。。
$title = decode('eucjp', $title);
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
$tweet = "$title $user_name $blog_url $hashtag $tweet_time";
my $result = $net_twitter->update($tweet);
}

考察

ググったり、XAMPP環境にActive Perlを入れて限りなく寄せて模擬的にテストをしてみた。

• 出力時には必ずエンコードする

まずこのお約束に則り、Tweet処理直前にUTF-8バイト文字列にエンコードを行いUnicodeに対応させるべきではないか。

#tweet_sub.pl
use Encode;


sub tweet_notice{
##本来は複数の引数だが今回は一つに。
my ($title) = shift;

#ここでデコードしている。。
$title = decode('eucjp', $title);
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～


$title = encode('UTF-8', $title);　##ココでエンコード処理を追加
$tweet = "$title $user_name $blog_url $hashtag $tweet_time";
my $result = $net_twitter->update($tweet);
}

エンコード/デコードの知識が非常に乏しく
ご教授いただければ幸いです。
何卒よろしくお願いいたします。

Answer 1

絵文字がうまく表現できないことと直接関係あるかはわかりませんが、

$title = encode('UTF-8', $title);　##ココでエンコード処理を追加
$tweet = $tweet = "$title $user_name $blog_url; $hashtag $tweet_time";

エンコードは出力の直前に行うべきです。このコードではエンコードしてしまったデータをさらに加工に使っている点で適切とは言えません。順番を入れ替えましょう。

Comments

[devil-code]

>Koji Doi様
ご回答いただきありがとうございます。
おっしゃる通り適切な処理ができませんでした。
バイト文字列を出力すると
Twitterはバイト文字列のままTweetを行うようなのでdecodeの時点の処理を考えなおしてみます。

Answer 2

use HTML::Entities;
$title = decode('eucjp', $title); 

$title = HTML::Entities::decode_entities($title);
$tweet = $tweet = "$title $user_name $blog_url; $hashtag $tweet_time";

全くの筆者の見当違いでありました。
HTML::Entities モジュールを使うことで解決することができました。
Doi様、この度もご回答いただきありがとうございました。