半角カタカナ追放運動

提案 1998/12/13(日) 10:29:08
半角カタカナが入力されると、投稿できない様にする、というのは
ＣＧＩ（の掲示板やチャット）で可能でしょうか？
注意する手間がはぶけると思うのですが。

□□□□□□ 1998/12/13(日) 17:44:20
□□□(文字化け...)□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
□□□□□□□□□□z_sjis(*xx)□□□□□□□□□□□□□□□□□

とほほ 1998/12/13(日) 17:45:26
ありゃりゃ、文字化けしてしまいました。

とほほ 1998/12/13(日) 18:43:33
最近の jcode.pl であれば、半角カナを全角カナに変換する方法が
サポートされています。h2z_sjis(*xx)。

提案 1998/12/13(日) 19:33:18
＞「半角カナを全角カナに変換する」えっえっ何ですかそれは？！
h2z_sjisという関数なのでしょうか？？

B-Cus 1998/12/14(月) 00:00:22
例えばこんなの。
---begin---
require 'jcode.pl';
open(IN,"hankaku-data");
$org_data = $data = scalar(<IN>);
&jcode::h2z_euc(*data);

if ( $org_data ne $data ){
　print "半角かなが含まれています。やりなおし。";
　print "変換前 $org_data\n変換後 $data\n";
}
---end---

　&jcode::h2z_euc(*data);
の代わりに
　&jcode::convert(*data,'euc');
　&jcode::h2z_euc(*data);
とか
　&jcode::convert(*data,'sjis');
　&jcode::h2z_sjis(*data);
や
　&jcode::convert(*data,'jis');
　&jcode::h2z_jis(*data);
などでもいいでしょう。

今回、僕の作ったhankaku-dataがEUCだったので
　&jcode::convert(*data,'euc');
を省けたわけです。

あと「半角カナを見付けると警告を出す」というのは
非常にいいと思います。「半角カナを全角カナに変換して書き込む」
というのでは、教育効果がないので。

それからjcode.plはここにあります。
　ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/

提案 1998/12/14(月) 12:14:04
[[解決]]
おお、ありがとうございます＞B-Cusさん。
さっそく僕の掲示板にも機能追加してみます。

提案 1998/12/14(月) 12:17:04
[[解決]]
おお、ありがとうございます。＞とほほさん、B-Cusさん。
さっそく僕の掲示板にも機能追加してみます。

そもそも、ＯＳが半角カナを使ってる事自体が
おかしいんですよね・・・