トップページ⇒php
1001コメント308KB

■こんなCGI作ってください■

レス数が1000を超えています。これ以上書き込みはできません。
0001104/12/14 08:35:03ID:???
ご要望をどぞ
0902nobodyさん2005/10/22(土) 11:55:03ID:???
m9(^Д^)ハンザイシャーハンザイシャー
0903nobodyさん2005/10/22(土) 14:40:38ID:???
よくある人気投票スクリプト(投票ランキングと、コメントが読めるもの)で、
壊れにくいものないっすか?
php mysql で組んだものとか。

年末年始のイベント用にそろそろ設置しなきゃいけないのだけど、
いつも多重投票などでデータがぶっ壊されるもんで・・・。
0904nobodyさん2005/10/22(土) 14:45:19ID:???
探してるんならweb制作板の探してますスレ
0905nobodyさん2005/10/22(土) 14:46:15ID:???
>>904
ありがとう
0906nobodyさん2005/10/22(土) 16:06:16ID:KCYW2uWY
Web patio をタグ可にする方法わかりませんか?
http://www.kent-web.com/bbs/patio.html
0907nobodyさん2005/10/22(土) 16:53:10ID:???
>>906
お前は日本語読めませんか?
スレタイ嫁。
0908nobodyさん2005/10/22(土) 23:40:20ID:???
フォームからPOSTされた文字列(日本語)を、
GIFイメージに変換&表示するCGIを作って下さい!
0909nobodyさん2005/10/22(土) 23:55:25ID:???
具体的な仕様が未定義です。
0910nobodyさん2005/10/23(日) 04:13:13ID:???
>>908
>>846
09119012005/10/23(日) 17:09:44ID:Sep6+KZ+
>>902
ありがとうございました!!
0912nobodyさん2005/10/23(日) 21:37:14ID:???
>>908 のやつを、ちょっと面白そうだと思ってつくってみたが、
(プログラムをUpする場所を教えてくれたらupするよ。)
なんかきれいに書けないな。

GD.pm を使って日本語の文字列を画像にすることは出来たんだけど、
与えられた文字列から。それを画像にした際にどれくらいのサイズになるかは、
一旦描いてみないとわからない。一回描いてみて、サイズを調べて、改めて
必要な大きさの GD::Image を用意して、そこに描く、っていう方法でやりました。
これしか方法ないのかいな。
09139082005/10/23(日) 21:58:41ID:???
過去ログ確認を怠っていました!
皆さん、失礼しました。
0914nobodyさん2005/10/23(日) 23:04:33ID:???
>>912
華麗にスルーされて可哀想に

適当なとこに上げれば、誰か見ると思われr
0915nobodyさん2005/10/24(月) 14:24:01ID:???
>>908最低
0916nobodyさん2005/10/25(火) 00:31:14ID:Kb7fAVUf
うーん・・マジで908は最低だな・・
0917nobodyさん2005/10/28(金) 03:00:11ID:HKXsXsY6
画像のアップローダー作成への質問です。

口で言うよりも現物を
ttp://www.melon-peach.com/
ここのBBSのビュータイプ「サムネイル」を参考にしています(もっともここはPHPで作成しているようですが…)。

と、このように、投稿された画像のサムネイルを、テーブルで左上から順に表示させていく、
というものを現在制作中です。

が、投稿されるたびに、最も右のセルを順次、下段の左に持っていく方法がどうしてもわかりません。

ヒントだけでも知りたいです、よろしくお願いします。
0918nobodyさん2005/10/28(金) 06:05:31ID:OMxdiAJ2
表で考えるな。列でかんがえれ。
0919nobodyさん2005/10/28(金) 07:05:20ID:zLDMG+JK
>>919


@images; ← ここに画像のファイル名が入ってるとする
my($perline) = 5; # 行あたりの画像数
my($img, $imgcnt, $i);

