1

PHP::Serialization在尝试序列化HTTP::Response时会出错。

示例如下。有什么提示吗？

#!/usr/bin/perl -w

use strict ;
use warnings ;
use LWP ; 
use PHP::Serialization qw(serialize unserialize); 


my $url = 'http://stackoverflow.com/' ; 
my $ua  = LWP::UserAgent->new() ;
my $page = $ua->get($url) ; 

print "HTML page is ". length($page)." bytes long.\n" ; 
print $page ; print "\n" ; 

my $buffer ; 
eval { $buffer = serialize($page); } ; die $@ if $@ ;    


open FH, '>stored.dat' or die "Cannot create store file $!" ; 
binmode FH ; 
print FH $buffer ; 
close FH ;

执行给出：

HTML 页面长 30 个字节。
HTTP::响应=哈希（0x901f110）
不是 /usr/local/share/perl/5.10.1/PHP/Serialization.pm 第 454 行的 HASH 参考。

在我的序列化/反序列化实验中更进一步，我尝试了 FreezeThaw
包。正如您在以下代码段中看到的那样，它可以工作，但我遇到了另一个问题。
重建（反序列化）对象没有类型，因此我不能使用它的方法。我也不能
“祝福”它，因为它是“非参考”。

我应该如何解决这个问题？ 

#!/usr/bin/perl -w

use strict ;
use warnings ;
use HTML::Parser ; 
use HTML::Form ; 
use HTTP::Response ; 
use LWP ; 

use FreezeThaw qw(freeze thaw cmpStr safeFreeze cmpStrHard);

my $url = 'http://stackoverflow.com/' ; 
my $ua  = LWP::UserAgent->new() ;
my $page = $ua->get($url) ; 

print "HTML page is ". length($page)." bytes long.\n" ; 
print $page ; print "\n" ; 
print $page->status_line(), "\n" ; 

my $buffer ; 
eval { $buffer = freeze($page); } ; die $@ if $@ ;    

print "Serdes buffer is ". length($buffer)." bytes long.\n" ; 

open FH, '>stored.dat' or die "Cannot create store file $!" ; 
binmode FH ; 
print FH $buffer ; 
close FH ; 

my $otherb ; 
open FH, '<stored.dat' or die "Cannot open store file $!" ; 
binmode FH ; 
$otherb = do { local($/); <FH> } ; 
close FH ; 

print "Serdes buffer is ". length($otherb)." bytes long.\n" ; 

my $proto = HTTP::Response->new() ; 
my $recpg ; 

eval { $recpg = thaw ($otherb); } ; die $@ if $@ ; 

print $recpg ; 
#bless $recpg, ref($proto)||$proto ; 
bless $recpg, "HTTP::Response" ; 
print $recpg ; 

#print $recpg->status_line(), "\n" ;

执行给出： 

% ./serdesLab2.pl 
HTML page is 30 bytes long.
HTTP::Response=HASH(0x970ea10)
200 OK
Serdes buffer is 214347 bytes long.
Serdes buffer is 214347 bytes long.
Can't bless non-reference value at ./serdesLab2.pl line 45.
1% 
%

感谢您提供任何可能的解决方案。

4

2 回答 2

1

当你这样做

my $page = $ua->get($url);

你得到一个HTTP::Response对象。您需要调用该$response->content方法来获取响应的内容。

my $response = $ua->get($url);
die "didn't get a page: ".$response->status_line."\n" unless $response->is_success;
my $page = $response->content;

错误消息抱怨 PHP::Serialize 不知道如何序列化不是普通 perl HASH/ARRAY ref 的东西（在这种情况下可能是 CODE ref）。

于 2012-06-28T01:29:29.503 回答
0

HTTP::Response和/或HTTP::Request对象（我不记得是哪个）有一个成员_uri，通常是URI。该对象是一个祝福的标量参考。

环顾报告错误的行，似乎PHP::Serialization认为所有对象都是基于哈希的。因此，当它遇到一个受祝福的标量参考对象时，它会窒息。

笔记：

=head1 TODO

支持不同的对象类型

我不知道能够建议补丁的序列化格式，但修复看起来像：

elsif ( $type eq 'obj' ) {
    my $class = ref($val);
    $class =~ /(\w+)$/;
    my $subclass = $1;

    my $reftype = reftype $val;
    if ($reftype eq 'HASH') {
        # blessed hash serialization
    }
    elsif ($reftype eq 'ARRAY') {
        # blessed array serialization
    }
    elsif ($reftype eq 'SCALAR') {
        # blesssed scalar serialization
    }
    elsif ($reftype eq 'CODE') {
        # blessed coderef serialization
    }
    elsif ($reftype eq 'GLOB') {
        # blessed globref serialization
    }
    else {
        # etc etc
    }

哪里reftype来自Scalar::Util。事实上，如果只是在遇到不支持的类型时发牢骚，填充这些分支或将其转换为调度表会很有用。

于 2012-06-28T01:41:55.027 回答