2005-11-18から1日間の記事一覧
前回Perlのバージョンが5.6だったため 動かなかった部分を $cutting =~ s/(\p{Hiragana}|\p{Katakana})(\p{Han}|[A-Za-z0-9_])/$1,$2/g; $cutting =~ s/(\p{Hiragana})(\p{Katakana})/$1,$2/g;を修正して$cutting = jcode($cutting)->euc; $cutting =~ s/*1*…
前回Perlのバージョンが5.6だったため 動かなかった部分を $cutting =~ s/(\p{Hiragana}|\p{Katakana})(\p{Han}|[A-Za-z0-9_])/$1,$2/g; $cutting =~ s/(\p{Hiragana})(\p{Katakana})/$1,$2/g;を修正して$cutting = jcode($cutting)->euc; $cutting =~ s/*1*…