Perl和MongoDB二进制数据

前端之家收集整理的这篇文章主要介绍了Perl和MongoDB二进制数据前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
MongoDB手册:

By default,all database strings are UTF8. To save images,binaries,
and other non-UTF8 data,you can pass the string as a reference to the
database.

我正在抓取页面并希望存储内容以供以后处理.

>我不能依赖@R_403_338@-charset,因为很多页面都有utf8内容错误地声明了iso-8859-1或类似内容
>所以不能使用Encode(不知道原始字符集)
>因此,我希望将内容简单地存储为字节流(二进制数据)以供以后处理

我的代码片段:

sub save {
    my ($self,$ok,$url,$fetchtime,$request ) = @_;

    my $rawhead = $request->headers_as_string;
    my $rawbody = $request->content;

    $self->db->content->insert(
        { "url" => $url,"rhead" => \$rawhead,"rbody" => \$rawbody } ) #using references here
      if $ok;

    $self->db->links->update(
        { "url" => $url },{
            '$set' => {
                'status'       => $request->code,'valid'        => $ok,'last_checked' => time(),'fetchtime'    => $fetchtime,}
        }
    );
}

但得到错误

Wide character in subroutine entry at
/opt/local/lib/perl5/site_perl/5.14.2/darwin-multi-2level/MongoDB/Collection.pm
line 296.

这是我存储数据的唯一地方.

问题:在MondoDB中存储二进制数据的唯一方法是对它们进行编码,例如:用base64?

解决方法

它看起来像是另一个关于_utf8_ flag的悲伤故事……

我可能错了,但似乎HTTP :: Message的headers_as_string和content方法将它们的字符串作为字符序列返回.但MongoDB驱动程序期望显式传递给它的字符串作为’二进制文件’成为八位字节序列 – 因此警告剧.

一个相当丑陋的解决方法是在你的代码删除$rawhead和$rawbody上的utf8标志(我不知道它应该由MongoDB驱动程序本身完成吗?),通过这样的东西……

_utf8_off $rawhead; 
_utf8_off $rawbody; # ugh

另一种方法是使用encode(‘utf8’,$rawhead) – 但是当你从DB中提取值时你应该使用decode,我怀疑它不是更丑陋.

猜你在找的Perl相关文章