Perl中的{$ histogram {$ value} ++}是什麼意思？

Question

整個子程序在標題的代碼是：

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

我想翻譯一個Perl腳本，PHP和我在與它的困難（我真的不知道Perl中的任何東西，但我嘗試着）。

那麼如何將這{$histogram{$value}++}到PHP？

謝謝！

Answer 1

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

Answer 2

{$histogram{$value}++}定義了一個塊，在Perl中，塊的最後一行不需要終止分號，所以它相當於{$histogram{$value}++;}。

現在散列的PHP中等效是一個關聯數組和我們使用[]來訪問元素陣列中：

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

PHP中的等效功能會是這樣的：

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

Answer 3

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

它是一個單行的變體：

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