active perlでdbi-connect処理から戻ってきません。教えてください。
以下のテスト的なプログラムで試しました。
Xには、数字が入ります。(会社のファイルサーバーになります)
DBI->connectから戻ってきていないようです。(hhhhhhhhが表示されません)
ちなみにDBI->connectをコメントにすれば表示されます。
申し訳ありませんが、どなたかご存知の方いらっしゃらないでしょうか?
エラーがかえってこないと、何が悪いかわかりません。
困っています、宜しくお願いします。
ちなみにPerlは、Ver. 5.8.7.813でdbi,dbd-oracleは、昨日ppmでダウンロードしました。
# DBへコネクトする
my $datasource = 'dbi:oracle:usrDB:xxx.xxx.x.xx:8080' ;
my $usr = 'usrname' ;
my $pass = 'usepass' ;
my $dbh = DBI->connect($datasource,$usr,$pass) ;
print "hhhhhhhhhhhh\n" ;
if( ! $dbh ){
print "gggggggggggg\n" ;
}
$dbh->disconnect();
No.1ベストアンサー
- 回答日時:
ここらへんを見ると
$dbh = DBI->connect("dbi:Oracle:host=xxx.xxx.xxx.xxx;sid=usrDB;port=8080",$user, $pass);
みたいに書くようですよ。ただ、Oracleは使ったことないんで間違っているかもしれません。
ところで、8080ポートに接続しているということはWebプロキシに接続に行っているみたいなんですが、ポート番号は合っていますか?
ちなみに、SQLiteの例ですが、トレースを出したいときは以下のようにします。Oracleでも似たような出力を出すことができると思います。以下、表示がくずれすので空白2文字を全角空白で書いていることに注意。
use strict;
use warnings;
use DBI;
# DB Name
my $db_name = 'sqlite_test.db';
# Disable buffering
$| = 1;
# Connect to the database
my $dbh = DBI->connect(
'dbi:SQLite:dbname=' . $db_name,
'', '',
{ PrintError => 1, ### Do report errors via warn()
RaiseError => 0, ### Don't report errors via die()
TraceLevel => 5
}
) or print DBI->errstr;
# Disconnect from the database
$dbh->disconnect;
これを実行すると以下のような出力が出てきます。
DBI::db=HASH(0x9dda3a8) trace level set to 0x0/5 (DBI @ 0x0/0) in DBI 1.605-ithread (pid 4982)
<> FETCH= 5 ('TraceLevel' from cache) at /usr/lib/perl5/DBI.pm line 693
-> STORE for DBD::SQLite::db (DBI::db=HASH(0x9dda3a8)~INNER 'Username' '') thr#9c7d008
....
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- Perl perlをバージョンアップしたら、今まで正常に動いていたプログラムが、エラーになってしまった 3 2022/10/05 15:44
- PHP PHP ページング データベース 1 2022/06/16 10:30
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- オープンソース AWSドメイン名でApacheテスト・ページを表示させる方法を教えて下さい。 1 2023/04/26 15:59
- MySQL データベースの複製の仕方(mysql) 2 2023/05/30 18:24
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- その他(ソフトウェア) Microsoft Store Guitar Pro購入後の質問 1 2022/08/11 17:15
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- CGI 古ーくからフリーのtree.cgi掲示板を利用させてもらって来ましたが、最新でなにか復活できないか? 2 2023/04/07 10:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
fetchrow_arrayとfetchrow_hash...
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
Form間の値の渡し方
-
VBAで別モジュールへの変数の受...
-
例外処理のフローチャートの記...
-
モジュールの最大数はいくつな...
-
VBAで旧字体を異字体に一括で変...
-
Excel VBA 『Call』で呼び出す...
-
Excel VBAで、ユーザーフォーム...
-
モジュールとは何ですか
-
VBでグローバル変数を宣言するには
-
LCD ディスプレイを Raspberry ...
-
ベースモジュールって?
-
本当にPublicな変数(配列で)
-
エクセルVBAでシートモジュール...
-
Perlソースコードをコンパイル...
-
Excel VBAで、ユーザーフォー...
-
EXECEL VBA コマンドボタンか...
-
VBA モジュールを閉じるショー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
fetchrow_arrayとfetchrow_hash...
-
perlでdb(mysql)に接続
-
perlのdbi-connect処理のエラー
-
PerlソースでのSQLのエラーにつ...
-
PerlでMySQLのテーブル一覧取得
-
ActivePerl を使用して MySQL に
-
MySQLのトランザクションについて
-
テキストデータをpostgreSQLの...
-
CGIからデータベースにデータを...
-
データベースにアクセス出来ま...
-
perlでのDBI接続
-
CGI(perl)データベースを教えて...
-
DBIでメールアドレスにマッチさ...
-
データベースへのデータの受け渡し
-
Oracleのデータベースに接続で...
-
ファイルデータ内容を SQL条件...
-
例外処理のフローチャートの記...
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
おすすめ情報