- 315 名前：264 mailto:sage [2009/07/04(土) 13:59:05 ID:???]
- 変数名などはあくまで例程度ですが。
if($form{'trip_in'} == m/[^#]/ ){
&error("#(シャープ)が入力されていません。")
if($form{'trip_in'} == "" || length($form{'trip_in'}) < 2 || length($form{'trip_in'}) > 17){
&error("トリップは1byteから16byteの範囲で入力してください。")
}
//lengthが2〜17になっているのは#が必須なため。
//1-16の場合#だけで書き込み成立。また、文字上限数が15文字
//半角英数字は1byte文字 全角かな カナ 漢字は2byte文字
(省略)
<form action="$write" method="post">
(省略)
<input type=hidden name="trip_in" value="$form{'trip_in'}">
(省略)
どのような動作をしているかに関してはそちらでお願いします。
遣り方はフォームを作る
↓
マッチング処理とエラー返却。
↓
ログ情報への書き込み指定。
何をしているかどうかはPerlの講座サイトを読めば分かります。
また、そっくりそのままスクリプト内に書き込んでも500エラーが返ってくるだけです。
以上コピペ↑↑↑
|
 |
