如何将二进制数据插入Class :: DBI的BLOB列中？

Question

我想用Class :: DBI创建一个新的对象。此对象的其中一个字段是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, 
     });