求助正确输出HASH的数据。

墨迹哥

想尝试复原tracert的结果数据，但是dump出来以后不知道怎么弄。。
要取的信息是hops里面的信息。
程序代码如下：

1. #!/usr/bin/perl
   
2. 
   
3. use Data::Dumper;
   
4. use Net::Traceroute::PurePerl;
   
5. 
   
6. my $t = new Net::Traceroute::PurePerl(
   
7.      host           => 'www.baidu.com',
   
8.      debug          => 0,
   
9.      query_timeout  => 1,
   
10.      packetlen      => 40,
    
11.      concurrent_hops    => 2,
    
12.      protocol       => 'udp', # Or icmp
    
13. );
    
14. $t->traceroute;
    
15. print $acb;
    
16. print Dumper($t->{'hops'});
    
17. #@results=$t->pretty_print;
    
18. #@results=split(/\n/,$t->pretty_print);
    
19. #foreach my $res (@results){
    
20. #       print "aaaaaaaaaaaaa:$res\n";
    
21. #}
    
22.     # max_ttl        => 100,
    

复制代码

结构是：[code]Net::Traceroute:urePerl=HASH(0x1419c70)$VAR1 = bless( {
                 '_local_port' => 46300,
                 'query_timeout' => '1',
                 'protocol' => 'udp',
                 'packetlen' => '40',
                 'max_ttl' => '30',
                 'trace_program' => 'traceroute',
                 '_destination' => 's

pitonas

不知道怎么弄。{:2_176:}

lkk_super

普通的数据 用 YAML 模块的 dump 就能弄回去，这个 貌似不行 额  等高手解答

dqw233

$t->{'hops'} 本身就是一个hashref啊，直接->{}不就可以了么

fkiori

$temp  = Dumper($aaaaa);

$bbbbb = eval($temp);

stanley_tam

同意，虽然也是个对象。但是当hash用还是绰绰有余的。

dqw233 发表于 2013-11-21 20:18
$t->{'hops'} 本身就是一个hashref啊，直接->{}不就可以了么

104359176

Perl 语言中

1. Data::Dumper, YAML

复制代码

等模块对于对象（bless 过的散列引用)输出的数据结构表示形式和这种数据结构的字面量表示是不同的。只有 JavaScript， Lisp 的对象的打印形式和字面量形式是统一的。
解决这个问题的办法是，对这个结构进行解析，分离出散列字面量和类名，然后用代码动态的生成这个对象。

墨迹哥

回复 6# stanley_tam


    我知道，但是结构太怪异了。。

    不知道怎么还原。。但是我换了个方法写出来了。。

dqw233

回复 8# 墨迹哥


    my $h = {%{$object}};
    print dump $h;

墨迹哥

回复 9# dqw233


    我要的是把hops里面的数据循环全部打印出来。。