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

Question

使用 Perl，我必须读取格式为逗号分隔的数据

邮政编码，邮政编码内的城市数量，邮政编码内每个城市的列表。这确实适用于虚荣城市，以便我们获得所有使用邮政编码的城市的列表。

当我写出来时，我需要有类似的东西

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

将 chomp 放入一个数组中，它会将邮政编码放入数组 [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"}