ウムラウトとかアクサンとか

2006/12/2 [23:29:09] (土)

水元公園に紅葉のパノラマを撮りに行ったり、秋葉原にまたメモリを買いに行ったり、コミケのカタログ買ってみたり。…なんだけど、どうも体力がへろっていかんなぁ。バテてるというかなんというか。

趣味は読書SNS で海外のアマゾンへもISBNを探しに行くようにしたところ、ウムラウトやアクサンは化けてしまう。

¡¢£¤¥§¨©ª«¬®¯°±´µ¶·¸º»¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÑÒÓÔÕÖØÙÚÛÜßàáâãäåæçèéêëìíîïñòóôõö÷øùúûüÿ

あれこれ検索したら、どうやらutf8でやれよ、ということらしい。でもそれってデータベースからすべて設定しなおしとなって大変なので、euc環境で苦肉の策。
実体参照で逃げてみた。「表示」はできても、「検索」や「入力」が問題になるよなぁ。当面はこれでいくしかないかなぁ。

sub latin_1{
 my $str = shift;
 $str =~ s/\xA1/¡;/g;
 $str =~ s/\xA2/¢;/g;
 $str =~ s/\xA3/£;/g;
 $str =~ s/\xA4/¤;/g;
 $str =~ s/\xA5/¥;/g;
 $str =~ s/\xA7/§;/g;
 $str =~ s/\xA8/¨;/g;
 $str =~ s/\xA9/©;/g;
 $str =~ s/\xAA/ª;/g;
 $str =~ s/\xAB/«;/g;
 $str =~ s/\xAC/¬;/g;
 $str =~ s/\xAE/®;/g;
 $str =~ s/\xAF/¯;/g;
 $str =~ s/\xB0/°;/g;
 $str =~ s/\xB1/±;/g;
 $str =~ s/\xB4/´;/g;
 $str =~ s/\xB5/µ;/g;
 $str =~ s/\xB6/¶;/g;
 $str =~ s/\xB7/·;/g;
 $str =~ s/\xB8/¸;/g;
 $str =~ s/\xBA/º;/g;
 $str =~ s/\xBB/»;/g;
 $str =~ s/\xBF/¿;/g;
 $str =~ s/\xC0/À;/g;
 $str =~ s/\xC1/Á;/g;
 $str =~ s/\xC2/Â;/g;
 $str =~ s/\xC3/Ã;/g;
 $str =~ s/\xC4/Ä;/g;
 $str =~ s/\xC5/Å;/g;
 $str =~ s/\xC6/Æ;/g;
 $str =~ s/\xC7/Ç;/g;
 $str =~ s/\xC8/È;/g;
 $str =~ s/\xC9/É;/g;
 $str =~ s/\xCA/Ê;/g;
 $str =~ s/\xCB/Ë;/g;
 $str =~ s/\xCC/Ì;/g;
 $str =~ s/\xCD/Í;/g;
 $str =~ s/\xCE/Î;/g;
 $str =~ s/\xCF/Ï;/g;
 $str =~ s/\xD1/Ñ;/g;
 $str =~ s/\xD2/Ò;/g;
 $str =~ s/\xD3/Ó;/g;
 $str =~ s/\xD4/Ô;/g;
 $str =~ s/\xD5/Õ;/g;
 $str =~ s/\xD6/Ö;/g;
 $str =~ s/\xD8/Ø;/g;
 $str =~ s/\xD9/Ù;/g;
 $str =~ s/\xDA/Ú;/g;
 $str =~ s/\xDB/Û;/g;
 $str =~ s/\xDC/Ü;/g;
 $str =~ s/\xDF/ß;/g;
 $str =~ s/\xE0/à;/g;
 $str =~ s/\xE1/á;/g;
 $str =~ s/\xE2/â;/g;
 $str =~ s/\xE3/ã;/g;
 $str =~ s/\xE4/ä;/g;
 $str =~ s/\xE5/å;/g;
 $str =~ s/\xE6/æ;/g;
 $str =~ s/\xE7/ç;/g;
 $str =~ s/\xE8/è;/g;
 $str =~ s/\xE9/é;/g;
 $str =~ s/\xEA/ê;/g;
 $str =~ s/\xEB/ë;/g;
 $str =~ s/\xEC/ì;/g;
 $str =~ s/\xED/í;/g;
 $str =~ s/\xEE/î;/g;
 $str =~ s/\xEF/ï;/g;
 $str =~ s/\xF1/ñ;/g;
 $str =~ s/\xF2/ò;/g;
 $str =~ s/\xF3/ó;/g;
 $str =~ s/\xF4/ô;/g;
 $str =~ s/\xF5/õ;/g;
 $str =~ s/\xF6/ö;/g;
 $str =~ s/\xF7/÷;/g;
 $str =~ s/\xF8/ø;/g;
 $str =~ s/\xF9/ù;/g;
 $str =~ s/\xFA/ú;/g;
 $str =~ s/\xFB/û;/g;
 $str =~ s/\xFC/ü;/g;
 $str =~ s/\xFF/ÿ;/g;
 return $str;
}

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら