37,743
社区成员
发帖
与我相关
我的任务
分享perl: 如果hash表的键值是一个数组，如何添加新项？
use strict;
my %arr = (
'a' => [ 'a', 'b', 'c', 'd' ],
'b' => [ 'a', 'b', 'c', 'd' ],
) ;
#
# 问题在这里：
# 下面一句如何写，可以让%arr第一行中的数组增加一项'e'?
#
push @(%arr{'a'}), 'e';
my $key;
my $value;
while (($key, $value) = each %arr)
{
print "'" . $key . "' ==> [" . join(',', @$value) . "]\n";
}
my %arr = (
'a' => [ 'a', 'b', 'c', 'd' ],
'b' => [ 'a', 'b', 'c', 'd' ],
) ;
#
# 问题在这里：
# 下面一句如何写，可以让%arr第一行中的数组增加一项'e'?
#
push @(%arr{'a'}), 'e';
my $key;
my $value;
while (($key, $value) = each %arr)
{
print "'" . $key . "' ==> [" . join(',', @$value) . "]\n";
}
...全文
请发表友善的回复…
发表回复
fibbery 2004-08-02
- 打赏
- 举报
那就收藏一下吧！
itXman 2004-08-02
- 打赏
- 举报
呵，给我吧：）
navyu 2004-08-02
- 打赏
- 举报
我现在正在学PERL.感觉好难啊.
cchuocp 2004-08-01
- 打赏
- 举报
不能给自己分，也不能不给分，没人回复，怎么结贴呀！
cchuocp 2004-07-31
- 打赏
- 举报
12小时后结贴，来者有分。
几年里，在csdn就发过几个问题，一个都没有得到答案，郁闷啊:-(
几年里，在csdn就发过几个问题，一个都没有得到答案，郁闷啊:-(
cchuocp 2004-07-31
- 打赏
- 举报
这里人气不太旺啊！12小时过去了，终于自己搞定了。
my $aref = @arr{'a'};
push @$aref, 'e';
my $aref = @arr{'a'};
push @$aref, 'e';
