マルチバイト文字と半角英数字の間のスペースをとる

以下のスクリプトは、全角文字と半角英数文字の間にあるスペースを除去します。たぶん。技術系の人は英数字と全角文字の間にスペースをいれる傾向にありますが、DTPにいれるときはないほうがよいのですね。編集者必携？

use strict;
my $ascii     = "[\x00-\x09\x0b-\x0c\x0e-\x19\x21-\x7f]";
my $non_ascii = "[^\x00-\x7f]";

while (<>) {
    s{((?<=$non_ascii) +($ascii)|($ascii) +(?=$non_ascii))}
      {$2||$3}eg;
    print;
}

Posted by miyagawa at March 30, 2004 07:18 PM | Permalink | Comments (0) | TrackBack(4)