ＣＧＩだけど、なんか質問ある？Part 5

**名無しさん＠お腹いっぱい。** · 01/12/26 10:51

■過去ログ
　Part 3 http://pc.2ch.net/test/read.cgi/php/988727833/l50
　Part 4 http://pc.2ch.net/test/read.cgi/php/1000804655/l50

その他参考になるスレッドを >>2 に纏めたので、十分に調べた上で質問して下さい。

**名無しさん＠お腹いっぱい。** · 02/02/25 13:27

この場所に相応しい内容か分かりませんが、質問します。
あるホームページから、フォームアクションでCGIを起動し、
その結果を、別の新しい窓に表示するようにするには、
何をどうすれば良いですか。

**名無しさん＠お腹いっぱい。** · 02/02/25 13:34

<form method=post action=nanntara.cgi target=_blank>

で逝けなかったっけ？

**名無しさん＠お腹いっぱい。** · 02/02/25 14:35

>831
ご指導、ありがとうございました。
target=_blankを加えてやってみます。

**なんか教えて** · 02/02/25 15:10

ホームページの中に投票ランキングつくりたいんだけど
どうすればいいの？

**名無しさん＠お腹いっぱい。** · 02/02/25 15:55

>833
メールで投票してもらって自分で開票しランキングＨＴＭＬを組む。

**名無しさん＠お腹いっぱい。** · 02/02/25 17:59

関連サイトをめぐりつつこっちでも質問です・・・。
今画像検索サイトを作ろうと検索エンジンを改造しているところ
なのですが・・・（ちなみに初めてCGI触りました）。

あるHTMLタグの塊を、検索で引っかかった数だけ出力するのが
検索エンジンですよね。
その出力するHTMLをこんな風にします。
print "<form method=\"post\" action=\"file.cgi\"><table>\n;"＃ここは検索出力の前。ヘッダ
print "<<EOF;
<tr><td><img src="$path"></td>#$pathというのは、このサーチエンジン
　　　　　　　　　　　　　　　　#に使用しているデータファイルの中身で
　　　　　　　　　　　　　　　　#画像ファイルのパスが入ります
<td><input type="text" size="60" name="com$no"></td>
</tr>
EOF
#<中略>
print "</table>\n</form>\n</body></html>＃ここはフッタです。検索処理のあと。

