perl(not jperl)で2バイト文字のchopを実現するには？

[上に] [前に] [次に]
AMIGAMAN [E-Mail] [HomePage] 1999/06/15(火) 17:54:43
perlで、日本語を含む文字列から一文字ずつ配列に格納する
ルーチンを作ろうと思っています。スクリプトを
置くサーバにjperlは置かれていません。

対象となる文字列はS-JISで書かれたファイルから一行ずつ
取り出しています。

何かヒントがありましたらご教示ください。
ふじ 1999/06/15(火) 20:01:42
一度EUCに変換すれば、

$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE]{2}';

@_ = ($str =~ /($twoBytes|$threeBytes|.)/osg);
これで出来るかと。

http://www.tohoho-web.com/wwwkanji.htm
AMIGAMAN [E-Mail] [HomePage] 1999/06/15(火) 23:20:33
[[解決]]
望んでいた結果が得られました。ありがとうございます。

実は任意のテキストをテーブルタグを使って縦書きにしたくて
このようなスクリプトが必要だったのです。
[上に] [前に] [次に]