質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

91.25%

  • HTML

    6444questions

    HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

  • SQL

    1756questions

    SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

  • Webサイト

    815questions

    一つのドメイン上に存在するWebページの集合体をWebサイトと呼びます。

  • PostgreSQL

    749questions

    PostgreSQLはオープンソースのオブジェクトリレーショナルデータベース管理システムです。 Oracle Databaseで使われるPL/SQLを参考に実装されたビルトイン言語で、Windows、 Mac、Linux、UNIX、MSなどいくつものプラットフォームに対応しています。

  • Perl

    361questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

CGIファイル、HTMLファイル、SQLファイルを用いてデータベースサイトを構築するときのエラー

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 108

ranranway

score 109

前提・実現したいこと

Perlで書かれたCGIファイル、HTMLファイル、SQLファイルを用いてデータベースサイトを作成しようとしています。国名入力し、検索すると国旗の画像、国名、年が表示されるように実装したいです。
記載しているコードとは別にPerlで書かれたモジュールファイル(拡張子.pm)も作成してあります。

発生している問題・エラーメッセージ

SELECT * FROM flag WHERE cname= 'France';


とSQL分だけが表示され、検索結果が出てこないというエラーが生じています。
アドバイスのほどよろしくお願いいたします。

該当のソースコード

DROP TABLE IF EXISTS flag;
CREATE TABLE flag ( 
       ID varchar(1024),
       cname varchar(30),
       fyear integer
);

INSERT INTO flag (ID, cname, fyear) VALUES (
'https://upload.wikimedia.org/wikipedia/en/thumb/c/c3/Flag_of_France.svg/1280px-Flag_of_France.svg.png','France', 1794);
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">
<title>国名検索</title>
</head>
<body>
<form action="pgconnect.cgi" method="get">
<p>Country Name<input type="text" name="cname" value="France" size="20" /></p>
<p><input type="submit"/></p>
</form>
</form>
</body>
</html>
#!/usr/bin/perl
use CGI;
use psql;

my $cgi = new CGI;
$cgi->charset('euc-jp');
print $cgi->header,
      $cgi->start_html(-title=>'検索結果', -lang=>'ja-JP');

my $conn = psql->connect;

my $query = $conn->quote($cgi->param('title'));
if (length($cgi->param('title')) > 0) {
    $sql = "SELECT * FROM flag WHERE cname= $query;";
} else {
    $sql = "SELECT * FROM flag;";
}

my $sth = $conn->prepare($sql);
my $ref = $sth->execute;

print $cgi->h2('PostgreSQL on CNS'),
      $cgi->p($cgi->escapeHTML($sql));
while(my $arr_ref = $sth->fetchrow_arrayref){
    my ($ID, $cname, $fyear) = @$arr_ref;
    my $url  = $cgi->escapeHTML($id);
    my $text = $cgi->escapeHTML("$cname, $fyear");
    my $img  = $cgi->img({width=>100, src=>$url});
    print $cgi->a({href=>$url}, $img),
          $cgi->span($text),
          $cgi->br;
}
print $cgi->end_html;

$sth->finish;
$conn->disconnect;

exit;

試したこと

Perlで書かれたCGI用のコードが怪しいと考え、SQLと同じ変数名にしようと変更しましたが

print $cgi->h2('PostgreSQL on CNS'),
      $cgi->p($cgi->escapeHTML($sql));
while(my $arr_ref = $sth->fetchrow_arrayref){
    my ($ID, $cname, $fyear) = @$arr_ref;
    my $url  = $cgi->escapeHTML($id);
    my $text = $cgi->escapeHTML("$cname, $fyear");
    my $img  = $cgi->img({width=>100, src=>$url});
    print $cgi->a({href=>$url}, $img),
          $cgi->span($text),
          $cgi->br;


ここの部分を正しく書くことができていないために、画像や検索結果が表示されないのではないかと考えています。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • KojiDoi

    2017/12/14 00:29

    perlとrubyの区別もつかないレベルでいきなりcgiは無謀ではないでしょうか。まずコマンドラインでそのcgi用スクリプトがきちんと動くことを確認するのが先と思います。また、プログラムの構造上の問題が解決したとしても、文字コード設定がバラバラなのでおそらくこのままでは文字化けすると思います。

    キャンセル

  • ranranway

    2017/12/14 07:39

    ご意見をいただきましてありがとうございます。しかしながら締め切りがあり、PerlとRubyを学習する時間がなく、困っている状態です。文字コード設定に関しましては、ご指摘いただきましてありがとうございます。

    キャンセル

  • scivola

    2017/12/15 02:05

    テーブルに正しくレコードが作られていることはどうやって確かめられましたか?

    キャンセル

回答 1

checkベストアンサー

+1

フォームでは検索キーワードを

<input type="text" name="cname" value="France" size="20" />

と cname で送っているのに,CGI 側では

my $query = $conn->quote($cgi->param('title'));

と title で受けているのはなんだか変ですね。

ただ,画面には

SELECT * FROM flag WHERE cname= 'France';

と SQL 文が表示されるのですよね???

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

ただいまの回答率

91.25%

関連した質問

同じタグがついた質問を見る

  • HTML

    6444questions

    HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

  • SQL

    1756questions

    SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

  • Webサイト

    815questions

    一つのドメイン上に存在するWebページの集合体をWebサイトと呼びます。

  • PostgreSQL

    749questions

    PostgreSQLはオープンソースのオブジェクトリレーショナルデータベース管理システムです。 Oracle Databaseで使われるPL/SQLを参考に実装されたビルトイン言語で、Windows、 Mac、Linux、UNIX、MSなどいくつものプラットフォームに対応しています。

  • Perl

    361questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • トップ
  • HTMLに関する質問
  • CGIファイル、HTMLファイル、SQLファイルを用いてデータベースサイトを構築するときのエラー