小编bus*_*usy的帖子

现在,旧软件中禁止使用标量的实验值:

$link = Winners::Links->new();
my @fields = $link->column_names;     
foreach my $field ( values @fields[0]) {

我试图做:

 foreach my $field ( values {@fields[0]}) {

 foreach my $field ( values %{@fields[0]}) {

 foreach my $field ( values %@fields[0]) {

不是他们的作品.任何想法应该怎么做？谢谢.

以下是@fields对象定义的更多内容:

[[
  'id',
  'entry',
  'selection',
  'status'
]]