perl中如何把數(shù)組最為hash的key
perl中如何把數(shù)組最為hash的key
動(dòng)漫人物
2019-04-12 11:06:33
3 回答
慕雪6442864
TA貢獻(xiàn)1812條經(jīng)驗(yàn) 獲得超5個(gè)贊
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 可以用引用引用也可以轉(zhuǎn)成string @m = ('1', '2', '3'); @n = ('4', '5', '6'); $H{\@m} = 1; $H{\@n} = 1; $sm = join('-', @m); $sn = join('-', @n); $S{$sm} = 1; $S{$sn} = 1; print key_exists(1, 2, 3); sub key_exists { my $str = join('-', @_); return exists $S{$str}?1:0; } |
紅糖糍粑
TA貢獻(xiàn)1815條經(jīng)驗(yàn) 獲得超6個(gè)贊
use strict;
use warnings;
my %hash=(a=>{1=>10,2=>20},b=>{3=>30,4=>40});
foreach my $key1 (keys(%hash))
{
print("\$hash{$key1} has keys:".join(',',keys(%{$hash{$key1}})),"\n");
}
海綿寶寶撒
TA貢獻(xiàn)1809條經(jīng)驗(yàn) 獲得超8個(gè)贊
你可以參考下面的代碼, 測(cè)試過(guò)了.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | use strict; my @array = ("aaa,vbbbb","cccc,ddddd","eeeee,xxxxx"); my %hash_output; #數(shù)組每個(gè)元素按","分開(kāi),并按HASH表存儲(chǔ) for(@array) { my ($key,$value) = split ','; $hash_output{$key} = $value; } #檢查hash表的最終值 for(keys %hash_output) { print "[key] $_ ==> [value] $hash_output{$_}\r\n"; } |
- 3 回答
- 0 關(guān)注
- 814 瀏覽
添加回答
舉報(bào)
0/150
提交
取消