perl中如何把数组最为hash的key
答案:2 悬赏:30 手机版
解决时间 2021-02-10 12:43
- 提问者网友：温柔港
- 2021-02-09 14:11
perl中如何把数组最为hash的key
最佳答案
- 五星知识达人网友：归鹤鸣
- 2021-02-09 14:27
可以用引用引用也可以转成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;
}
@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;
}
全部回答
- 1楼网友：旧脸谱
- 2021-02-09 15:44
$hash{$_} = "key is $_" foreach @array;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