如何在输出中重新格式化数组中的元素？

Question

使用Perl，我必须读取格式为

的逗号分隔数据

zipcode，zip中的城市数量，邮政编码内每个城市的列表。这真的与虚荣城市合作，以便我们获得使用邮政编码的所有城市的列表。

当我写出来时，我需要像

这样的东西

{zipcode,"number of cities,list of cities"}

将chomp用于数组，它将zipcode放入数组[0]，数字放在数组[0]中，然后将一个元素放入列表中命名的每个城市。他列出的城市可能有1个城市或70个城市。如何从该阵列转换为我需要的格式。基本上我正在使用从大数据平台创建的输入文件，并将其格式化为C＃程序，该程序将用作平台的插件。

Answer 1

my $zipcodes = { 33401 => ['West Palm Beach','Green Acres'] }; #initial entries
push($zipcodes->{33401}, 'Jupiter'); #or add entries by pushing them into the array
print '{33401,"' . @{$zipcodes->{33401}} . ',' . join(',',@{$zipcodes->{33401}}) . "\"}\n";

#prints {33401,"3,West Palm Beach,Green Acres,Jupiter"}