CGI
- CGIでhtmlページを表示する
連日質問させていただいています。 CGI超初心者です。 htmlファイルにラジオボタンを設置し、 Aを選んだらhttp://www.a.html、 それ以外を選んだらhttp://www.b.html というサイトを開くようなCGIを作成したいです。 以下のようにやってみたのですがうまくいきません。 どのように修正したらいいでしょうか？ #============================================ if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $str, $ENV{'CONTENT_LENGTH'}); } else { $str = $ENV{'QUERY_STRING'}; } foreach $i (split('&', $str)) { $i =~ tr/+/ /; $i =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; ($t1, $t2) = split('=', $i); $FORM{"$t1"} = $t2; } $q1 = $FORM{'radio'}; print "Content-Type: text/html; charset=Shift_JIS\n\n"; print "<html>\n"; print "<head></head>\n"; print "<body>\n"; if ($q1 eq "A") { print "Location: http://www.a.html\n\n"; } else { print "Location: http://www.b.html\n\n"; } print "</body>\n"; print "</html>\n"; exit; #============================================ 上記のようにすると、以下のように、ただ文字が表示されてしまいます。 Location: http://www.a.html #============================================ if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $str, $ENV{'CONTENT_LENGTH'}); } else { $str = $ENV{'QUERY_STRING'}; } foreach $i (split('&', $str)) { $i =~ tr/+/ /; $i =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; ($t1, $t2) = split('=', $i); $FORM{"$t1"} = $t2; } $q1 = $FORM{'radio'}; print "charset=Shift_JIS\n\n";←★ print "<html>\n"; print "<head></head>\n"; print "<body>\n"; if ($q1 eq "A") { print "Location: http://www.a.html\n\n"; } else { print "Location: http://www.b.html\n\n"; } print "</body>\n"; print "</html>\n"; exit; #============================================ ★部分が悪いのかなぁと思い、上記のように修正してみたり、 （Content-Type: text/html; を削除してみました） ★部分を全部削除してみると Internal Server Error となってしまいます。 よろしくお願いいたします！
- CGIでテキストボックスの内容によって条件分岐
CGI超初心者です。 htmlファイルに設置したテキストボックスの値によって CGIで表示させる内容を変えたいです。 ネットで検索してコードを作成してみたのですが うまくいきません。 どのように修正すればいいのでしょうか？ test.html---------------------------------------- <FORM action="test.cgi" method="POST"> 変数を入力 <INPUT type="text" name="hen"> <INPUT TYPE="submit" VALUE="送り"> </FORM> ------------------------------------------------- test.cgi----------------------------------------- #!/usr/local/bin/perl $h = $FORM{'hen'}; print "Content-Type: text/html; charset=Shift_JIS\n\n"; print "<html>\n"; print "<head><title>サンプル</title></head>\n"; print "<body>\n"; if ($h > 50) { print "<p>変数hの内容は50より大きいです。</p>\n"; } else { print "<p>変数hの内容は50より小さいです。</p>\n"; } print "</body>\n"; print "</html>\n"; exit; ------------------------------------------------- テキストボックスに、50以上の数字を入力しても、50以下の数字を入力しても どちらも 「変数hの内容は50より小さいです。」 と表示されてしまいます。 よろしくお願いいたします！ ※ 前回の質問（http://okwave.jp/qa/q8179935.html） より、CGIは使わない方向で検討中ですが CGIに途中まで足をつっこんでしまい、 気になったので質問させていただきました。
- 条件分岐のCGIサンプル
CGIのプログラミング超初心者です。 「○○度チェック」のようなサイトを作成したいと思っています。 （4～5問程度の質問を用意し、「はい」か「いいえ」を選択して進んでいくようなもの） どこかに無料でダウンロードできるサンプルはないでしょうか？ 以前、メール問い合わせフォームを 無料ダウンロードできるサンプルコードを使用して作成した経験があります。 よろしくお願いいたします！
- 前回はごめんなさい。pythonでcgiとソケット
どうもこんにちは。 この前の質問は補足しようと思いサブアカウントを作成したら 利用規約に引っかかったみたいで削除されてしまいました。 自分が何も知らないばかりに回答者の方々には不快な思いをさせてしまったことをお詫びします。 本題ですが、 pythonのプログラムをサーバーで動かそうと思って、 .cgiのファイルを作成しました。 そして、httpの形にして文字を表示することは出来たのですが、 本当にしたいのはソケット通信なんです。 自分のPCでのソケット通信(サーバー&クライアント)はできますし、 cgiも簡単なものなら動くようになりました。 が、cgiでソケット通信ができません。 httpのリクエストでgetしろよ。と思うかもしれませんが、 ソケット通信じゃないとダメなんです。 無理なら諦めますが、出来るならやり方を教えて下さい。 自分のPCでのソケット通信のプログラムは以下のものとなります。 #!/usr/local/bin/python #coding: utf-8 import socket import time host = "localhost" port = 50000 data = "HOST:"+host+"\nPort:"+str(port) port = int(port) print ("python socket server") print (data) while(True): print ("wait...\n") sock_server = socket.socket(socket.AF_INET, socket.SOCK_STREAM) sock_server.bind((host, port)) sock_server.listen(1) connect, addr = sock_server.accept() print ("Connect...\naddress:", addr) while(True): mes = connect.recv(1024) if not mes : break print ("Getmessage:", mes) connect.send("server message") print ("send message:server message") sock_server.close() これをサーバーに移そうと思うとこのままですとlocalhostでエラーが出ます。 なのでこれをgethostnameやgethostbynameにしようとすると、 こりゃまたエラーが出てしまいます。 どうしたら出来るのでしょうか？？ サーバーは@pagesを今は使っていますが、 将来的には個人のサーバー(独自ドメインの)で動かすことになると思います。
- ベストアンサー
- poteto0413
- CGI
- 回答数2
- 誕生日占いをプログラムで作成しないといけません！
緊急です！困ってます！誕生日占いをプログラムで作成しないといけません！ CGIやPerlなどのプラグラムが全然分からないど素人ですが、 どうやったら、誕生日を記入して、占いプログラムを作成できますか？ 占い自体は分かっているんですが、 どうやったら、 http://charge.fortune.yahoo.co.jp/tel/fuji/UkwTopFH002500.html 上記のサイトの様な プログラムがつくれますでしょうか？ 占いプログラムの作り方を教えて下さい また、占いサイト専用の分かりやすいプログラムの本が あればどうかご紹介してください。 また占いに関する否定意見は受け付けていません！ とにかくプログラムを作る前提でお答えください。 どうかよろしくお願いします^^
- 商品一覧
商品を紹介するページを作ろうと思っています。 たとえば、1ページあたり12件くらいの小さめの写真と情報の要約を乗せ、 それをクリックすると各詳細ページに移動できるものを作りたいと思います。 その12件が、カテゴリー別にソートできたり、新着順にできたりするものを 希望しています。 そして、できれば、更新するときにわかりやすいものが良いのです。 更新はパソコン初心者でも教えればできる方法がよいです。 以前に、ショッピングカートがついたものなら、フリーのものをダウンロードして 設定をしたことがあります。 ただ、カートはいりません。 一覧をソートできて、各詳細ページに行ければいいのです。 ちなみに詳細ページには、詳細な情報と、20枚ほどの画像が乗り、 クリックすると拡大するようなものがいいのですが、今は手作業で作ってるので、 うまくアップロードできるには何を使えばいいのでしょうか。 フリーのCGIなどで、このようなものは作成可能でしょうか？
- 掲示板記事の「前のページ」「次のページ」リンク
お世話になります CANDYCGIで配布されているBBS Type5（画像アップロード型） http://www.candy-cgi.com/perl/BBS_Type5.html この掲示板の各スレッドに「前のページ（スレッド）」「次のページ（スレッド）」のリンクを 追加したいのですが・・・ 改変の仕方をどなたかご伝授いただけないでしょうか？ よろしくお願いします。
- PerlでSQLiteのデータテーブルを作成し
PerlでSQLiteのデータテーブルを作成し、作成したテーブルへデータを追加するようにしたいのですが、 下記のように作成し、実行すると、 テーブルの作成のみ、もしくは、既存のテーブルへのデータの追加のみは可能なのですが、 両方処理させると、テーブルの作成のみされて、作成されたテーブルの中身はカラのままです。 #データベースに接続 $dbh = DBI->connect("dbi:SQLite:dbname=c:\\database\\tyumon.db"); open (DATA,"c.dat"); $data = <DATA>; close(DATA); $data = $data+1; $table = "user"; $table .= $data; #テーブル作成実行 $hst = $dbh->do("CREATE TABLE '$table'(name text,area text,tel text,mail text,jikan text, hoka text)"); #レコードの追加（INSERT文の実行） $st = $dbh->do("insert into '$table' values('$data','$name','$area','$tel','$mail','$jikan','$hoka')"); 「c.dat」には、カウントされた数字が入っています。 テーブル名は「user」+カウント数字で作成しています。 データベースと、CGIの勉強を兼ねて作成しているもので、 根本的な間違いなどあるかもしれません。 どなたか、ご指摘いただければ幸いです。
- クッキーが別PCで共有されてしまう
Perlで情報を入力するcgiを作っています。 そのcgiでは、入力するときに入力者の名前を入力するのですが、 名前を毎回入力しなくてよいように、クッキーで名前を保存しています。 たとえば、「鈴木太郎」と入力すると、翌日にまた同じ作業するときも クッキーに保存された「鈴木太郎」が自動で入力者欄に表示されるようにしています。 お客様から連絡があったのですが、社内のPCで、「鈴木太郎」と入力して保存すると、 隣の別のPCでも、入力者に「鈴木太郎」と表示されるようになってしまうそうです。 この入力者欄はクッキーからの呼び出し以外で自動入力されるようには作っていません。 質問ですが、 あるPCに保存されたクッキーが、同じネットワークに繋がった別のPCに共有されてしまうということは考えられるのでしょうか？ もしかしてシンクライアントかと思い、お客様に聞いてみましたが、シンクライアントは使用していないとのことです。 環境はWindows7、IE7です。
- ベストアンサー
- workpad30j
- CGI
- 回答数2
- ｐｇｄ mailformについて
ｐｇｄ mailformについてご質問があります。 cgiに関しましては初心者になります。 ｐｇｄ mailformを複数(２つのフォーム)使用したいのですが、 どうもうまく作動しません。 いろいろと調べて、フォルダを２つ分けたら「フォルダ１」は作動していますが、 「フォルダ２」が作動しません(Not ｆoundと表示されます)。 名前の語尾に数字を付ける方法も試しました。 「pgdmailform2.cig」の様に各ファイル、cgiに付けています。 複数フォームを使用するにあたって気を付ける事はありますでしょうか？ 上記の方法以外に何か他に設定することはありますでしょうか？ 説明下手なので上記の内容で伝わりにくいと思いますが、 どうかお手柔らかにお願い致します。
- CGIショッピングカートのsendmail
CGIショッピングカートのsendmailが機能しません。 ショッピングカートを初めて設置します。 Shopping Cartの管理者通知メールと発注者返信メールが エラーも届きません。 参照サイト： http://bearmax.minibird.jp/cart.cgi ・サーバーはsendmailに対応しています。 ・check.cgiはすべてOK。 ・注文は、出来ます。「ご注文をお受けいたしました。誠にありがとうございました。」 表示後、反応がありません。 ・注文ログは書き込まれています。 教えてください。お願いします。 管理者メールアドレス $cf{mailto} = 'xxxxxxxx@gmail.com'; sendmailパス【サーバパス】 ※サーバーはminibirdで確認済みです。 $cf{sendmail} = '/usr/lib/sendmail'; #sendmailの -fコマンドが必要な場合 # 0=no 1=yes $cf{sendm_f} = 1;
- 締切済み
- bearmax0218
- CGI
- 回答数1
- CGIの文字化けについて
CGI初心者ですが、本とネットを調べてメールフォームを作成しています。 テストで作成していた時は何故かうまくいったのですが、 本番用サイトにアップしテストしてみると、自動返信メールが文字化けするようになってしまいました。 送信先は会社側がgmail、お客様側がスマホ（docomo）として自分のスマホに送っていますが、 gmailもスマホも本文のみが文字化けしています。 ネット上でも調べて、件名の文字化けは治すことが出来たのですが、本文がどうしても文字化けしてしまい、治せません。。。 HTMLの文字コードはUTF-8で、CGIもUTF-8Nで保存しています。 ほぼ本を見てそのまま作成し、修正部分だけネットで調べて追記していく、というような感じで 酷い内容のコードになってると思いますが。。 原因がわかる方がいらっしゃいましたら、是非ご教示頂ければと思っています。 また、こんな私に参考になるサイトがあれば教えて頂きたいです。 不明点は出来るだけ補足するつもりです。 宜しくお願いします。 どうかお助け下さい！ ------------------------------------------------- 以下がコードです。 #!/usr/local/bin/perl #setting require './lib/cgi-lib.pl'; use lib './lib'; use Jcode; use CGI; use utf8; use Encode; #フォームから入力データ読込 &ReadParse(*in); $name = "$in{'name'}"; $subject = "$in{'subject'}"; $address = "$in{'address'}"; $at = '@'; $domain ="$in{'domain'}"; #★メール送信先★会社側メールアドレス $to = 'kaisya@gmail.com'; #★メール送信者名★会社名 $fromname='株式会社かいしゃ'; #★メール送信者表示アドレス★ $from = 'kaisya2@kaisya2.com'; #★メール送信用タイトル★ $fromsubject = 'WEB会員登録のお申込みありがとうございました'; #★メール送信用内容★ $from_msg = <<END_OF_DATA; WEB会員登録のお申込み、ありがとうございました。 以下のURLへアクセスし、ご登録を進めて下さい。 http://www.kaisya.xxxx また、このメールに心当たりのない方は、このメールは削除して頂きますようお願い致します。 ☆---------------------------------☆ 株式会社かいしゃ HP:http://www.kaisya.xxxx MAIL:kaisya2@kaisya2.com TEL:00-9999-9999 FAX:00-9999-8888 ☆---------------------------------☆ END_OF_DATA $nstatus = 0; $mstatus = 0; $dstatus = 0; #process before send $mailName = Jcode::convert( $name , "utf8", "utf8" ); $mailSubject = Jcode::convert( $subject , "utf8", "utf8" ); $soushin_name = Jcode::convert( $fromname , "utf8", "utf8" ); $from_msg = Jcode::convert( $from_msg , "utf8", "utf8" ); #未入力check if($address eq "" ){ $nstatus = 1; } #mailaddress check if($address =~ /[^a-z0-9_\-\.]/ ){ $mstatus = 1; } #domain check if($domain =~ /^$/ ){ $dstatus =1; } if($nstatus == 1 or $mstatus == 1 or $dstatus == 1){ &mailerror; } #mailaddress $mailaddress = $address . $at .$domain; #sendmail #会社側にメールを送る $soushin_name = encode('MIME-Header-ISO_2022_JP', $soushin_name); open(MAIL, "| /usr/sbin/sendmail -t"); print MAIL "To: $to\n"; print MAIL "From:$soushin_name<$from>\n"; print MAIL "subject: $mailSubject\n"; print MAIL "Content-Type: text/plain; charset=\"iso-2022-jp\"\n\n"; print MAIL "名前: $mailName\n"; print MAIL "e-mail: $mailaddress\n"; close(MAIL); #sendmail2 #送信者側にメールを送る open(MAIL, "| /usr/sbin/sendmail -t"); print MAIL "To: $mailaddress\n"; print MAIL "From:$soushin_name<$from>\n"; print MAIL "subject: $mailSubject\n"; print MAIL "Content-Type: text/plain; charset=\"iso-2022-jp\"\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "{$from_msg}\n"; print MAIL "-------------------------------------\n"; print MAIL "以下の内容で送信されました\n"; print MAIL "名前: $mailName\n"; print MAIL "e-mail: $mailaddress\n"; close(MAIL); #display print "Content-type: text/html;charset=utf-8\n\n"; print "<html>\n"; print "<title>send result</title>\n"; print "<h1>send mail</h1><hr />\n"; print "以下のメールを送信しました<br />"; print "Name: $name<br />\n"; print "email: $mailaddress<br />\n"; print "</body></html>\n"; #サブルーチン メールアドレスにエラー sub mailerror{ print "Content-type: text/html;charset=utf-8\n\n"; print "<html>\n"; print "<title>mailaddress error</title>\n"; print "<body>\n"; print "<h1>send mail</h1><hr />\n"; if($nstatus == 1){ print "メールアドレスが入力されていません。<br />\n"; print "$nstatus<br />\n"; } if($mstatus == 1){ print "メールアドレスを正しく入力して下さい。<br />\n"; print "$mstatus<br />\n"; } if($dstatus == 1){ print "ドメインを選択して下さい。<br />\n"; print "$dstatus<br />\n"; } print "<a href=\"javascript: history.back()\">戻る</a><br />\n"; print "</body></html>\n"; exit; } exit;
- Movable Type 5 個人無償ライセンス
シックスアパート社製ブログソフトウェア「Movable Type 5」を個人無償ライセンスでダウンロードして、Lhaplusで解凍しました。フォルダの中の「mt-config.cgi-original」というファイルを「mt-config.cgi」に変更しないといけないですよね。でも最初から「mt-config」になっていました。それでその他のファイルも「.cgi」が最初から無いです。これはエラーとかじゃないのでしょうか？ ご回答よろしくお願いします。
- httpsへの移行について、II
前質問でhttpsへの移行について回答をいただきまして（ありがとうございました）、 ほぼ理解できたのですが 新たに不明な事が出てきましたので質問させていただきます。 現在、html上のボタンをクリックすると 表示しているhtmlの上に幅狭で、window.openして、データを表示している処理があります。 ボタンクリック時、window.openを行っていますが、その際のJavaScript処理は (1)現在日時を取得 (2)windowのサイズ計算（幅は情報が表示できる範囲の固定、高さはscreen.heightの半分） (3)window.openのパラメータセット key="aaa.exe（cgiアプリのexe名）?KEY=（日時）"; para="width=380,height=(2)で求めた値+他option; (4)windowをopenして位置調整 newwin = window.open(key,'infomation',para); newwin.moveTo(15,20); newwin.focus(); ・・・のような処理になっています。 これだと、methodは「GET」ですよね。 これを「POST」にする（SSL対応）処理は、どうしたらいいのでしょう？？？ 例えば、、、ダミーhtml（ダミーじゃなく、見出し部分などだけのhtml?）を作成しておき、 window.open時に、そのダミーhtmlを「https://・・・ダミーhtml」でopenし、 ダミーhtml内に、methodはpost、アクションはcgiのaaa.exe・・・のようにしておき、 onloadで処理させるのかな、、、 ・・・とも思ったのですが、その場合、パラメータとして渡す日付はどうやって渡せばいいの？？？ と、はまってしまいました。 よろしくお願いします。
- ロリポップでCGIを設置する
ロリポップでCGIの設置をする方法を教えてください。 http://sala.estrella-azul.com/download/dll.html 此方のスクリプトを使って、ロリポップに掲示板を設置したいのですが、 どうしても上手くできません。 スキンを配布してるサイト様には、アップするだけで使えると書いていたので、 cgi等スクリプトのファイルとスキンのファイルを一つのフォルダにまとめてアップして、 ページを開いてみたのですが、403と表示されてしまいます。 WAF設定の所は無効にしているのですが…。 あと、パーミッションも指定の物にあわせました。 リンクは〇〇.cgiにつなげて良いのですよね？スキンの方をリンクするのでしょうか？？ あと、CGIファイルの中身を書き換えたりしなきゃなのでしょうか？
- 締切済み
- meno_____u
- CGI
- 回答数1
- httpsへの移行について
現在httpアクセスで動いているWEBシステムを、https に移行したいとの要請を受け、 「できるか？」という質問に対して 実際のところ、https はやったことがないのですが、 「たぶん そのままでも大丈夫です」・・と言いかけたのですが、確信がもてないのでやめました。 http--->https は、どのようなところが変更になるのでしょうか？ 内部で例えば、http://・・・などでlinkしているところがあればhttpsにして、、、というようなことはわかるのですが 特にそのような箇所もありません。 システムはC++でcgiアプリケーションを、またJavaScriptを使って作成しています。 環境はWindowsのIISサーバです。 location.hrefで、静的htmlも処理によっては行っていますが、 絶対パスで動かしているところはありません。（逆にhttpsの絶対パスなどにしなけれはならなかったりしますか？） cgiアプリのプログラム的に、何か対応しなければならないことがありましたらおしえていただけないでしょうか？ SSLの設定などは担当外です。 トップページにhttpでアクセスがあったら・・・のような質問は検索すると見つかるので なんとかなるかなと思っています。 検索すると、httpからhttpsへ自動変換・・・などがあるので読んでみると、 リダイレクトの方法などの回答になっているので、アプリの改修については何かないの？ と、今ひとつ理解できないのです。 よろしくお願いします。
- CGI の動作確認方法をご教示お願いいたします
サイト内検索を付けたくて、以下のサイトよりモジュールをダウンロードしました。 http://www.synck.com/contents/download/cgi-perl/sitesearch_crw.html CGIの設定環境(CGI設置場所、Perlのパス、Encodeモジュールの存在、パーミッション) についてはサーバー管理者に確認済みで、問題ないのですが、実行してもエラーも出ず、 うんともすんとも言わない状態です。 HTML からは、以下のように呼び出しがされています。 ------------------------------------------------------------------------------- <form class="sitesearch" method="get" action="index.cgi" onsubmit="return sitesearch(this);"> <input type="text" name="q" value="" /> <input type="submit" value="サイト内検索" /> ------------------------------------------------------------------------------- action で呼び出しているindex.cgi で動いているかどうか確認する方法を 教えていただけませんでしょうか。 一応、index.cgi の最初の方にメッセージを入れてみたのですが、表示されませんでした。 以下は、index.cgi の一部です。 ------------------------------------------------------------------------------- #!/usr/bin/perl ## 京 use Encode; require './init.cgi'; &_GET; my(@keys) = split(/ /,$_GET{'q'}); print "テスト\n"; ←こんな感じにメッセージいれました。 ## int $totime = time(); if((-f $config{'cache'}) && (((stat($config{'cache'}))[9] + 60 * $config{'expiration'}) > $totime)){ ## Load Cache @pages = &_LOAD($config{'cache'}); } else{ ## Create Cache push @dirs,$config{'dir'}; while($cnt < @dirs){ $dir = $dirs[$cnt]; opendir DH, $dir or die "$dir:$!"; while (my $file = readdir DH) { next if $file =~ /^\.{1,2}$/; $currentpath = $dir . $file; if(-d $currentpath && (grep(/^${file}$/,@excluded_dirs_name)) == 0){ push @dirs, "${currentpath}/"; } elsif((split(/\./,$currentpath))[-1] =~ /htm/si){ $html = join("",&_LOAD($currentpath)); $html =~ s/\t//ig; $html =~ s/\r//ig; $html =~ s/\n//ig; my ($tilte,$snippet,$keywords,$contents,$thumbnail); if($html =~ /<title>(.*?)<\/title>/si){ $title = $1; if($title =~ /$config{'title_regex'}/){ $title = $1; } } if($html =~ /<meta.*?name=\"Description\".*?content=\"(.*?)\"/si){ $snippet = $1; } if($html =~ /<meta.*?name=\"Keywords\".*?content=\"(.*?)\"/si){ $keywords = $1; } if($html =~ /$config{'body_regex'}/){ $contents = $1; $contents =~ s/<script.*?\/script>//g; $contents =~ s/<.*?>//g; } ## Thumbnail $thumbnail_path = "${dir}images/thumb_${file}\.jpg"; if(-f $thumbnail_path){ $thumbnail = $thumbnail_path; $thumbnail =~ s/$config{'uri_replace_before'}/$config{'uri_replace_after'}/i; } @file_info = stat($currentpath); ($sec,$min,$hour,$day,$mon,$year) = localtime($file_info[9]); $file_updatetime = sprintf("%04d-%02d-%02d %02d:%02d:%02d",$year+1900,$mon+1,$day,$hour,$min,$sec); $file_size = int($file_info[7] / 1024); $currentpath =~ s/$config{'uri_replace_before'}/$config{'uri_replace_after'}/i; @page = ($currentpath,$thumbnail,$title,$snippet,$keywords,$contents,$file_updatetime,$file_size); push @pages,join("\t",@page); } } closedir DH; $cnt++; } ------------------------------------------------------------------------------- よろしくお願いいたします。
- cgiがうまく動いてくれません；；
自力でも調べてみたのですがどうしても解決できませんでした。 何卒ご教授お願いします。 http://www.gnbnet.com/ 上記サイトのDojin-Order System DXというツールがうまく動いてくれません。 サーバーはcgi可のところですしperlのパスも合っています。 cgiはサーバーの指定通り/public_html内に入れてあります。 パーミッションもサーバー推奨、cgi推奨両方とも試してみました。 …が、動きません；； なんとかしようといろいろ調べてみましたがさっぱりで。 このcgiは多くの方が利用していますので中の構成がおかしいということもないと思うのですが。 cgiに詳しい方、こちらのcgiを実際に利用していらっしゃる方など、 分かる方いらっしゃいましたらどうぞお助けください。 よろしくお願いします。 使用FTP:ＦｉｌｅＺｉｌｌａ 利用サーバー：http://www.adexd.net/
- ベストアンサー
- cotocoto510
- CGI
- 回答数2
- あるopencvのコード、なぜカラーでいいグレーが
int main( int argc, char** argv ) { Mat image = imread("test.png",1 ); Mat new_image = Mat::zeros( image.size(), image.type() ); for( int y = 0; y < image.rows; y++ ) { for( int x = 0; x < image.cols; x++ ) { for( int ll = -1; ll <= 1; ll++ ) { for( int mm = -1; mm <= 1; mm++ ) { if (x+ll >= 0 && x+ll < image.cols && y+mm >= 0 && y+mm < image.rows) { Vec3b &ff1 = image.at<Vec3b>(y+mm, x+ll); new_image.at<Vec3b>(y,x)[0] += ff1[0] / 9; new_image.at<Vec3b>(y,x)[1] += ff1[1] / 9; new_image.at<Vec3b>(y,x)[2] += ff1[2] / 9; } } } } } namedWindow("Original Image", 1); namedWindow("New Image", 1); imshow("Original Image", image); imshow("New Image", new_image); waitKey(); return 0; } このコード、なぞカラーで読み込むのはokで、１を０にして、グレーではだめですか？ もしグレーでやりたいのなら、このコードどう修正すればよろしいですか？ どうぞご指導のほどよろしくお願いいたします！
- opencvのコード、エラー発生
問題がどうしてもわかりません。 ご指導のほどよろしくお願いいたします。 int main( int argc, char** argv ) { Mat image = imread("test.png",1 ); Mat new_image = Mat::zeros( image.size(), image.type() ); for( int y = 0; y < image.rows; y++ ) { for( int x = 0; x < image.cols; x++ ) { for( int ll = -1; ll < 1; ll++ ) { for(int mm=-1; mm<1; mm++) { uchar ff1 = image.at<uchar>(x+ll,y+mm); new_image.at<uchar>(x,y) +=ff1; } } } } namedWindow("Original Image", 1); namedWindow("New Image", 1); imshow("Original Image", image); imshow("New Image", new_image); waitKey(); return 0; }