Perl'de {$ histogram {$ value} ++} ne anlama geliyor?

Question

başlığında kodu için tüm alt rutindir:

sub histogram { # Counts of elements in an array 
    my %histogram =() ; 
    foreach my $value (@_) {$histogram{$value}++} 
    return (%histogram) ; 
} 

(Gerçekten Perl şey bilmiyorum ben PHP için bir Perl komut dosyası çevirmek için çalışıyorum ve onunla zorluklar yaşıyorum ama Deniyorum).

Peki bu {$histogram{$value}++}'u PHP'ye nasıl koyarım?

Teşekkürler!

Answer 1

<?php 
    $histogram = array_count_values($array); 
?> 

Answer 2

{$histogram{$value}++} bir bloğu tanımlar ve Perl'de bir satırın son satırının sonlanma noktalı virgülüne ihtiyacı yoktur, bu nedenle {$histogram{$value}++;}'a eşdeğerdir.

Şimdi PHP'de karma eşdeğer bir ilişkisel dizidir ve biz bu dizideki öğeleri erişmek için [] kullanın:

$hash{$key} = $value;  // Perl 
$ass_array[$key] = $value; // PHP 

PHP eşdeğer fonksiyon olacaktır gibi bir şey:

function histogram($array) { 
    $histogram = array(); 
    foreach($array as $value) { 
     $histogram[$value]++; 
    } 
    return $histogram; 
} 

Answer 3

foreach my $value (@_) {$histogram{$value}++} 

O olduğu tek bir satır varyantı

foreach my $value (@_) { 
    $histogram{$value}++ 
}