ファンレターボックスの設計に関するスレ

6：arakawa77 ◆LAS....VNE：2008/04/27(日) 19:12:30 ID:???: 教えて頂く前に素人考えでここかな？と思っていたところ。

herodb.cgi　（ttp://nicomasfan.sakura.ne.jp/sampletxt/herodb.txt）
の632～642行目にあるこの部分がデータ書き込みと思われるので
ここに別サイトで見つけた点線内のあたりの処理を追加すれば出来る？

# 書き込み
$addrec = &make_rec( $masterpass );
　　　　　　　　　　　　　　　　　　　　　　　　　　# レコード生成
&hero'post_wall( $addrec );　　　　　　　　　# 投稿制限
&jcode'convert(*addrec, "euc", "", "z" );
push @rec, $addrec;　　　　　　　　　　　　　　# 新たに追加
$reccount++;
&write_allrecs( $datafile, $deldatafile );
　　　　　　　　　　　　　　　　　　　　　　　　　　# 全レコード書き込み
$cookvalue = "pwd<>". $in{'PASS'};
&hero'set_cookie( "HERODB", $cookvalue );

－－－－－－－－－－－－－－－－－－－－－－－－
参考サイト様の一部抜粋
ttp://us.geocities.com/diddle2do/faq2.html#z_h

Ｑ：全角英数を自動的に半角に変換する方法は？
Ａ：以下のサブルーチンに文字列を通してください。EUCだと簡単このまま。
SJISはこのままだとA-Zと0－9の変換であちこち妙な置き換えをしますので、
この個所はs///とかでちくちく直す必要があります。 _ とかもヘンに化けます。

sub change {
　　$value = @_;
　　&jcode'tr(*value, "！”＃＄％＆’（）＊＋，－．／","!"#$%&'()*+,-./");
　　&jcode'tr(*value, "：；＜＝＞？＠",":;<=>?@");
　　&jcode'tr(*value, "［￥］＾＿｀","[\\]^_`" );
　　&jcode'tr(*value, "｛｜｝～","{|}~" );
　　&jcode'tr(*value, "０-９","0-9" );
　　&jcode'tr(*value, "Ａ-Ｚ","A-Z" );
　　&jcode'tr(*value, "ａ-ｚ","a-z" );
　　return $value;
}

　※変換したくない文字は適当に抜いてください。
－－－－－－－－－－－－－－－－－－－－－－－－

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）