検索で引っかかった画像にメッセージをつけて登録するようにしたいので、
検索で出力するHTMLに[input type・・・・」というのを書いています。
そのnameに変数$noをつけて、検索にヒットした数を1から順にふればよいのだ、
と思ったのですが、その$noをどう定義すればよいかその書き方がわからないの
です。
どう書けばよいでしょうか？
$no =　？

**名無しさん＠お腹いっぱい。** · 02/02/25 18:01

＞あるHTMLタグの塊を、検索で引っかかった数だけ出力するのが
検索エンジンですよね。

へぇ。

**名無しさん＠お腹いっぱい。** · 02/02/25 18:02

print "<<EOF;
　　　↑
ヒアドキュメント変じゃないか？

**835** · 02/02/25 18:02

よ・・・読みにく・・・！！

**名無しさん＠お腹いっぱい。** · 02/02/25 18:02

まずは落ち着いて冷静になってから説明をやり直せ。

**835** · 02/02/25 18:02

>837
しまった（汗）
ミスりました

**名無しさん＠お腹いっぱい。** · 02/02/25 18:03

何がしたいのかわからない。
そもそもHTMLを理解しているのか。

**名無しさん＠お腹いっぱい。** · 02/02/25 19:58

先生！たとえば、
if ($hoge eq 'A') { print "Aです"; }
ってあったとしまして、
$hogeが'B'であったときも"Aです"ってprintしたいのですが、
どのように条件に書き加えたらよいのでしょうか。。。？

**名無しさん＠お腹いっぱい。** · 02/02/25 20:08

>842
第１段階
if ($hoge eq 'A') { print "Aです"; }
if ($hoge eq 'B') { print "Aです"; }

第２段階
if ($hoge eq 'A') { print "Aです"; }
elsif ($hoge eq 'B') { print "Aです"; }

第３段階
if ($hoge eq 'A' || $hode eq 'B') { print "Aです"; }

**843** · 02/02/25 20:08

タイプミスすまん。

**842** · 02/02/25 23:02

>>843
先生！ありがとうございました。
第２段階でずっとやっていて、肥大化しまくりだったのが
第３段階でダイエットできそうです。

**名無しさん＠お腹いっぱい。** · 02/02/25 23:53

投票のスクリプトなんですが、
name=hoge
name=hoge2
のような感じで、
投票ボタンを押すと１ポイント加算されて
サブルーチンでその投票率を割り出して表示するには
どうすればいいのでしょう？

スクリプトに組み込めるようにしたいのですが。

**名無しさん＠お腹いっぱい。** · 02/02/25 23:54

>>846
投票率？

票／全体の票の合計＊１００；

**名無しさん＠お腹いっぱい。** · 02/02/26 00:05

>847
それは得票率。
投票率は、投票者／有権者

**名無しさん＠お腹いっぱい。** · 02/02/26 00:09

>>848
>846が投票率を聞いていると思うか？

**名無しさん＠お腹いっぱい。** · 02/02/26 00:11

>>848
勉強になった。

**名無しさん＠お腹いっぱい。** · 02/02/26 00:13

>848-849
どっちも言ってる事は正しいな。
一番間違えているのは>846か？
もう少しわかりやすい表現をしてほしいな。
漠然としすぎ。

**名無しさん＠お腹いっぱい。** · 02/02/26 00:20

>851
しかもマルチポスト臭い。
前にもどこかで同じ質問見て、回答した。
同じ間違いをしていた＞得票率と投票率

はげ · 02/02/26 01:11

北島ｻﾌﾞﾙｰﾁﾝ

**Name_Not_Found** · 02/02/26 02:41

怪僧ｻﾌﾞﾙｰﾁﾝ

**846** · 02/02/26 02:51

>>851
えーと、846です。質問の仕方が悪くてすみません。
ですが、私が悪いことにしないでください。
あと、マルチポストはしませんよ。あのやり方嫌いですから。。。

いろいろとすみません。
その得票率というのを割り出して表示するにはどうしたらよいのでしょうか？

**名無しさん＠お腹いっぱい。** · 02/02/26 02:55

>855
>847の計算式に変数を当てはめて、答えをprintする。
それだけだろ。
得票数や全体の票の合計の数え方から教えないといけないのか？

**846** · 02/02/26 02:58

できれば。。。
厨房ですみません。嫌わないでください。

**名無しさん＠お腹いっぱい。** · 02/02/26 03:05

>857
厨房だと自覚してるなら直せ。
わからないなら自分で勉強しろ。
他人のおんぶでだっこか？
俺はお前が嫌いだ。

まず今、自分でなにができて何ができないんだ。
足し算わかるか？
割り算わかるか？
ＣＧＩの設置できるスペースは持ってるのか？
ＨＴＭＬはわかるのか？
無料配布ＣＧＩの設置くらいできるのか？
スクリプトの改造の経験はあるのか？
スクリプトを自分で組めるのか？
ファイル操作するスクリプトを自分で組めるのか？

お前の話し方を聞いてると、そのスクリプトをここの住人に書かせたいように見えるな。
もしそのつもりなら、無料配布スクリプトを探した方がいいぞ。
ここの住人はそこまで暇でも親切でもない。
自分でできることを自分でやろうとしない奴には誰も親切にはしてくれない。
自分でできることを探せ、考えろ。

**846** · 02/02/26 03:13

>858
お答えします。
自鯖にWinでアパッチ入れて
今、CGIを改造しています。

CGIを設置できるスペースはあります。
改造経験は掲示板にフォントカラーの選択機能を取り付けれるくらいです。

ファイル操作はログファイルの読み込みぐらいならできます。
スクリプトを組むスキルまではまだないです。
せいぜい改造ぐらいです。

ほげ · 02/02/26 03:22

自鯖って自分で釣って来た鯖のこと？

**名無しさん＠お腹いっぱい。** · 02/02/26 03:24

>860
その鯖にstdoutするらしいけど、腐りやすいからなぁ。鯖は。

**846** · 02/02/26 03:24

すいません。自宅サーバーです。。。

**名無しさん＠お腹いっぱい。** · 02/02/26 03:29

>859
ログファイルの読み込みができるなら、そこから得票数と総数をカウントしろ。
変数の作り方がわかるなら、「総数用の変数」「hogeの得票数」「hoge2の得票数」「hoge3の得票数」・・・と変数を作れ。
あとはログを読み出しながら、hogeの得票ならhogeに＋１、hoge2の得票ならhoge2に＋１としていけば得票数は数えられるだろ？
得票総数は「どの得票であっても総数＋１」すればいいだけだ。
その集計が終わったら、>847の式に当てはめて計算しろ。
計算が終わったらそれを表示させろ。

加算除算の仕方は↓を見ろ。
http://tohoho.wakusei.ne.jp/wwwperl1.htm#CalcOperand

他にもわからない事があったらここで調べてみろ。
http://tohoho.wakusei.ne.jp/
一通り見ておいて損はないページだ。

**名無しさん＠お腹いっぱい。** · 02/02/26 03:30

＞自鯖にWinでアパッチ入れて
まずこれが間違ってる。
自鯖にMacでアパッチ入れなきゃ。
自鯖＝Unixで、TELNETで入れたのかな？アパッチを。
もう眠くて日本語よくわからないや？

**名無しさん＠お腹いっぱい。** · 02/02/26 03:30

それと。
自分でよく意味のわからない単語は知ったかぶって使うな。
知ってる人間を混乱させるだけだ。
サーバーとクライアントの違いくらい勉強しろ。

**846** · 02/02/26 03:33

ご迷惑をお掛けしました。
しばらく勉強をして来ます。

**864** · 02/02/26 03:34

>865
つっこみあんがと。ダウンなので寝るです

**846** · 02/02/26 04:02

全体の項目の中の$hoge1の数はどうやって出せばいいのでしょうか？

**846** · 02/02/26 04:03

書き忘れました。
$hoge1=ﾊﾞﾅﾅ
だとして
バナナの数を求める場合です。

**名無しさん＠お腹いっぱい。** · 02/02/26 04:20

項目数が不定の場合はハッシュ（連想配列）に入れればよい。
while (<FILE>) {
chomp ;
$count ++ ;
$hoge{$_}++ ;
}
foreach(keys %hoge ){
print "項目 : $_ 回数 : $hoge{'$_'}\n" ;
}
print "$hoge\n" ;
ファイルオープンクローズは省略してます。

**870** · 02/02/26 04:59

ああ、間違えた。最後のprintは$countだ。。
というか・・846さんの問いとちょっとずれた回答だなあ・・・
忠実に答えるなら、
while(<FILE>){
chomp ;
$count ++ ;
if ( $_ eq 'バナナ' ) { $hoge1++ ;}
if ( $_ eq 'りんご' ) { $hoge2++ ;}
}
print "バナナ $hoge1個りんご $hoge2個　全部で$count個\n" ;

こんな感じでしょうか。

**846** · 02/02/26 05:24

870さん
ありがとうございました(泣
おかげで完成しました。

すごく感謝しています。
ほんとにありがとうございます。

**名無しさん＠お腹いっぱい。** · 02/02/26 17:43

教えてください。
あるcgiファイル（Cで作ったバイナリファイル、変更不可）にperlでフィルタを
かけてperlの中からキックしてやる処理を行おうとしています。

open(*i, *o, "aaa.cgi", $param)
で起動かけてるんですが、この渡し方だとgetメソッドでわたるみたいなのです。
どうやらこのcgi、postメソッドで引数を取得しているらしいのですが、postメ
ソッドへの値の渡し方がよくわかりません。受け取り方ならどこにでも乗ってる
んですけど。

知ってる方、教えてください。お願いします。

**873** · 02/02/26 17:44

失礼しました。
open->open2の間違いです。

**名無しさん＠お腹いっぱい。** · 02/02/26 22:58

何のためにopen2使ってるのかを調べなおせ。

**名無しさん＠お腹いっぱい。** · 02/02/26 23:07

掲示板の文字コードをShift_JISからUTF-8に変換したいんですが、

decodeサブルーチン内
→ 現状 : &jcode'convert(*value, "sjis");
→ 変更 : &jcode'convert(*value, "utf8");

headerサブルーチン内
→ 現状 : <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
→ 変更 : <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">

でいいのでしょうか？
ちなみに文字コードの変換はエディタで終わってます。

**名無しさん＠お腹いっぱい。** · 02/02/26 23:09

>>876
そらそうだ。

**名無しさん＠お腹いっぱい。** · 02/02/26 23:28

jcode.plはUNICODEをサポートしていない。

**名無しさん＠お腹いっぱい。** · 02/02/27 00:02

>>878
ゲッ、ではどうすればいいんでしょうか？

**名無しさん＠お腹いっぱい。** · 02/02/27 00:11

>>995
激しく同意

**名無しさん＠お腹いっぱい。** · 02/02/27 00:27

>>879
Jcode.pmを使う。

use Jcode;
my $utf8 = jcode(\$value)->utf8;

あと、perl4でなければ、jcode.pl使う時にその書き方はヤメレ
jcode::convert(\$value, 'sjis');

**名無しさん＠お腹いっぱい。** · 02/02/27 00:31

Perl勉強するのに、いい本を教えれ。高いのかなぁ・・
やっぱ参考書買ったほうがいいですよね？みなさんどうやって覚えたの？
掲示板とか作ってみたいのですが。

**882** · 02/02/27 01:02

スレ見つけました（;´Д｀）
すいましぇん・・。

**名無しさん＠お腹いっぱい。** · 02/02/27 09:44

$A = 1 / 3
を0.3333333･･･ではなく、桁数を制限して0.33にするのはどうすれば良いのでしょうか？

**名無しさん＠お腹いっぱい。** · 02/02/27 09:46

>>884
sprintf("%.2f",$A);

**884** · 02/02/27 10:23

>>885
有り難う御座います！

**873** · 02/02/27 11:09

>>875

引数を標準入力へ渡すのは出来てるのです。
teeコマンドで、確認しましたので。

perlモジュールからcgiをキックするとき、メソッドを環境変数に
設定してあげればいいのかなぁ・・・・。

**884** · 02/02/27 13:55

たびたびすいません。
リスト表示させる構文の中で

use integer;
$A = $B / $C;

を記述すると最初の情報しか表示されなくなります・・・
何が問題なのでしょうか？

**名無しさん＠お腹いっぱい。** · 02/02/27 13:58

>>888
？

**名無しさん＠お腹いっぱい。** · 02/02/27 14:02

>>888
use integer;
の意味わかってる？

**884** · 02/02/27 14:20

素人なので・・・
手元のレファレンスブックをパラパラと参照しているのです。
ちなみに、use integer; をとっても最初の情報しか表示されないので、
状況は変わらないです・・・。

**名無しさん＠お腹いっぱい。** · 02/02/27 14:35

>>891
＞最初の情報しか

？？

**名無しさん＠お腹いっぱい。** · 02/02/27 15:07

少し脳みそを貸して下さい。
返信できる掲示板を改造し、親記事への返信に対してradioboxで5段階の採点
ができるようにしました。が、たまに採点がおかしくなります。

1ページに表示されている全ての返信記事に一気に採点できるようにしました。
$noは親記事のNo. $res_noは返信記事のNo.です。
簡単に書きます。
-------■フォーム部分■---------
[最高:<INPUT TYPE=RADIO NAME=\"($no)-$res_no\" value=5>]
[良い:<INPUT TYPE=RADIO NAME=\"($no)-$res_no\" value=4>]
のようなものをあと3つ
-------■フォーム部分■---------

**名無しさん＠お腹いっぱい。** · 02/02/27 15:07

ログの形式:<>で区切ってます。
$x1が親記事の番号で$x2が返信記事の番号です。
行の最後に採点のためのデータを6つ追加しました。
$xjが合計点で、$xe～$xiまでが各採点の数。

-------■ログの形式■---------
130<>1<>名前<>タイトル<><><>親記事のコメント<>#ff6633<><><>02/02/26(Tue)02:29<>0.XuCN0FGrIKQ<>1014702931<>0<>0<>0<>0<>0<>0<>
(130)<>1<>名前<>タイトル<><><>親記事への返信のコメント<>#ff6633<><><>02/02/26(Tue)02:29<>0.XuCN0FGrIKQ<>1014702931<>0<>0<>0<>0<>0<>0<>
-------■ログの形式■---------

**名無しさん＠お腹いっぱい。** · 02/02/27 15:08

-------■受け取り側■---------
ログから全記事を@all_linesに読み込む。
while (($key, $value) = each %in){
if( $key =~ /^%28\d+%29-\d/ ){
$key =~ s/^%28(\d+)%29-(\d+)/$1,$2/ ;
foreach (@all_lines) {
if( /^$$1$<>$2/ ){
my($x1,$x2,$x3,$x4,$x5,$x6,$x7,$x8,$x9,$xa,$xb,$xc,$xd,$xe,$xf,$xg,$xh,$xi,$xj)=split(/<->/);
if($value == 5){ $xe = $xe+1 ;}
elsif($value == 4){ $xf = $xf + 1;}
elsif($value == 3){ $xg = $xg +1;}
elsif($value == 2){ $xh = $xh +1;}
elsif($value == 1){ $xi = $xi +1;}
else{ エラー処理;}
$xj = ($xe * 5) + ($xf * 4) + ($xg * 3) + ($xh * 2) + ($xi * 1);
push(@new, "$x1<>$x2<>$x3<>$x4<>$x5<>$x6<>$x7<>$x8<>$x9<>$xa<>$xb<>$xc<>$xd<>$xe<>$xf<>$xg<>$xh<>$xi<>$xj<>\n");
}else { push(@new, $_ );}
}
$#all_lines = -1 ; #これは必要？
@all_lines = @new ;
$#new = -1 ;
}
}

@all_linesをファイルに書き込む。
-------■受け取り側■---------

**名無しさん＠お腹いっぱい。** · 02/02/27 15:08

受け取り側がすごく間抜けなコーディングですが、
もっとスマートな方法はないものでしょうか？
さらにバグがあるようです。たまに採点した以上に採点の数が増えます。

**名無しさん＠お腹いっぱい。** · 02/02/27 15:09

スクリプト改造工房 Part4
http://pc.2ch.net/test/read.cgi/php/1012839651/l50

**名無しさん＠お腹いっぱい。** · 02/02/27 15:14

>>897
すみません。書き直します。

**名無しさん＠お腹いっぱい。** · 02/02/27 16:08

perlでランキングするにはどうすればいいですか?

連続でなく(1,2,3,4,5....)
同点場合は同じ順位になるやつです。(1,2,2,2,5,6,7)

**名無しさん＠お腹いっぱい。** · 02/02/27 16:11

>>899
同一順位の奴リストで記憶して一気書き。

**名無しさん＠お腹いっぱい。** · 02/02/27 17:02

先生！以下の文章を短縮する手だてはないものでしょうか。
if ($hoge eq '001_001' || $hode eq '001_002' || $hode eq '001_003'、、、、|| $hode eq '001_050') { print "001グループです。。。"; }

10進法で
$hogeが'001_001'、'001_002'、～(中略)～、'001_050'の時に、"001グループです。。。"をprintしたいのですが。。。
テキストエディタの左右のスクロールバーが大変です！(;´Д`)

**名無しさん＠お腹いっぱい。** · 02/02/27 17:05

if ($hoge =~ /^001_0\d\d$/) { print "001グループです。。。"; }
00や51～99も入っちゃうけどな。
それを除外する方法は自分で調べて。

**名無しさん＠お腹いっぱい。** · 02/02/27 17:25

>>901
$hoge =~ /0(\d\d)_0(\d\d)/;
print "グループ１" if ($1 == 0 and $2 >=1 $2 <= 50 );

動作確認してないけど。

**名無しさん＠お腹いっぱい。** · 02/02/27 17:29

>903
$1 == 1
にしておかないと、グループ０になりますぜ？

**901** · 02/02/27 19:21

先生方！レスありがとうございます。
902さんの
if ($hoge =~ /^001_0\d\d$/) { print "001グループです。。。"; }
これで一応問題がないかのように(;´Д`)動作しておりますが、このまま使い続けちゃマズイですか？
もちろん51～99なんて存在しないです。。。

903さんの文章は今のおいらじゃ理解できないみたいです。。
もうちょっと経験値をためてレヴェルうｐしてから、改めて読み直すことにします

**名無しさん＠お腹いっぱい。** · 02/02/27 19:56

>>901
っつーか、根本的にもっと綺麗にデータ処理をしようと思わないのだろうか。

**名無しさん＠お腹いっぱい。** · 02/02/27 20:42

ロックファイルの処理がうまくいっているか試す方法ってあります?
自分で同時に書き込むってできないし。
#ローカルサーバ立ち上げてます。

**名無しさん＠お腹いっぱい。** · 02/02/27 20:47

>>907
漏れの場合、ロックしたままランダムな時間 sleep() 。
でも、もっとうまい方法があるような気が。

**名無しさん＠お腹いっぱい。** · 02/02/27 21:33

>>907

１．ロック解除ルーチンをコメントアウトして実行。
ロックがかかっているか確認。

２．そのプログラムをもう一度実行。
六句により書き込めないことを確認。

３．コメントアウトした部分とロックを元に戻し実行。
書き込めればロックは作動している。

サーバ立てるのはいいがＯＳ位書いてほしかった。

**名無しさん＠お腹いっぱい。** · 02/02/27 22:02

>>907
ありがとうございます。
サーバはLinuxです。

**名無しさん＠お腹いっぱい。** · 02/02/27 22:34

Perl で、一旦、
Helloを表示して、3秒くらいの処理行ったあとその出力を表示する
のってどうやるんですかね？(ブラウザでアクセス)
前に
print "Content-type:text/html\n\n";
print "hello";
sleep(3);
print "hoge";

でやったらいかなかったので調べてみたらモジュール使うって見たんだけど、
最近やろうと思ってしらべたら前のResultをブックマークし忘れたので
どなたかおしえてくりんぴ

**名無しさん＠お腹いっぱい。** · 02/02/27 22:36

$xxx = now;

//wait 3 sec
while(now < $xxx + 3);

**名無しさん＠お腹いっぱい。** · 02/02/27 22:44

>912
Really?

**名無しさん＠お腹いっぱい。** · 02/02/27 23:15

バッファリングしなければいいのでは

**あさみ** · 02/02/27 23:57

大量のファイル（ディレクトリにまとめて入ってる）から
それぞれ同じ行をとりだして、
並べて表示させるにはどうしたらいいですか？

たとえば000.txt から　999.txtっていうのがひとつのディレクトリに
あって、ぜんぶのテキストから55行目だけをとりだしてそれを並べて
表示させたいのですけど。達人さんおねがいします。

**名無しさん＠お腹いっぱい。** · 02/02/27 23:59

>>915
スタブ

後は、

open(DATA,"a.txt");

@dat = <DATA>;

print $dat[54];

**あさみ** · 02/02/28 00:03

>>916
スタブって？？？？

それだとひとつのファイルからしかとりだせないじゃないですか。
ぜんぶのファイルを一度に操作しようとおもって
open(DATA,"dir/*.txt");
と打ってみたけどそこから先どうしていいかわからなくなってしまったんです。

**名無しさん＠お腹いっぱい。** · 02/02/28 00:07

>>917
スタブじゃないグロブだ。それにすべての答えがある。さぁ、検索。

**あさみ** · 02/02/28 00:39

>>918
だめです。わかんない。
型グロブってまだやってないのだ。。。。

**名無しさん＠お腹いっぱい。** · 02/02/28 00:39

>>919
型グロブじゃないよ。

**あさみ** · 02/02/28 01:05

>>920
わかんないよ。。。

@files = glob("*.txt");

foreach $file(@files){
open(DATE,"$file");
@dat = <DATE>;
print $dat [54];
}

これでもエラーでるよ。。。

**あさみ** · 02/02/28 01:28

わあああああああああ、できたよ！！！！！！！
ありがとしゃんしゃん！！！！>>920
ちなみにこれでできたよ！↓↓↓

@files = glob("*"); #全てのファイル名が返される

foreach $file (@files){
open (IN,"$file");
@dat = <IN>;
print "$dat[76]<br>";
close IN;
}

ふぅううううう。

**名無しさん＠お腹いっぱい。** · 02/02/28 11:48

自動生成されるアンケートのページ（NAME=は数字だがバラバラ）で、
全てのradioboxがチェックされているかを調べるにはどうしたら
いいでしょうか？

**名無しさん＠お腹いっぱい。** · 02/02/28 11:53

foreach(数字..数字){
if(!$FORM{"$_"}){print qq(入力漏れあり);}
}

**名無しさん＠お腹いっぱい。** · 02/02/28 20:22

>>924
お返事ありがとうございます。なるほどーですねー。

連続してない数字だったので、ちょっと応用します。
ちなみにNameが文字列だった場合は、はやりその文字列を
hiddenか何かで受け渡すしかないんですかねぇ、やっぱ。

**名無しさん＠お腹いっぱい。** · 02/02/28 20:32

>925
foreach(keys %FORM){
if(!$FORM{"$_"}){print qq(入力漏れあり);}
}

こういう方法もあるにはあるけど、他の入力まで処理するのが難点。
余計なフォームがないならこれでもいける。

hiddenで渡すなら、受け取るＮａｍｅ文字列をリスト配列にでもして作っておいた方がいいと思うぞ。
受け取るものが決まってるなら。

**名無しさん＠お腹いっぱい。** · 02/02/28 21:24

ちょっと質問させてください。

www.hogehoge.com/foo?id=bar

というように拡張子をつけない CGI などのスクリプトをたまに見かけますが，
これはどういうメリットがあるのでしょうか。
また，このように拡張子をつけないで実行するには
.htaccess でこのファイル名だけ CGI として扱うようにすればいいんでしょうか。

**名無しさん＠お腹いっぱい。** · 02/02/28 22:07

>>926
あー、賢いなー。なるほどー。
if(!$FORM("mode") とかかませばOKそうです。
ありがとうございました。

**名無しさん＠お腹いっぱい。** · 02/02/28 22:22

>>927
メリットはCGIを作った人に聞いてくれ。
とりあえず思いつくのは、リンクを張るときに4バイト稼げるとか、
作った人にとって.cgiって付くURLがかっこ悪いとかかな。
あとは、www.hogehoge.com/foo?id=bar の実体は実は
www.hogehoge.com/foo/index.cgi?id=bar だったとか言うこともあり得るし。

.htaccessについてはまぁ、知らん。
偉い人スレで聞けば？

**名無しさん＠お腹いっぱい。** · 02/02/28 22:54

実行可能ファイルを拡張子で識別するべきじゃない、とかなんとかあった気がしなくも無い。