PerlでPostgreSQL

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

25(4): 名無しさん＠お腹いっぱい。 [　] 01/12/22 14:59 ID:??? AAS
$conn->exec("begin");
$pic = $conn->lo_open(OID, "PGRES_INV_READ");
print "$pic\n";
$conn->lo_close($pic);
$conn->exec("commit");

Ｐｇ使用
これでやったけど絵が表示できないっす。根本的に何か間違ってるっすかね？

26: 25 [　] 01/12/22 18:50 ID:??? AAS
自己訂正

$conn->exec("begin");
$fd = $conn->lo_open(OID, "PGRES_INV_READ");
$bite = $conn->lo_read($fd, $pic,30000);
print "$pic\n";
$conn->lo_close($fd);
$conn->exec("commit");

表示ヘッダはimage/jpegで内容も当然jpgです。
様々と試してみたのですがバイナリをそのまま文字として吐き出してる
のでしょうか？文字化けしたような文字が出てくるだけです。

28: 名無しさん＠お腹いっぱい。 01/12/22 21:25 ID:??? AAS
>>25

print $pic;
じゃ駄目かな？？よくわからないけど。
""が怪しい

30(1): 25 [　] 01/12/23 13:30 ID:??? AAS
自己レス

$conn->exec("begin");
$fd = $conn->lo_open(OID, "PGRES_INV_READ");
$bite = $conn->lo_read($fd, $pic,30000);
binmode STDOUT;
print $pic;
$conn->lo_close($fd);
$conn->exec("commit");

としてみてもだめだね、なんだろう？
pgsql-jp MLの検索で同じようなのを見つけてその解決スクリプトみたいなのを
省3

31(1): 25 [　] 01/12/23 16:01 ID:??? AAS
さらに自己レス

>>30で試したものを通常のＲｅｄＨａｔ７入ったサーバーで試したら
動きました。
ＲＱ３のＰｏｓｔｇｒｅＳＱＬのバージョンの問題でしょうか？

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.012s