php - {$histogram{$value}++} 在 Perl 中是什么意思？

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

{$histogram{$value}++} 定义一个 block ，在 Perl 中 block 的最后一行不需要终止分号，所以它等同于 {$直方图{$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;
}