5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

ジャンプメニューを

1 :si:2000/03/10(金) 19:07
ぜひperl/CGIで処理したいのですが。
拾ったスクリプトはどれもイマイチ。
是非ご指導願いたいのですが。
条件はperl5 cgi-lib.pl使用 METHOD=GETのみ
で<FORM><SELECT><OPTION>プルダウンメニューのVALUEにURL
を指定し、その URLにJUMP。JAVASCRIPT禁止です。
できた人は飲み放題にご招待いたします。

<HTML例>
<FORM>
<INPUT NAME="ナントカ" VALUE="http://www.xxx.co.jp/なんたらかんたら
"><OPTION NAME="xxx" VALUE="xxx">
<INPUT TYPE=submit VALUE="Go">

よろしくお願いいたします。皆さん。

2 :名無しさん:2000/03/10(金) 19:08
ジャンプメニューってなぁーーーに?

3 :名無しさん:2000/03/11(土) 00:09
1>
イマイチなスクリプトのありかを教えて下さい。
イマイチな方法を書いてしまうのは避けたいので参考にします。
2>
メニューから選んでGoをクリックするとリンク先にジャンプするアレ。

4 :si:2000/03/11(土) 01:36
METHOD=POSTばかりなので困っています。
早く誰かー。

5 :名無しさん:2000/03/11(土) 01:42
>拾ったスクリプトはどれもイマイチ。
な〜んてことが言えるくらいなら自分で作ればよかろう。


6 :こうすけばいいだけでしょ:2000/03/11(土) 01:43
METHOD=POST > METHOD=GET

7 ::2000/03/11(土) 02:58
ん? 返答なしか?

8 :名無しさん:2000/03/11(土) 05:17
#!/usr/local/bin/perl

@pair = split(/&/@` $ENV{'QUERY_STRING'});
$url = $pair[1];
$url =~ tr/+/ /;
$url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C"@` hex($1))/eg;

print "Content-type: text/html\n";
print "Location: $url\n\n";
exit;

これであとはページに

<SELECT NAME="url">
<OPTION VALUE="http://xxx.xxx">なんとかかんとか
<OPTION VALUE="http://xxx.xxx">なんとかかんとか2
</SELECT>
こんな感じでいけるんじゃないの?

9 :名無しさん:2000/03/11(土) 05:30
$url =~ tr/+/ /;
$url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C"@` hex($1))/eg;
print "Content-type: text/html\n";
は要らないね。

10 :名無しさん:2000/03/11(土) 05:53
IIS サーバじゃないんだよね? まぁ念のため、
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\r\n";
print "Location: $url\r\n\r\n";
としておくといいのかな。
あと、GETにしたいみたいだから、
「your_jump.cgi?url=file://〜例のアレ〜」
を避ける工夫をしないと、みんなのクラッシャーとして使われた揚げ句
そのCGIがクラッシャーだって決めつけられかねないよ。
# <OPTION NAME="xxx" VALUE="xxx"> という記述を見てイマイチ不安が。

11 :is:2000/03/11(土) 06:32
Thanks ALL!
できました。みなさんありがとう!
温泉で有名な北関東の県にきた際は、是非ご連絡を!

12 :名無しさん:2000/03/11(土) 09:50
いーなー、温泉。しかし、私は眺めていただけで何の役にも立っていない...

13 :ブス:2000/03/11(土) 13:57
>10様

 そのブラクラとして使われないようにするにはどうすればよろいしいのでしょうか?
 例のってconのコトですか?


14 :>3:2000/05/15(月) 06:23
1> 1> 1> 1> 1> 1> 1> 1> 1> 1>
1> 1> 1> 1> 1> 1> 1> 1> 1> 1>

何ですかこれは

4 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)