perlからpostgresqlのsql-fileを実行したい。my $outr = $dbh->do("\i /temp/joblist/xxxxxxx.sql") ;としても、\iがエラーとなる

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

DBD::Pg::db do failed: ERROR: "i"

エラーメッセージ

該当のソースコード

perl,
posetgresql
ソースコード
my $outr = $dbh->do("\i /temp/joblist/xxxxxxx.sql")

my $outr = $dbh->do("\i /temp/joblist/xxxxxxx.sql")

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

「\i ファイル名」ってのは、psqlのメタコマンドなので、SQLではありません。
perlからpsqlコマンドを呼び出してファイルを渡して実行する（system PROGRAM LIST）か、
perl上でsqlファイルを読み込んでDBDにわたすかしましょう。

Comments

[HISASHIYOSHITAK]

回答ありがとうございます。
>perlからpsqlコマンドを呼び出してファイルを渡して実行するか
下記を試してますが、エラーになります。ご指導いただけたら、うれしいです。
my $outr = $dbh->do("psql -f /temp/joblist/ghrorghis2.sql") ;

[HISASHIYOSHITAK]

connectは下記を実施してます。
my $dbh = DBI->connect("dbi:Pg:dbname=$DB_NAME;host=$DB_HOST;port=$DB_PORT","$DB_USER","$DB_PASS")

[退会済みユーザー]

my $outr = $dbh->do() で与えられるのは、純粋にSQL文だけだと思います。
perlでシェル上のコマンドを実行するのは、例えば exec とか system とかでしょうか。
（ここ何年も実務でPerlを使ってないので、perldocを観ながら回答してます。）

[HISASHIYOSHITAK]

ご回答ありがとうございます。
基本的にpsqlのコマンドラインから¥iで実行できるfileです。複数のteableを読み込んで、複照会などを駆使して、copyでcsvに書き出してます。純粋にsqlですが、1fileで4-50行あって、20file程度を処理予定です。今のところ、systemからpsql -f xxxx.sqlになりそうです。

[退会済みユーザー]

それがいいかも。

[HISASHIYOSHITAK]

ありがとうございます。
いいところまできてます。win環境でpasswordを聞かれるので、そこをクリアーできれば、作成したsqlは問題なく動作してるので、web上にいろいろ情報もありますが、まだ、解決までいってませんが、見えてきた気がしてます。
良いヒントを頂きました。ありがとうございます。