EUCで処理してないとか．

私もN88-Basic(86)の知識でやってますが、何の処理をしているかサッパリな事が ('ω'；)

Shift-JISのままです(汗)

&jcode'convert(*value, "sjis", "", "z");　を
&jcode'convert(*value, "euc", "", "z");　に
変えたりしたんですけど、それだけじゃダメみたいで（当たり前？

local $str = 'もじ';
jcode'convert(*str, 'euc');
s/\[.*$//;
jcode'convert(*str, 'sjis');

jcode に食わせる変数は my で宣言しちゃうと jcode に食わせることが出来ないので注意．
これ以外だとなんだろー？

Perl は sjis で正規表現使って文字いじりやると化けますので注意です。
詳しくは→ http://www.din.or.jp/~ohzaki/perl.htm#JP_EUC_JP

あと、スレとは脱線してますが
> jcode に食わせる変数は my で宣言しちゃうと jcode に食わせることが出来ないので注意．
my でも食わせられますよぅ。 ハードリファレンスですが。
jcode::convert(\$str, 'euc');

なんかすいません。出来ました。
こんな感じになりました。

$name = &emoji_bundan_check($name);
sub emoji_bundan_check {
local ($str) =$_[0];
jcode'convert(*str, 'euc');
$str =~ s/\[.*$//;
jcode'convert(*str, 'sjis');
$str;
}

＞http://www.din.or.jp/~ohzaki/perl.htm#JP_EUC_JP
ここを読んで3.の所をやってみたんですけど、追っ付かなかったです(^^;

後は文字カウントの仕方を探しに行ってきます〜
（<img src・・・>とか[abcd]とかを一文字と数えたいです）

今さら何なんですが、YY-BOARD携帯対応改とe-PADをくっけてみようなかと思ってます。

>\$str
こんな使い方しらん・・・．(´д｀;)
基本は $ と % と @．(まて
# つかほかの使い方はマジでしりません・・・．
# 参考書買う金無し ○)))... |￣|_

ちょっとぐぐってみたが・・・やはり蒼いラクダ本が必要か・・・？

> こんな感じになりました。
お、できましたかー。てかうむ、綺麗に書きますね(^^;
文字カウントはうーん、一旦別の変数に代入して、正規表現でタグなんかを適当な 1 文字に置き換える…ぐらいかなぁ。とか思ってみたりします。

> 基本は $ と % と @．(まて
むしろ $ だけで頑張って済ます、とか(え

my $hash;
$hash->{hoge} = q|hogehoge|;
$hash->{moge} = q|mogemoge|;

while (my ($a,$b) = each(%$hash)) {
　　print qq|$a: $b\n|;
}

なんてメチャメチャな書き方もできます。
# Perl 本欲しいけど高い…てなワケで結局 1 冊も持ってません(ぉ
# Effective Perl 辺りは欲しいなぁ

恐れ入りますです(^^ゞ

その後・・・
i-modeの絵文字はEUCに変換すると文字化けする事が発覚しました(汗)
ぐぐってたらCGIぽんにたどり着きまして、10進数表記に変換してから事をすればOKでした〜
最後に16進数表記に戻しておきました。

＞文字カウントはうーん、・・・
またまたすいません。
使わせていただきます。