htmlから値を飛ばすとき？

質問

現在、あるページをcgiで作成しているのですが、
そのcgiの中のリンクをクリックすると、
そのcgiファイル自身に値が飛ばされてそのcgiのほかの部分を表示する、
みたいなプログラムを作りたいのですが、どうすればよいでしょうか？

つまり、ずっとあるひとつのcgiの中にいるようにしたいのですが、どなたかアドバイスくださいーっ＞＜；

回答No.6

noname#205944 · ベストアンサー

ロジックに問題があると思いますよ
・最初のif文で、HTTP_X_UP_SUBNOの重複を調べ
・次のelsif文で、同一ユーザ名がないか調べ
・更に次のelsif文で、それ以外は書き込む
しかしここでは　１回目のループで書き込まれてしまう可能性がありますよね
ほかのデータは一度も見ずにです
なので、
$flag変数を用意して、重複があったら真にするようにしてループを最後まで回してやります
そこで、いったんループを終え
$flagが偽であれば、書き込みをするというロジックにしたほうがいいのでは

メールしておきました

お礼

なるほど＠＠；自分ぜんぜんだめですね＞＜；

edamsさんの通りためしてみますね！！♪

ありがとうございました！！！

回答No.5

noname#205944

ここで調子に乗って、URLなんか書くと大変なことになりそうなのでやめときます

差し支えない程度に・・

脱サラした、ただのプログラマですよ
Perlはバージョン3から始めました
けっこうPerlは好きなので、これだけでいけるのならいいんですが世の中そんなに甘くないらしく
他の言語の方が使用率は多いですね

お礼

ってことは現在どこか（独立！？）でプログラマーやってる方なんですね！！すごい・・・っす＞＜；

あの、もしよかったら、僕の先生になってください（真剣）；；

自分は都内大学に通ってる者ですー＞＜；

回答No.4

noname#205944

たぶん、ヒア文の閉めの部分が浮いている(インデント)ことが原因ではないかと
始まりがインデントなしなので(<<以降)、終わりもインデントなしでないとエラーになりますよ

それと、closeですがもしどっちもelseな場合closeは実行されませんよね
まとめて一番最後に持ってきた方がいいかと
実はcloseやロック解除はなくても問題ないんですけど、一応基礎なので忠実にということで

エラー取りには、「use strict」を使うとわかりやすくなりますよ
ただ、しっかりと変数宣言しないとなりませんが・・

ついでなので、プログラマの美徳のひとつ「タイプ量を減らす」ってあります
下にありますので参考に

open USR, "data/usr.csv" or die "アクセスが集中しています。";
while (<USR>){
chomp;
($rhn, $rpsw, $rnum) = split(/,/);
if($rnum =~ /$ENV{'HTTP_X_UP_SUBNO'}/){
print "すでに登録";
last;
}
elsif($rhn == $hn){

print <<END;

入力された$hnはすでに使用されています。<br>
<form action="./" method="POST">

<font color="$color1">■</font>ハンドルネーム<br>
<input type="text" style="1" maxlength="15" size="15" name="hn"><br><br>

<font color="$color1">■</font>パスワード<br>
<input type="password" style="4" maxlength="4" size="4" name="hn"><br><br>

<input type="hidden" name="mode" value="reg_rem2">

<center>
<input type="submit" value="登録">
</center>

END

last;

}
}
close USR;

お礼

おおおお！！！！！
インデントなくしたらできるようになりました！！！
edamsさんほんとすごいです；；感動＞＜；

edamsさんは「経験者」とのことですが、
どういった方なのでしょうか？

差し支えなければ教えていただければ光栄ですーっ＞＜；

回答No.3

noname#205944

#2です
ルーチンが多いと負荷が増えると思いがちですが、何度も使うものだと逆に減る場合もあるようですね

私も最初のうちはそれが気になって、ページごとに使うサブルーチンを違うファイルに分けて、必要なときだけ呼び出していたりしたものです
結局この方法ではかなり大きなプログラム以外では、さほど変わらなかったので
今は、あらかじめ作れるページはデータ変更の際、CGIでHTMLファイルとして書き出す方法をとっています
これは、データの変更よりも閲覧の方が多い場合に有効です