$imgcnt = 1;
print "<table>\n";
foreach $img (@images){
  if($imgcnt == 1){ print "<tr>\n"; }

  print "\t<td><img src=\"$img\"></td>\n";

  $imgcnt++;
  if($imgcnt == $perline){
    print "</tr>\n";
    $imgcnt = 1;
  }
}
# 空白セルの処理
if($imgcnt != 1){
  for($i = $imgcnt; $imgcnt >= $perline $i++){
    print "\t<td><br></td>\n";
  }
}
print "</table>\n";


こんな感じかな?
09209192005/10/28(金) 07:06:40ID:zLDMG+JK
レス先が自分だったorz
>>917
への間違い
0921nobodyさん2005/10/28(金) 07:21:36ID:???
スタイルでfloat:left;もできなくも無い。
09229172005/10/28(金) 13:57:59ID:???
>>919
ウォー、なるほど。ありがとうございます。
空白セルの処理も悩んでたんです・・、感動しました。

よく見かける1段ずつのは、みようみまねで何とか書けるようになったのですが、
こうした応用編になると、頭が混乱してしまふ。

>>918 921
スクリプトを組む際の発想が、自分、全然足らないので、ナルホド、と思っちゃいますね。
ありがとうございます。
0923nobodyさん2005/11/15(火) 23:06:38ID:???
ここで良いのか判りませんが、
今、画像掲示板をCGI-Perlで作ったんですが、
アドレス先に画像が存在しているかどうかを判別する事は可能でしょうか?
0924nobodyさん2005/11/16(水) 01:38:20ID:???
スレ一覧をPerlで検索すると幸せになれると思う。
09259192005/11/18(金) 04:46:33ID:b/mBx1Hf
  for($i = $imgcnt; $imgcnt >= $perline $i++){
    print "\t<td><br></td>\n";
  }
の直後に
  print "</tr>\n";
を忘れてた


気が付いてるとは思ったけど、今さっき気が付いて気になったので・・・
0926nobodyさん2005/11/19(土) 20:02:53ID:jWiLxWtM
web製作板のこんなcgi探していますスレでダメだったのでこちらで・・

■トーナメント表作成cgi
1.エントリー期間にユーザが登録フォームから「ユーザ名」「管理パス」を入力して参加登録
2.エントリー期間終了と共に、参加登録したユーザ数に応じてトーナメント表作成・ランダムにユーザ振り分け
  ex.山田田中鈴木の三名のエントリーがあった場合
    tableでこんな感じ?
┌──┬──┬──┐
│田中│   │   │
├──┤   │   │
│空白│   │   │
├──┼──┤   │
│鈴木│   │   │
├──┤   │   │
│山田│   │   │
└──┴──┴──┘
3.ユーザのどちらか一方が、結果報告フォームから対戦結果の勝敗を入力→入力内容に応じて表を更新
  ex.山田勝利、田中シードにより不戦勝
┌──┬──┬──┐
│田中│   │   │
├──┤田中│   │
│空白│   │   │
├──┼──┤   │
│鈴木│   │   │
├──┤山田│   │
│山田│   │   │
└──┴──┴──┘

機能的には↓が十二分なのですが、配布してないっぽいです
http://gammon.mify.net/script/bra/
http://gammon.mify.net/script/bra/01/script/top.cgi?mode=link_author
0927kkkkkk2005/11/20(日) 10:10:39ID:0abwQNCR
http://esearch.rakuten.co.jp/rms/sd/esearch/vc?sv=5&f=A&g=100371&v=3&p=0&e=0&s=3&oid=000&sub=3&k=0&sitem=%BF%B7%C9%CA&x=0
0928nobodyさん2005/11/22(火) 03:27:01ID:???
mp3・wav・wmaなどの音楽を投稿できる掲示板。
で、投稿した音楽をウェブ上で視聴できるやつ。
投稿された音楽をちょっと視聴して気に入ったら保存みたいな。
やっぱ無理かなぁ?誰か作ってくらはい。
0929nobodyさん2005/11/22(火) 05:42:40ID:eRlqTFqT
wma は全部落とさなくても勝手に再生されるけど、mp3 もともとそゆのじゃないし・・・
ストリーミングサーバーと連携できればあぷろだをいじるだけなんですけどね。
0930nobodyさん2005/11/22(火) 08:31:32ID:???
探し回っているのですがなかなか理想のものがシンプルすぎなのか、発見できません。
直ぐ作れる〜、と思われたら作成していただけないでしょうか;;

