如何將二進制數據插入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, 
     });