perl to php翻譯

Question

如何將此perl子例程轉換爲PHP函數？

sub disagreement { 
    my $disagreement = 0; 
    my %aggregate =() ; 
    foreach my $item (@_) {$aggregate{$item}++} 
    foreach my $cat_a (keys %aggregate) { 
    foreach my $cat_b (keys %aggregate) { 
     if ($cat_a != $cat_b) {$disagreement += $aggregate{$cat_a} * $aggregate{$cat_b} * &$distance_metric ($cat_a , $cat_b)} 
    } 
    } 
    $disagreement /= @_ * (@_ - 1) ; 
    return ($disagreement) ; 
} 

我這裏有一個問題：

foreach my $cat_a (keys %aggregate) { 
    foreach my $cat_b (keys %aggregate) { 
    } 
} 

Answer 1

// &$... is a value reference instead of a value copy, when in doubt use $... 
foreach ($aggregate as $cat_a => &$val_a) { 
    foreach ($aggregate as $cat_b => &$val_b) { 
    if ($cat_a !== $cat_b) $disagreement += $val_a * $val_b ...; 
    } 
} 

Answer 2

foreach my $cat_a (keys %aggregate) 

成爲

foreach ($aggregate as $key => $cat_a) 

假設$骨料是一個關聯數組。