Perlデータベース接続

Question

私はperlで新しく、DBIを使用してデータベースに接続する必要があります。

use LWP::Simple; 
use XML::Simple qw(:strict); 
use Data::Dumper; 
use DBI; 
use Getopt::Long; 
use IO::Uncompress::Gunzip qw(gunzip $GunzipError); 
use IO::File; 
use warnings; 

$dbh = DBI->connect("dbi:ODBC:DSN=$dbName;Server=$dbHost", 
        $dbUser, 
        $dbPassword); 


    if (!$dbh) { 
    &logMsg(0, "$DBI::errstr"); 
    die; 
    } else {&logMsg(0,"Connection to $dbName DB OK")} 

すでに$ dbName、$ dbHost、$ dbUserおよび$ dbPasswordの値を設定しています。そのような接続は失敗しましたが、何のエラーもありませんでした。私もログファイルをチェックし、何も表示されていません。エラーをチェックするために私は何ができますか？コメントと助けをありがとう。

Answer 1

logMsgが機能しない限り、コードに問題はありませんが、DBIを使用するのは面倒な方法です。

DBIに何か問題がないかどうかを確認するのではなく、エラーをスローするようにDBIを設定する方がはるかに優れています。 RaiseErrorでこれを行うことができます。 DBIは、接続しようとするなどの障害が発生し、持っている場合

my $dbh = DBI->connect(
       "dbi:ODBC:DSN=$dbName;Server=$dbHost", 
       $dbUser, $dbPassword, 
       { RaiseError => 1 } 
     ); 

は今、それはエラーをスローし、プログラムを停止します。これにより、データベースを使用するたびにエラーをチェックする必要がなくなります（忘れることになります）。

Answer 2

DBI; 
$dbh = DBI->connect('Your_Database_Name', 'user_id','Password'); 
my $sth = $dbh->prepare ("select * from Table_name"); 
$sth->execute(); 
my @row_ary = $sth->hetshrow_array; 
foreach $item (@row_ary) 
{ 
print "$item\n"; 
}