Perlについての質問箱 58箱目
■ このスレッドは過去ログ倉庫に格納されています
0440デフォルトの名無しさん
2013/04/14(日) 06:54:18.63これどうやってUTF8に変換するんですか><
use utf8;
use WWW::Mechanize;
use Encode;
use Encode::Guess;
my($mech, $html, $type);
$mech = WWW::Mechanize->new();
$mech->get("http://exhentai.org/g/583766/0a8864be63/");
$html = $mech->content();
# 素の状態でチェック → UTF-32BE
$type = Encode::Guess->guess($html);
print $type->name, "\n";
# UTF8にエンコードしてチェック → まだUTF-32BE
$type = Encode::Guess->guess(encode('utf8', $html));
print $type->name, "\n";
# 淡い希望を寄せて書き出し → 絶望の文字化け
print $html, "\n";
■ このスレッドは過去ログ倉庫に格納されています