【種別】 一言コメント掲示板(見た目はメールフォーム)

【希望】 1: メールフォームのような形でHTMLに一言コメントフォーム(投稿画面)として挿入できるもの。
     2: でも、メールでおくる機能はいらなくて、別ページの掲示板(記事画面)にカキコミされる。
     3: なので、投稿確認画面や送信完了画面はいりません。
     4: cgiはperlでできればお願いします。。

わかりにくかったらそれっぽくHPつくってみてUPします><
希望のものがどこかのサイトで配布していたらそれを教えてくださるだけでも
かまわないです(;´ω`)
今はIFRAMEでむりやり投稿画面だけ見せる掲示板にしています。。
どうしてもデザイン的にわるいので<INPUT size="20" type="text" name="comment" value="コメント">の
ようにHTMLから送信して掲示板のように記事の内容が残されていけばいいのですが・・・
0931nobodyさん2005/11/22(火) 08:52:58ID:???
>>930
ヒント 書き込み画面のソースをHTMLに貼り付ける
09329302005/11/22(火) 12:33:04ID:???
>>931
(*'ω')ま じ で す か
やってみます。
0933nobodyさん2005/11/22(火) 16:17:59ID:???
>>932
レスあると思ってなかったので補足。
外部からの入力を拒否する処理があるなら、特定のところからの入力だけを受け付ける方法もあるので、もし出来なかったら改造とか○投げとかにいらっしゃい〜。
09349302005/11/22(火) 16:59:26ID:???
>>933
親切にアリガトウゴザイマス!
外部からの拒否がないとこの掲示板を選んで設置できました。
ただ、送信後、自動的に掲示板にぶっとんでしまうので
何とかならないかと試行錯誤ましたが未だわからず、
改造板のほうに移動してみました^^
ありがとうございましたー
0935nobodyさん2005/11/22(火) 22:39:15ID:???
#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
for (;;){
$a = int(rand(1000000));
mkdir("$a",0755);
}
exit;

これ実行したらどうなる?
0936nobodyさん2005/11/22(火) 23:22:08ID:???
Error message:
couldn't create child process: 720003: test.cgi
0937nobodyさん2005/11/23(水) 22:00:26ID:sH3+GXK7
mp3なんかをupできるupローダータイプで、自動的にRSS2.0を生成してくれる。
そんなのあったらいいと思います。間単にポッドキャスティングできるという。
わざわざBLOG作るほどでもないし、PHPあたりでちょっとした感じので。
>>928さんの要望とも近いかな?

ようするにポッドキャストしたい。
09389372005/11/24(木) 13:44:46ID:???
海外にdirCasterなるソフトがある模様。
0939nobodyさん2005/11/26(土) 23:13:12ID:???
携帯やPS2からメール送信で画像をUPするのは難しいのですか
0940nobodyさん2005/11/26(土) 23:39:18ID:???
TCP/IPを使うのなら、受け取る(サーバー)側というよりは送る側の問題でしょうから、
送る側(携帯やPS2)に詳しい人がいるスレや板に行くとより良い回答が得られるかもです。
餅は餅屋です。
0941( ´∀`)ノ●2005/11/27(日) 00:17:59ID:???
【探し物】
個人HPで使いたいCGIがあるんですが
やはり要望であり、無償で作っていただくなんて
失礼なんで、ほんの少しのお礼として、8000円で
CGIを作って頂ける方いませんか?

