perl - Class::DBI を使用して BLOB 列にバイナリ データを挿入するにはどうすればよいですか?

Question

Class::DBI を使用して新しいオブジェクトを作成したいと考えています。このオブジェクトのフィールドの 1 つは BLOB タイプです。このデータに使用したいファイルハンドルがありますが、明らかに、これを行うだけではうまくいきません:

my $item = My::Class::DBI::Class->insert({
        foo       => $bar,
        biz       => $baz,
        blob         => $my_filehandle
        });

私が見逃しているトリックはありますか？

ありがとう！

Answer 1

ファイルハンドルを読み込んで挿入する必要があります。

my $blob = do {local $/; <$my_filehandle>};
my $item = My::Class::DBI::Class->insert({
        foo       => $bar,
        biz       => $baz,
        blob         => $blob,
        });