Perlについての質問箱 22箱目
■ このスレッドは過去ログ倉庫に格納されています
0162デフォルトの名無しさん
2006/02/04(土) 00:27:28俺は 'iso-2022-jis' なんて指定を通しちゃうザル加減の方が
弾の人らしく思うけどな。Encode::Aias::init_aliases() のこれ。
define_alias( qr/\bjis$/i => '"7bit-jis"' );
define_alias( qr/\beuc.*jp$/i => '"euc-jp"' );
define_alias( qr/\bjp.*euc$/i => '"euc-jp"' );
define_alias( qr/\bujis$/i => '"euc-jp"' );
define_alias( qr/\bshift.*jis$/i => '"shiftjis"' );
define_alias( qr/\bsjis$/i => '"shiftjis"' );
'not jis' でも通るし 's-jis' なんて書いた日には bug fix に悩みそうだ。
■ このスレッドは過去ログ倉庫に格納されています