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

发布时间：2020-12-16 06:11:41 所属栏目：大数据来源：网络整理

导读：我试过这段代码.这不起作用.我输出没有结果.我犯了什么错误？ my %fruit_color = ("apple","red","banana","yellow");my @fruits = keys %fruit_colors;my @colors = values %fruit_colors;print @fruits;print @colors; 键盘链接：http://codepad.org/vDVAx

我试过这段代码.这不起作用.我输出没有结果.我犯了什么错误？

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

解决方法

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

如果你使用了警告和限制,你会注意到这一点.

use warnings;
use strict;


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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!