Perl的に言うと、
正規表現 例えば$1を使った置き換えは負荷が増しますのでループ内では使わないとか(ただし一度でも使うと、後何回使っても同じ)
できるだけ些細なことでは、モジュールを使わない(最近ではオブジェクト指向のものが増えているので負荷が増える)
ファイルIOを減らす
大きなファイルを読み込むときは、いきなり配列に入れないでWhileループで処理
大きなハッシュは、forループではなくwhile+eachで回す
等と言う事に私は気を使ってます

もし、Apacheを使っているのならmod_perlを使うと言う手もありますよ

参考URL：

http://www.din.or.jp/~bigstone/cgilab/cgitips/mod_perl.html

お礼

edamsさんたびたびありがとうございます！

やはり経験者の方に教えていただけることは、あまり本にも載ってないのでほんと参考になります！！！

あの、もしよければ今エラーが出ててどこがエラーかわからないものがあるのですが、見てもらえないでしょうか？

あるサブルーチンなんですが、
open(USR, "<data/usr.csv") or die("アクセスが集中しています。");
while ($check = <USR>){
chomp $check;
($rhn, $rpsw, $rnum) = split(/,/, $check);
if($rnum =~ /$ENV{'HTTP_X_UP_SUBNO'}/){
close(USR);
print "すでに登録";
last;
}elsif($rhn == $hn){
close(USR);

print <<END;

入力された$hnはすでに使用されています。<br>
<form action="/" method="POST">

<font color="$color1">■</font>ハンドルネーム<br>
<input type="text" istyle="1" maxlength="15" size="15" name="hn"><br><br>

<font color="$color1">■</font>パスワード<br>
<input type="password" istyle="4" maxlength="4" size="4" name="hn"><br><br>

<input type="hidden" name="mode" value="reg_rem2">

<center>
<input type="submit" value="登録">
</center>

END

last;

}
}

みたいに書いたのですが、なぜかMissing right bracketがでてしまうんです；；
汚いスクリプトですが、もしよかったらみてくださいーっ＞＜；

回答No.2

noname#205944

#1さんの例もありですが、関数名を知られると思わぬ危険がある場合もあるので
引数(渡す値)と関数名(sub ..)は別にした方が無難かと思いますよ

# 呼び出し方
# foo.cgi?que=ここに引数

use CGI qw(:standard);

# input_safeは自作で引数のチェックとか、文字コードの変換などに用意しておく
$que = input_safe( param('que') ) if param('que');

# このハッシュの中にあるものだけを実行
%routine = (
input => \&input_routine, #inputが引数名でinput_routineが関数名(どんな名前でもOK)
save => \&save_routine,
edit => \&edit_routine,
);

# 値に何もないと sub main を実行するメインルーチン
$routine{$que} ? $routine{$que}->() : &main;
exit;

sub main {

}
sub input_routine {

}

お礼

なるほど！！！確かに変数名はわからないほうがいいですよね！edamsさんbuffalomasaさんありがとうございましたーっ♪

あ、あとちょっと聞きたいのですが、
現在中型のサイトをcgiで構築しているのですが、
ルーチンを作りまくって呼び出しているのですが、
この方法はサーバへの負荷はどうなのでしょうか？
同時接続人数が増えることによってやはり障害はあるのでしょうか？

また、もし構築する上での効率のいい方法やこういった風に構築するとサーバ負荷も減るなど、いい方法など教えてもらえないでしょうか＞＜；初心者なので、どういった構造にすればいいのかよくわかりません。。。

どうぞよろしくお願いしますっ！！！

回答No.1

buffalomasa

わたしがよくやるのはCGI内に関数テーブルを持たせてそれをモードによって実行させるものを分けます。

# 関数テーブル
$func{'abc'} = \&abc;
$func{'def'} = \&def;

use CGI qw(:standard);

$mode = param('mode');
$func{$mode}->();

リンクを張りたい所を
<a href="foo.cgi?mode=abc">abc</a>
これをクリックすれば関数abcを実行します。

同じように
<a href="foo.cgi?mode=def">abc</a>
をクリックすれば関数defを実行します。

こうすればfoo.cgi内に様々な処理に応じた関数を置くことができます。