mysql:6036

川合孝典です。

なんとなくユーザのような気もしますが、それについては
他の方から既にメールが来ているようなので、そちらを
ご覧になっていただくということで。

----- Original Message -----
From: "tk" <tk@xxxxxxxxxx>
To: <ml@xxxxxxxxxx>
Sent: Thursday, August 29, 2002 7:06 PM
Subject: [mysql 06029] Re: コマンドラインとブラウザー


> 佐久間さん、川合さん、田中さん
> さっそくの回答ありがとうございます。
>
> HTTPヘッダー、perlのパス等は、OKです。
> 同じディレクトリに、MySQLの部分を削除したperlファイルをUPしたところ、
> ブラウザで問題なく表示されました。
（以下略）
エラーログは確認されましたか？まずは最初にどこがコケているかを
特定したほうがいいとは思います。
CGI::Carpを使うのが簡単だと思います。標準で入っているはずですし。
そうでもなければ下記の例のようにevalで囲んで、そのエラーを
見てみては？
＃状況からすると、connectエラーになっている可能性が高いと
＃思いますが、念のため

[例]
#!/usr/bin/perl
use strict;
#use CGI::Carp qw(fatalsToBrowser); #とりあえずコメントアウトしてある
use DBI;
my $sMsg='';
eval {
        my $hDb = DBI->connect('dbi:mysql:test', 'root', '',
        {PrintError=> 0, AutoCommit=>1, RaiseError=>1})
        or die 'CONNECT ERROR';
        my $hSt = $hDb->prepare("SELECT * FROM GAZOU_NAIYOU1");
        $hSt->execute();
        my $raCol = $hSt->{NAME};
        $sMsg = join("\t", @$raCol) ."<BR>\n";
        my $raDt;
        while($raDt = $hSt->fetchrow_arrayref()) {
            $sMsg .= join("\t", @$raDt) . "<BR>\n";
        }
        $hSt->finish;
        $hDb->disconnect;
};
$sMsg=$@ if($@);
print<<EOD;
Content-Type: text/html

<HTML>
<BODY>
$sMsg
</BODY>
</HTML>
EOD

===================================================
川合 孝典 (Hippo2000)
   DBI日本語メーリングリスト管理人、Kansai.pm所属
   kwitknr@xxxxxxxxxx GCD00051@xxxxxxxxxx
   http://member.nifty.ne.jp/hippo2000、http://www.hippo2000.info/
「MySQL&Perl Webアプリケーション開発」の発売中
   http://member.nifty.ne.jp/hippo2000/mysqlperl.htm
===================================================