PERLで２バイト文字列をＣＨＯＰすると、どうしても豆腐になってしまう？

今、ＭａｃＰＥＲＬ使って掲示板スクリプトを作っていまして、
記事の題名のリンクだけをツリー状表示するＩＮＤＥＸページで、長すぎ
る題名は短くちょんぎって「タイトル...」みたいな形にしたいのですが、
どうも上手くいきません。ＣＨＯＰ（＄ｓｕｂｊｅｃｔ）を使い（＄ｓｕｂｊｅｃｔ
が題名です）、ｌｅｎｇｔｈ（＄ｓｕｂｊｅｃｔ）の語尾が偶数の場合は
偶数回、奇数の場合は奇数回ＣＨＯＰをかければいいのかな、と単純に
思ってたんですけど、ダメみたいなのです。ちょうどちぎれる部分に２バ
イトキャラが来ると半分になるのか四角い豆腐記号になってしまいます：

　$subject_length = length ($subject);
　if ($subject_length > 26)
　{
　　$cut_even = $subject_length;
　　chop($cut_even);
　　if ($cut_even eq "0") {$cut_num = $subject_length - 26;}
　　elsif ($cut_even eq "2") {$cut_num = $subject_length - 26;}
　　elsif ($cut_even eq "4") {$cut_num = $subject_length - 26;}
　　elsif ($cut_even eq "6") {$cut_num = $subject_length - 26;}
　　elsif ($cut_even eq "8") {$cut_num = $subject_length - 26;}
　　else {$cut_num = $subject_length - 25;}

　　for ($count = 0; $count < $cut_num; $count++)
　　{
　　　chop($subject);
　　}
　　$subject_abb = "$subject ...";
　}
　else{$subject_abb = "$subject";}

題名が２６文字以上だとちょん切るようにしたいのですが…上のif構文が
少々まどろっこしいのはif ($cut_even eq "0" || $cut_even eq "2"…)が
現在のＵＮＩＸサーバー（Prohosting）では何故か使えないためなんです
けど、それはともかく、どうすれば上手くいきますかね？

よろしくお願いします。

→  ＭａｃＢＢＳ

よしもと さんからのコメント
( Saturday, February 14, 1998 04:12:33 )

文字コードは何を使っていますか？
もし、SJISでしたらEUCに変えてみてください。
SJISはPerlのエスケープとぶち当たるんで、MacPerlで日本語の
処理を行う場合はEUCで行うのが無難です。

それから、chopよりchompを使うほうが少しだけど安全ですよ。

＃２バイト文字でMacPerlと（コマンドもだけど）書くのだけは
＃やめて欲しいなぁ :-)

• 1998年投稿発言
• アーカイブ Index へ