百度作业网perl数组推到哈希中
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/24 02:51:20
perl数组推到哈希中
假如一个数组是这样的
aaaa,vbbbbb
ccccc,ddddd
eeeee,xxxxx
就是这样两列逗号间隔的,如何让第一列是keys 第二列是value
假如一个数组是这样的
aaaa,vbbbbb
ccccc,ddddd
eeeee,xxxxx
就是这样两列逗号间隔的,如何让第一列是keys 第二列是value
你的问题交代的不是很清楚, 是否数组每个元素都是类似"aaaa,vbbbbb"这样的可以以逗号分隔的两部分?按照这么理解的话,你可以参考下面的代码, 测试过了.use strict;
my @array = ("aaa,vbbbb","cccc,ddddd","eeeee,xxxxx");
my %hash_output;
#数组每个元素按","分开,并按HASH表存储
for(@array)
{
my ($key,$value) = split ',';
$hash_output{$key} = $value;
}
#检查hash表的最终值
for(keys %hash_output)
{
print "[key] $_ ==> [value] $hash_output{$_}\r\n";
}
my @array = ("aaa,vbbbb","cccc,ddddd","eeeee,xxxxx");
my %hash_output;
#数组每个元素按","分开,并按HASH表存储
for(@array)
{
my ($key,$value) = split ',';
$hash_output{$key} = $value;
}
#检查hash表的最终值
for(keys %hash_output)
{
print "[key] $_ ==> [value] $hash_output{$_}\r\n";
}