perl DBD:Mysql 接続できない
　　if ... {
my $db = DBI->connect("DBI:mysql:$DB_filename",$DB_username,$DB_pass);
} else {
my $db = DBI...
}
if (!$db_hwnd) {
print "接続失敗 $DB_filename ,$DB_username $DB_AutoCommit";
print $DBI::errstr."\n";
}
なぜぇ〜　
phpから接続可能
mysqlのサイトにいくとモジュール再インストールと書いてあったので
mysqlとモジュールを再インストール
あれ？　直らない
ということで必死で　データベースのパスワードを付けていないので
そのせいとも書いてあったので変更
あれれ？　変化無し。
ここまでの道のり２時間強・・・(>_<)
仕方がないので perlも再インストール・・・いやまて！！
なぜだ？
なぜ全部０
ん？
print $db;
っと
　　if ... {
my $db = DBI->connect("DBI:mysql:$DB_filename",$DB_username,$DB_pass);
print $db;
がーーーーーん。
　超　ミラクル　初歩的ミス
my ($db);
　　if ... {
$db =
で解決・・・・・
　いままでやったこと全部　公式サイトのデマ情報にだまされた。
なんだったんだ　忙しいのに！！！
大馬鹿！！！
　えっ、delphiやってると　わすれちゃうんですよね　変数の有効期限