全角カタカナを半角カタカナへ.php

来自「Mac OS X 平台一文本编辑器的源代码」· PHP 代码 · 共 16 行

#! /usr/bin/php -q
<?php
# %%%{CotEditorXInput=Selection}%%%
# %%%{CotEditorXOutput=ReplaceSelection}%%%

do {
    $tmp = fread(STDIN, 8192);
    if (strlen($tmp) == 0) {
        break;
    }
    $INPUT .= $tmp;
} while(true);

$OUTPUT = mb_convert_kana($INPUT, "k", "UTF-8");
fwrite(STDOUT, $OUTPUT);
?>