ソースコードがそのまま表示されてしまう

締切済

質問者：aeic
質問日時：2001/07/13 09:30
回答数：3件

turbolinuxのマシンにapache,mysql,perlを入れてデータベースを動かそうと思っています。

実際に動くかどうか動作確認をしてみました。
最初にindex.htmlを先頭に持っていかないとだめだという事なので最初にindex.htmlを置きその後ろにcgiファイルを置いてみました。

ブラウザー上から確認してみると
index.htmlは表示されました。
そこからcgiファイルにリンクしてある仕組みになっています。
リンクのボタンをクリックするとcgiファイルのソースがブラウザー上に出てきてしまい、肝心の処理結果が出てきません。
自分のソースが間違っているのではないかと思い、あれこれやってみましたができません。
apacheの設定がわるいのでしょうか？
どうか教えて頂ける方おりますでしょうか？
お願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： natural
回答日時：2001/07/13 18:02

naturalです。

補足読みました。(^_^)
ソースの先頭行を次の様に変更してみてください。

#!/usr/bin/perl

（usrの前にも/は入っていなければいけません）
これで駄目なら今度は以下の様にしてみてください。

#!/usr/local/bin/perl

試してみてください。

- 0
- 件

通報する

No.2

回答者： natural
回答日時：2001/07/13 13:00

過去の質問に似たものがありました。

同様の方法で解決できると思うので覗いてみてください。

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=86752

この回答への補足

返答して頂きてありがとうございます。
いろいろな参考書等をよみあさりCGIを
起動させるためには"home/httpd/cgi-bin/***.cgi"
とおいてＩＥで観覧してみました。
ところが以下のようなerrorが出てしまいました。

参照＠＠＠＠
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, mail@it-service.co.jp and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.
--------------------------------------------------

とりあえずこの文面に対していろいろな調査をした結果
下記の事が疑われるという事だったので直してみたのですができませんでした。
１プログラムの問題
問題ないと思ってる（かな？）
２文字コード、改行コードがＵＮＩＸの物と違う
FFFTPにてEUC-JP,LFモードにしてアップしました。
パーミッションを705に設定しました。

データベースを呼び出すプログラムです。
Mysqlを使ってます。
MysqlもDBIモジュールもインストール済みですし、テーブルも入っています。
但し、テーブルのフィールドだけでレコードデータが入っていない状態です。

下記にそのソースを示します。
どうかたすけていただけないでしょうか？

#!usr/bin/perl

use DBI;
my($dns) = "DBI:mysql:itser:192.168.0.29";
my($username) = "root";
my($password) = "654321";

my($dbh, $sth);
my(@ary);

$dbh = DBI -> connect ($dns ,$username ,$password)
or &Error("データベースへアクセスできません。");

$sth = $dbh->prepare("select * from itser");
$sth -> $execute() or &Error("MySOLコマンドは実行できません");

print "Content-Type: text/html\; charset=shift_jis\n\n";
print "<PRE>\n";
while (@ary = $sth -> fetchrow_array())
{
print join ("\t", @ary), \n;
}
print "</PRE>\n";

$sth = finish();

$dbh -> disconnect();
exit;

sub Error {
print "Content-type: text/html\; charset=shift_jis\n\n";
exit;
}