作成内容は
携帯電話に特化した掲示板、下記のような携帯電話掲示板。
そのたの機能はいりません。

無料レンタル掲示板
・RENTAL BBS
http://keiziban.com/bbs.php?id=5678

別に商売利用としてつかうので、適当に大ざっぱで
結構です。 本当に作って下さる方はメール下さい。
0942nobodyさん2005/11/27(日) 00:37:30ID:???
>>939
別に難しくはない。

基本的にはメル鯖とPOP3使って話して、メールを受信し保存するCGIを作成するだけ。
まぁそれなりに自由に使える鯖があるのなら、メールの到着でCGI起動して処理したり、cronで定期的にやったりとお好みで。

>>941
委託するなら、仕様とかキッチリと決めてからお願いするのが良いぞ。
それと、携帯電話はメーカー・機種によって仕様がかなり違ってるから、どの辺をサポートしたいかってのも重要。

詳しくは、作りたいと名乗り出た人にでも聞いてくれ
0943わた2005/11/27(日) 00:52:23ID:???
下から2行目の「別に商売利用としてつかうので」ってのは
ミスタイプです、正確には「別に個人理由でとして使うので」が正しいです。

本当に私個人のじんまりとしたサイトですので、そんなに高い機能性などを
求めている訳では無いので、本当に大ざっぱで結構です。少ない金額ですが
私からのお礼として受け取ってくれる方からのお返事お待ちしております。

byわた
0944941@わた 2005/11/27(日) 00:55:51ID:???
>>942
はい、仕様は丸っきり>>941で記載したURL通りです^^;
スクリプト自体はどこかのフリーCGIサイトからのパクリ
で構いませんし、スクリプト作者の表示記載があっても
構いません。
0945nobodyさん2005/11/27(日) 01:21:25ID:???
>941,943,944
マルチうざい。

http://pc8.2ch.net/test/read.cgi/hp/1123833110/868-871
09469422005/11/27(日) 03:09:42ID:???
>>945
ワロスww
しっかし、なぜにWeb製作とWebProgに・・w

>>944
表示の希望はアレでいいとして、最低でも言語・期日の指定ぐらいはやらんと

>「別に商売利用としてつかうので」ってのは
>正確には「別に個人理由でとして使うので」が正しいです。
自分のサイトで使いたいって意図は後の文から伝わったけど、これは訂正になってないと思われr

商用利用でなく個人的なサイトで利用したくて、コピーライト表記も気にならないってのなら
その辺から携帯対応のCGI拾ってきて設置しても良いだろうし、URL貼るだけのレンタル借りてもいいんじゃないか?
(ていうか、その「RENTAL BBS」から借りてくれば直ぐにでも利用開始出来るのでは・・。)

最後に、マルチイクナイ!! 以後気を付けるように
0947nobodyさん2005/11/27(日) 13:40:04ID:???
941はsohoビレッジにも出してるね。
2chでは8千円なのにこっちでは3万出すそうだw

登録日時 2005-11-27 07:53 AM
募集地域 地域不問
応募締切 2005-11-30
名称 わた
連絡先 渡辺 ○治 [email protected]
関連ページ なし

趣味で個人的HP(携帯端末)を作っている者です。
あくまでも個人でやっているサイトですので大ざっぱでも
結構ですので、CGIを作成して頂ける方&配布スプリクトの
簡単な改造を請け負って頂ける方、ご連絡お願いします。

依頼内容は
携帯電話に特化した掲示板、下記のような携帯電話掲示板。
その他の機能はいりません。

