perl my变量$ x掩盖了同一语句中的早期声明

Question

我对此错误感到困惑,此程序将用户输入1 2 3 2并按特定顺序显示输入.

#!/usr/bin/perl -w
use strict;
use warnings;

print "Enter a number :";

my $num = <STDIN>;
chomp($num);

my @final = split(' ',$num);
my @count;
foreach my $x (@final){

 $count[my $x]++;

}
foreach my $x (@count){

print my $x .$count[my $x];
}

我的输出:我得到这个错误 "我的"变量$ x掩盖在第19行的同一语句中的早期声明

预期产量:

• 1 1
• 2 2
• 3 1

Answer 1

你经常使用my一点点.

my用于为当前范围(通常是块{...})声明变量.

要使用该变量,您不需要my.

所以,在你的第一个循环中,执行:

$count[ $x ]++;

在第二个循环中:

print "$x: $count[ $x ]\n";

请参阅perldoc -f my和Private-Variables-via-my