求助正確輸出HASH的數(shù)據(jù)。

墨跡哥

想嘗試復原tracert的結(jié)果數(shù)據(jù)，但是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,
    

復制代碼

結(jié)構(gòu)是：[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

普通的數(shù)據(jù) 用 YAML 模塊的 dump 就能弄回去，這個 貌似不行 額  等高手解答

dqw233

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

fkiori

$temp  = Dumper($aaaaa);

$bbbbb = eval($temp);

stanley_tam

同意，雖然也是個對象。但是當hash用還是綽綽有余的。

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

104359176

Perl 語言中

1. Data::Dumper, YAML

復制代碼

等模塊對于對象（bless 過的散列引用)輸出的數(shù)據(jù)結(jié)構(gòu)表示形式和這種數(shù)據(jù)結(jié)構(gòu)的字面量表示是不同的。只有 JavaScript， Lisp 的對象的打印形式和字面量形式是統(tǒng)一的。
解決這個問題的辦法是，對這個結(jié)構(gòu)進行解析，分離出散列字面量和類名，然后用代碼動態(tài)的生成這個對象。

墨跡哥

回復 6# stanley_tam


    我知道，但是結(jié)構(gòu)太怪異了。。

    不知道怎么還原。。但是我換了個方法寫出來了。。

dqw233

回復 8# 墨跡哥


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

墨跡哥

回復 9# dqw233


    我要的是把hops里面的數(shù)據(jù)循環(huán)全部打印出來。。