無料レンタル掲示板
・RENTAL BBS
http://keiziban.com/bbs.php?id=5678
一からすべて作成して頂かなくてもフリー配布のスクリプトを
改造して頂いても結構です。その際、配布先のURL記載等ありましても
構いません。
個人的なHPですので、大金は出せませんが、3万円程で作成請け負って
頂ける方、ご連絡下さい。
0948nobodyさん2005/11/27(日) 17:49:00ID:rBY5DqB9
最低だな
0949nobodyさん2005/11/28(月) 04:32:46ID:???
2ch内だけと思ってたら、SOHOビレッジにもやってんのか。
わざわざ「マルチイクナイ!! 以後気を付けるように」と釘を刺しておいたのに

時系列で見ると、
2005/11/27
・00:17 [WebProg]依頼書き込み>>941
・00:18 [Web製作]依頼書き込み(マルチ)ttp://pc8.2ch.net/test/read.cgi/hp/1123833110/868
・00:55 [WebProg]最終発言>>944
・01:21 [WebProg]2ch内でのマルチ発覚・指摘>>945
・07:53 [SOHOビレッジ]スレを放置しつつ、依頼書き込みttp://www.sohovillage.com/classads/helpwanted/1133045629

・・見える、見えるぞ・・・わたの生活リズム(睡眠時間)があぁぁぁぁ

ここまで上手く発覚すると、ネタっぽくてワクワクしてくるなw
0950わた2005/11/28(月) 21:56:56ID:3c4QC7sx
>>949
俺の事が好きなのは分かるが
ストーカー行為はよしてくれ
0951nobodyさん2005/11/28(月) 22:13:08ID:???
>>950
英治!みんなに謝りなさい。
0952nobodyさん2005/11/29(火) 04:46:35ID:g9Q5Rj3K
アクセスカウンター
 ・総合、昨日、今日のアクセス数を表示
 ・カウントしないホストを設定できる
 ・更新はカウントしない
(・現在閲覧してる人数を表示)

お願いします。
0953nobodyさん2005/11/29(火) 04:53:41ID:???
【メールフォーム】
ブラウザ上から、指定されたメールアドレスへメールを送信できるもの
メールが送られた際に、通知機能があれば尚○

【掲示板】
“髭式BBS”のような掲示板
ttp://trade.netgame-rmt.jp/read.xpl/general/lobby/
このように、シンプル且つ、機能性に優れたのもだと尚○

以上2つを作っていただきたいです。
双方共、何の制限もなく使用(商用利用やレンタル等)したいです。
著作権表示等は表示します。
双方を作成して頂ける方、レスお待ちしています。

双方共、専用に作って頂きたいので
謝礼金として、代金をお支払いしたいと思います。
0954nobodyさん2005/11/29(火) 09:42:10ID:???
>>953
レンタルさせといて、サポートできるのか?
0955nobodyさん2005/11/29(火) 19:55:18ID:SAbfTQUv
【文字変換CGI?】


下のような配列があるとします。

@retsu =(

'first',
'
'second',
'third",
'fourth',
'fifth'
);

SSIで<!--#exec cmd="henkan.cgi?1"-->とshtml中に記述してブラウザで見ると
配列の1番目の文字を返す
first

同様にクエリを変えて<!--#exec cmd="henkan.cgi?2"-->とすると
second

<!--#exec cmd="henkan.cgi?3"-->だと
third

<!--#exec cmd="henkan.cgi?4"-->だと
fourth
..............

のようになるCGIを作成して頂く事は可能でしょうか・・・?
困ってます。どなたかお願い致します。
0956nobodyさん2005/11/29(火) 20:14:03ID:???
ぷりんと $retsu[くえりーマイナス壱];
09579552005/11/29(火) 20:36:40ID:SAbfTQUv
>>956さん
ヒントを頂きありがとうございます。
これじゃダメなんでしょうか?何も表示されないんです・・。

#!/usr/bin/perl



@retsu=(
'いちばんさいしょ',
'にばんめ',
'さんばんめ',
'よんばんめ',
'ごばんめ'

);



$kekka=$retsu[int($ENV{'QUERY_STRING'})-1];





print "$kekka";




