5

我最近将一些 Perl 代码从 SunSolaris 迁移到 64 位的 Linux(Ubuntu) 机器上。迁移后Storable.pm出现以下错误:

Byte order is not compatible at /usr/lib/perl/5.18/Storable.pm, at /home/VD/Cache.pm line 347.

在互联网上进行了一些研究后,我发现我需要使用nfreeze而不是thaw,但现在我收到以下错误:

not a reference at /home/VD/Cache.pm line 347.

任何建议如何解决这个问题?

    sub get
    {
      my($self, $type, $param_ref) = @_;
       #return 1 if(!$self->{'INI'}{'sf.system.cache.enabled'});

if($self->{'INI'}{'sf.system.cache.database.enabled'})
{
    ### DATABASE
    my $param = $self->SF::Cache::convert_parameter($type, $param_ref);

    if($self->SF::Cache::CACHE_TABLE_USERCONTENT && $$param{'type'} == 2)
    {
        ### user-content
        my $query = 'SELECT PARAM_CONTENT AS C, DATA AS D FROM    sf_cache_usercontent WHERE SITE=? AND PARAM_USER=?';
        my $bindvar = { 1=>$self->{'site'}, 2=>$$param{'user'} };
        my $sth = $self->db_select($query, $bindvar);
        #print SF::Util::debug_dumpquery($query, $bindvar);
        return undef if($self->{'Error'});

        my %usercontent;
        undef(%usercontent);
        while(my $hashref = $self->db_fetch($sth))
        {
            $usercontent{$$hashref{'C'}} = $$hashref{'D'};# ? 1 : 0;
        }

        return \%usercontent;
    }
    else
    ### ******************************************************************************************************
    {
        my $ret = $self->SF::Cache::get_database('DATA', $param);

        return Storable::nfreeze($ret) if(defined $ret);
    }
}
else
{
    ### FILESYSTEM
    my $filename = $self->SF::Cache::filename($type, $param_ref);
    if($filename && -e $filename)
    {
        if($self->{'INI'}{'sf.system.cache.lock.enabled'} && defined  &lock_retrieve)
        {
            return lock_retrieve $filename;
        }
        else
        {
            return retrieve $filename;
        }
    }
    else
    {
        $! = 0;
    }
}
return undef;
}
4

2 回答 2

1

回到你原来的系统,thaw然后nfreeze在那里修复它的文件。

perl -MStorable=nstore,retrieve -e'nstore(retrieve($ARGV[0]), $ARGV[1])' file fixed
于 2015-06-12T14:34:16.677 回答
0

所以,“不是参考”意味着......正是它在锡上所说的。您可以尝试Data::Dumper从评论中打印东西吗?它是这一行:

return Storable::nfreeze($ret) if(defined $ret)

所以 - 做什么:

print Dumper $ret; 

生产?是参考吗?

我不太确定需要nfreeze而不是 是正确的thaw,因为它们都做不同的事情。freeze打包一个变量;thaw解压它。所以nfreeze可以更换freeze

但是这样做的核心目的是将打包的标量转移到另一个架构上的另一个程序。这是你在做什么?

如果是这样,我可以建议改为考虑转移它吗JSONXML

于 2015-06-12T10:21:20.330 回答