mysqlのデータをperlで読み込んで????を表示される

解決済

質問者：yuki833
質問日時：2007/03/21 13:04
回答数：1件

過去にもあった質問なのですが、アドバイスお願いします。
perlからmysqlにアクセスしてデータを読み込むと日本語が「??????」と表示されます。
バージョンは下の通りです。
perl:ActivePerl-5.8.8.820-MSWin32-x86-274739
mysql:5.0
OS:windowsXP

mysqlの文字コードはstatusで確かめました。
mysql> status;
--------------
mysql Ver 14.12 Distrib 5.0.27, for Win32 (ia32)

Connection id: 74
Current database:
Current user: ******@localhost
SSL: Not in use
Using delimiter: ;
Server version: 5.0.27-community-nt
Protocol version: 10
Connection: localhost via TCP/IP
Server characterset: sjis
Db characterset: sjis
Client characterset: sjis
Conn. characterset: sjis
TCP port: 3306
Uptime: 3 hours 39 min 2 sec

Threads: 1 Questions: 232 Slow queries: 0 Opens: 26 Flush tables: 1 Open ta
bles: 0 Queries per second avg: 0.018
--------------

mysql> SELECT * FROM table1
と打てば、日本語は表示されます。

perlのコードのコードを書きます。

#!C:/usr/local/Perl/bin/perl
print "Content-type: text/html;charset=Shift_JIS\n\n";
use DBI;
$user = '***';
$passwd = '***';
$sql="SELECT * FROM categ";
----略(HTMLタグ)------
$db = DBI->connect('DBI:mysql:board:localhost', $user, $passwd);
$sth = $db->prepare($sql);
$sth->execute;
$num_rows = $sth->rows;
$categ_num=$num_rows;
for ($i=0; $i<$num_rows; $i++) {
@a = $sth->fetchrow_array;
print"$a[0] $a[1]<br>";
}
$sth->finish;
$db->disconnect;
----略(HTMLタグ)------
結果
0 ?????
1 ?????

ブラウザで文字の種類を変えても「?????」のままです。
mysqlのテーブルから取り出した値をjcode.plで変換しても変わらないようです。
&jcode::convert(\$categ[$i], "sjis");
print"<tr><td>no:$i $categ[$i] </td></tr>";

まだ、設定の足りないところがあるのでしょうか。
アドバイスお願いします。