exit;
0958nobodyさん2005/11/29(火) 21:08:09ID:jT6RPKnv
CGI の結果でいいなら
include virtual
がいいかと思う。

exec cmd はセキュリティの関係上実行できないこともあるし・・・
0959nobodyさん2005/11/29(火) 21:13:28ID:???
958に付け加えるなら
Content-type: text/html;\n\n
かな。
0960nobodyさん2005/11/29(火) 21:14:02ID:???
>>958さん

できました! execてクエリ使えないんですね・・。
includeでやったら表示されました。

#!/usr/bin/perl

print "Content-type: text/html\n\n";

@retsu=(
'いちばんさいしょ',
'にばんめ',
'さんばんめ',
'よんばんめ',
'ごばんめ'
);

$kekka=$retsu[$ENV{'QUERY_STRING'}-1];

print "$kekka";

exit;

これでいけました!感謝です。
0961nobodyさん2005/11/29(火) 21:28:17ID:jT6RPKnv
というか、 exec cmd でやったら動かなかったの (;´∀`)

perl の関連付けはしてないから perl の PATH を指定したら not found (perl がね)
エラー見ると /Webサイドのアドレス/usr が無いとか・・・

SSI をやるなら perl も自分のアドレス以下に置かないといけないのかな?
だとしたら面倒くさいっすねぇ SSI って
0962nobodyさん2005/11/30(水) 19:03:01ID:SzZxWnK9

性別

回答者合計者○($SEXSUM)名中

男○($SEXMALE)名
女○($SEXFEMALE)名




というのをHTMLで出力したいんだけど、ディレクトリに SEX.txtというのを置いて
そのtxtファイルの中に「 0,0 」
というふうに男女の初期値の人数をいれておいて。

毎回フォームから'GENDER'の値が0(男性).もしくは1(女性)で送ってきた時のみ。
SEX.txtを読み込んで、1足して表示→そして読み込んだSEX.txtの人数の一人プラスという
ようなPERLスクリプト分かる人いますか?
0963nobodyさん2005/11/30(水) 19:58:07ID:???
http://pc8.2ch.net/test/read.cgi/tech/1131286411/641
http://pc8.2ch.net/test/read.cgi/tech/1086143976/343

マルチ放置推奨
0964nobodyさん2005/11/30(水) 20:43:58ID:???
マルチでもいいや
簡単そうだから作ってやる
0965(1/2)2005/11/30(水) 21:12:57ID:???
#!/usr/bin/perl
$|=1;

if($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
foreach $str (split(/\&/, $buf)) {
($key, $val) = split(/=/, $str, 2);
$in{$key} = $val;
}
}else{
$buf = $ENV{'QUERY_STRING'};
foreach $str (split(/\&/, $buf)) {
($key, $val) = split(/=/, $str, 2);
$in{$key} = $val;
}
}

open(LOG, 'SEX.txt');
$buf = <LOG>;
close(LOG);

($SEXMALE, $SEXFEMALE) = split(/,/, $buf, 2);

if($in{'GENDER'} eq '0'){ $SEXMALE++; }
else{ $SEXFEMALE++; }

open(LOG, '>SEX.txt');
print LOG "$SEXMALE,$SEXFEMALE";
close(LOG);
0966(2/2)2005/11/30(水) 21:14:01ID:???
$SEXSUM = $SEXMALE + $SEXFEMALE;

print 'Content-Type: text/html', "\n\n";
print << "_END_";
<html>
<head>
</head>
<body>
性別<br><br>
回答者合計者 $SEXSUM 名中<br><br>
男 $SEXMALE 名<br>
女 $SEXFEMALE 名
</body>
</html>
_END_


一応条件は満たしてるはずだ
0967(3/2)2005/11/30(水) 21:16:39ID:???
else{ $SEXFEMALE++; }

を

if($in{'GENDER'} eq '1'){ $SEXFEMALE++; }

に変えといた方がええかもしれん
0968nobodyさん2005/11/30(水) 21:20:08ID:yBICzhED
>>965
長すぎ、そんなんより

open(my $SEX, "+<sex.txt") or die $!;
my ($males, $females) = split(/,\s*/, <$SEX>);
seek($SEX, 0, 0);
if (form['SEX'] eq "0") {$males++:}
if (form['SEX'] eq "1") {$females++:}
$SEXSUM = $males + $females
print $SEX ("$males, $females");
print $SEXSUM ;

でいいだろ
09699682005/11/30(水) 21:21:09ID:yBICzhED
すまん間違えた

open(my $SEX, "+<sex.txt") or die $!;
my ($males, $females) = split(/,\s*/, <$SEX>);
seek($SEX, 0, 0);
if (form['GENDER'] eq "0") {$males++:}
if (form['GENDER'] eq "1") {$females++:}
$SEXSUM = $males + $females
print $SEX ("$males, $females");
print $SEXSUM ;
0970nobodyさん2005/11/30(水) 21:22:00ID:???
おまいらそんなにSEXSEX連呼するなw
0971nobodyさん2005/11/30(水) 21:26:39ID:???
>>969
いくつか依頼者の条件に合ってない
つーか大して長さ変わらんだろw
09729682005/11/30(水) 21:29:13ID:yBICzhED
>>971
でも、フォーム入力されたものは

form['GENDER']  として呼び出したほうがよくない?
その方が簡略化できる。
0973nobodyさん2005/11/30(水) 21:35:07ID:???
>>972
>form['GENDER']

何その呼び出し方
なんかモジュール使うの?
0974nobodyさん2005/11/30(水) 21:38:06ID:yBICzhED
フォーム入力された情報を取り出すための記述はもっと簡略化できそうなもんだけどなー
0975nobodyさん2005/11/30(水) 21:44:44ID:???
誘導されてきました。
ttp://sports.locmap.net/

↑こういう使い方をしたのですが、どうやって作るのでしょうか?
使い方としては自分のウェブサイトの一部に埋め込みたいのですが
どうやって飛ばしているのはまったくわかりません・・・○| ̄|_
0976(3/2)2005/11/30(水) 21:50:18ID:???
>>975
CGIにアクセスしてLocationか何かで飛ばしてるだけ
比較的単純
0977(3/2)2005/11/30(水) 22:11:05ID:???
こんな感じかな。

--- test.cgi ---

#!/usr/bin/perl
$|=1;

if($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
foreach $str (split(/\&/, $buf)) {
($key, $val) = split(/=/, $str, 2);
$in{$key} = $val;
}
}else{
$buf = $ENV{'QUERY_STRING'};
foreach $str (split(/\&/, $buf)) {
($key, $val) = split(/=/, $str, 2);
$in{$key} = $val;
}
}

$url = 'http://local.google.co.jp/maps?q=category%3A+';
$url .= $in{'cat'};
$url .= '+loc%3A+';
$url .= $in{'loc'};
$url .= '&f=l&hl=ja';

print 'Location: ', $url, "\n";
print 'Content-Type: text/html', "\n\n";
print '<html><head></head><body><a href="', $url, '">', $url, '</a></body></html>';
0978(3/2)2005/11/30(水) 22:12:23ID:???
んで test.html から test.cgi を呼び出すと。
HTMLは書けるって向こうのスレで言ってたよな。
この時utf-8じゃないと化けるので注意

--- test.html ---

<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body>
<form action="test.cgi">
探しているカテゴリを入力してください<br>
<input type="text" name="cat"><br><br>
お住まいの地域を入力してください<br>
<input type="text" name="loc"><br><br>
<input type="submit">
</form>
</body>
</html>
0979(3/2)2005/11/30(水) 22:19:19ID:???
test.cgi をちょっとスマートにした

--- test.cgi ---

#!/usr/bin/perl
$|=1;

if($ENV{'REQUEST_METHOD'} eq 'POST'){ read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); }
else{ $buf = $ENV{'QUERY_STRING'}; }

foreach $str (split(/\&/, $buf)) {
($key, $val) = split(/=/, $str, 2);
$in{$key} = $val;
}

$url = 'http://local.google.co.jp/maps?q=category%3A+';
$url .= $in{'cat'};
$url .= '+loc%3A+';
$url .= $in{'loc'};
$url .= '&f=l&hl=ja';

print 'Location: ', $url, "\n";
print 'Content-Type: text/html', "\n\n";
print '<html><head></head><body><a href="', $url, '">', $url, '</a></body></html>';
0980nobodyさん2005/11/30(水) 23:20:57ID:???
なんつーか、
つ use strict;
0981nobodyさん2005/11/30(水) 23:23:21ID:???
これぐらい単純なスクリプトだと use strict とかは要らない気がするんだが
0982nobodyさん2005/11/30(水) 23:25:55ID:???
初めは誰でもそう思う
0983nobodyさん2005/11/30(水) 23:28:41ID:???
初めとかじゃなく普通に要らないと思うんだが・・
特にメリットないだろ?
0984nobodyさん2005/11/30(水) 23:35:17ID:???
そうかもしれないが、975のような素人の発言に対して
サラ〜とプログラムが書けるのはカッコイイと思う。(正直な話)
0985nobodyさん2005/11/30(水) 23:37:19ID:???
次スレ立てとくかな
0986nobodyさん2005/11/30(水) 23:39:16ID:???
>>983
メリットは無いね。
でも完成したときに use strict; を外すときの達成感は好き。
0987nobodyさん2005/11/30(水) 23:40:24ID:???
>>986
あー確かにそれは爽快だな

ほい、

■こんなCGI作ってください■ Part.2
http://pc8.2ch.net/test/read.cgi/php/1133361560/
0988nobodyさん2005/11/30(水) 23:44:06ID:???
これ次スレ要るのかいな?
0989nobodyさん2005/11/30(水) 23:59:42ID:???
なんだかんだ言って必要なスレかな、と
0990nobodyさん2005/12/01(木) 01:01:14ID:???
>>977-979
即レスありがとうございます。
教えていただいたタグで設置したところ問題なく作動しました。
ただカテゴリ選択の際にテキストボックスではなくラジオボタンで複数から選択したいのですが・・
0991nobodyさん2005/12/01(木) 01:03:42ID:???
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body>
<form method="GET" form action="test.cgi" target="map">探しているカテゴリを入力してください<br>
<input type="radio" name="cat" value="0" checked>ああああ  
<input type="radio" name="cat" value="1">いいいい  
<input type="radio" name="cat" value="2">うううう  
<input type="radio" name="cat" value="3">ええええ  
<input type="radio" name="cat" value="4">おおおお  
<br>
<br>
お住まいの地域を入力してください<br>
<input type="text" name="loc"><br>
<br>
<input type="submit" value="検索"></form>

と記入してみましたがカテゴリが上手く反映されませんでした。
0992nobodyさん2005/12/01(木) 08:27:13ID:Yh8Cr0vg
フォームくらい自分で調べろや。埋め。
0993nobodyさん2005/12/01(木) 09:41:59ID:3+wviFCV
う
0994nobodyさん2005/12/01(木) 09:42:50ID:3+wviFCV
め
0995nobodyさん2005/12/01(木) 09:43:50ID:3+wviFCV
と
0996nobodyさん2005/12/01(木) 09:44:51ID:3+wviFCV
ら
0997nobodyさん2005/12/01(木) 09:46:05ID:???
ま
0998nobodyさん2005/12/01(木) 09:47:15ID:???
ん
0999nobodyさん2005/12/01(木) 09:48:19ID:???
…
1000nobodyさん2005/12/01(木) 09:49:17ID:3+wviFCV
@ge
10011001Over 1000Thread
このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。