perl - 我在这个 Perl 代码中犯了什么错误？

Question

这个问题不太可能对 future 的访客有帮助；它只与一个小的地理区域、一个特定的时刻或一个非常狭窄的情况相关，通常不适用于互联网的全局受众。如需帮助使这个问题更广泛地适用，visit the help center .




8 年前关闭。




我试过这个代码。这不起作用。我在输出时没有得到任何结果。我犯了什么错误？

my %fruit_color = ("apple", "red", "banana", "yellow");
my @fruits = keys %fruit_colors;
my @colors = values %fruit_colors;
print @fruits;
print @colors;

键盘链接: http://codepad.org/vDVAxJcp

Answer 1

您正在声明 fruit_color但引用 fruit_colors (注意尾随的 S)

如果您使用警告和限制，您就会注意到这一点。

use warnings;
use strict;


Global symbol "%fruit_colors" requires explicit package name at C:\temp\test.pl line 4.
Global symbol "%fruit_colors" requires explicit package name at C:\temp\test.pl line 5.