DIFF与单独添加和删除部分数据结构

Question

让我们说，我有以下

my $clean = { 
    foo => 1, 
    bar => 2, 
    baz => 3, 
}; 


my $dirty => { 
    foo => 1, 
    bar => 3, 
    blargh => 4, 
}; 


my $differ = Differ->new; #made up object 

$differ->compare($clean, $dirty); 


$differ->added; # blargh 
$differ->removed; # baz 
$differ->updated; # bar 

以上，也许是什么I'my试图做（一个非常新颖的例子，我的收益可能不足够复杂）。有没有可以为我做这个的模块？

我基本上试图找出如何计算通过改变发送到远程服务器的内容。模块理论上应该能够处理包括阵列在内的复杂数据结构（不需要自引用）

Answer 1

Data :: Diff并不完全具备您所期望的漂亮的OO接口，但它似乎可以招。

#!/usr/bin/env perl 

use strict; 
use warnings; 
use feature 'say'; 

use Data::Diff; 

my $clean = { 
    foo => 1, 
    bar => 2, 
    baz => 3, 
}; 

my $dirty = { 
    foo => 1, 
    bar => 3, 
    blargh => 4, 
}; 

my $diff = Data::Diff->new($clean, $dirty)->raw(); 

say "Added: ", join(", ", sort keys %{ $diff->{uniq_b} }); 
say "Removed: ", join(", ", sort keys %{ $diff->{uniq_a} }); 
say "Updated: ", join(", ", sort keys %{ $diff->{diff} }); 

其中按您的输出示例：

alex@yuzu:~$ ./data_diff.pl 
Added: blargh 
Removed: baz 
Updated: bar