如何计算Perl中出现的奇数次数？
我在 Perl 中有一个程序，它应该计算元素在数组中出现的次数，如果元素出现的次数是奇数，则打印出该元素的值。
这是我的代码。
#!/usr/bin/perl
use strict;
use warnings;
sub FindOddCount($)
{
my @arraynumber = @_;
my $Even = 0;
my $i = 0;
my $j = 0;
my $array_length = scalar(@_);
for ($i = 0; $i <= $array_length; $i++)
{
my $IntCount = 0;
for ($j = 0; $j <= $array_length; $j++)
{
if ($arraynumber[$i] == $arraynumber[$j])
{
$IntCount++;
print($j);
}
}
$Even = $IntCount % 2;
if ($Even != 0)
{
return $arraynumber[$i];
}
}
if ($Even == 0)
{
return "none";
}
}
my @array1 = (1,1,2,2,3,3,4,4,5,5,6,7,7,7,7);
my @array2 = (10,10,7,7,6,6,2,2,3,3,4,4,5,5,6,7,7,7,7,10,10);
my @array3 = (6,6,10,7,7,6,6,2,2,3,3,4,4,5,5,6,7,7,7,7,10.10);
my @array4 = (10,10,7,7,2,2,3,3,4,4,5,5,7,7,7,7,10,10,6);
my @array5 = (6,6);
my @array6 = (1);
my $return_value1 = FindOddCount(@array1);
my $return_value2 = FindOddCount(@array2);
my $return_value3 = FindOddCount(@array3);
my $return_value4 = FindOddCount(@array4);
my $return_value5 = FindOddCount(@array5);
my $return_value6 = FindOddCount(@array6);
print "The Odd value for the first array is $return_value1n";
print "The Odd value for the 2nd array is $return_value2n ";
print "The Odd value for the 3rd array is $return_value3n ";
print "The Odd value for the 4th array is $return_value4n ";
print "The Odd value for the 5th array is $return_value5n ";
print "The Odd value for the sixth array is $return_value6n ";
这是我的结果。
第一个数组的奇数值是 15 第一个数组的奇数值是 21 第一个数组的奇数值是 21 第一个数组的奇数值是 19 第一个数组的奇数值是 2 第一个数组的奇数值是 1
如果你说不出来。它打印数组中所有元素的计数，而不是返回出现奇数次的元素。此外，我收到此错误。
在 OddCount.pl 第 17 行的数字 eq (==) 中使用未初始化的值。
第 17 行是比较第一个数组和第二个数组的地方。然而，这些值被清楚地实例化，当我打印出来时它们会起作用。问题是什么？
回答
为数组构建频率散列，然后通过它查看哪些元素具有奇数计数
use warnings;
use strict;
use feature 'say';
my @ary = qw(7 o1 7 o2 o1 z z o1); # o1,o2 appear odd number of times
my %freq;
++$freq{$_} for @ary;
foreach my $key (sort keys %freq) {
say "$key => $freq{$key}" if $freq{$key} & 1;
}
这是远远比在问题的代码更简单-但是这是很容易固定，太。见下文。
一些笔记
-
++$freq{$_}$_将散列中键的值%freq加 1，如果键不存在，则将键添加到散列中（通过autovivification）并将其值设置为 1。因此，当最后使用此代码迭代数组时，散列%freq包含数组元素的键及其值的元素计数 -
测试
$n & 1使用按位与- 如果$n设置了最低位则为真，因此如果它是奇数 -
那
++$freq{$_} for @ary;是一个Statement Modifier，为@ary当前元素被$_变量别名的每个元素运行语句
这打印
o1 => 3 o2 => 1
这种奇数频率元素（如果有）的打印按元素的字母顺序排序，就是这样。请更改为可能需要的任何特定订单，或让我知道。
对问题中代码的评论，通过两个简单的修复是正确的。
-
它以错误的方式使用原型来达到目的，在
sub FindOddCount($). 我怀疑这不是必需的，所以让我们不要纠结于它——放下它并制作它sub FindOddCount -
循环中的索引包括数组的长度 (
<=)，因此在最后一次迭代中，它们尝试索引到数组的最后一个元素之后。一错一错。这可以通过将条件更改为< $array_length（而不是<=）来解决，但请继续阅读 -
没有理由使用 C 风格的循环，甚至不需要迭代索引。（此处需要，因为使用了数组中的位置。）脚本语言提供了更简洁的方法†
foreach my $i1 (0 .. $#arraynumber) { my $IntCount = 0; foreach my $i2 (0 .. $#arraynumber) { if ( $arraynumber[$i1] == $arraynumber[$i2] ) { ...那
0..N就是范围运算符，它创建该范围内的数字列表。语法$#array_name是数组中最后一个元素的索引@array_name。正是需要的。所以不需要数组长度 -
用于检查代码的多个（六个）数组可以通过使用引用以更好、更简单的方式进行操作；请参阅复杂数据结构教程perldsc，特别是页面perllol，用于数组数组
简而言之：当您删除原型并逐一修复错误时，您的代码似乎是正确的。
†不仅是脚本——例如，C++11引入了基于范围的 for 循环
use warnings;
use strict;
use feature 'say';
my @ary = qw(7 o1 7 o2 o1 z z o1); # o1,o2 appear odd number of times
my %freq;
++$freq{$_} for @ary;
foreach my $key (sort keys %freq) {
say "$key => $freq{$key}" if $freq{$key} & 1;
}
链接（标准参考）说
用作更易读的等效于传统
for循环 [...]