如何在Perl中将数组值拆分为单独的数组

Question

我有一个数组，将纬度/经度存储在一起。例如：

@values[0] = "-0.709999984318709,60.690000003554324"

我正在尝试将其分为两个数组，@lat并@long基于逗号。

我怎样才能做到这一点？

谢谢

Answer 1

我假设您希望将每个纬度和经度值保持在一起，在这种情况下，将数组转换为二维数组将是合适的：

my @latlong = map { [ split /,/, $_, 2 ] } @values 

我使用split此处的完整表示法来调用LIMIT2个字段的条件。此数据可能无关紧要，但条件变化则可能重要。

该map语句的代码首先将每个元素拆分@values为两个，然后将结果列表2放入一个匿名数组[ ... ]，然后将其插入新数组。使用以下命令打印时，结果数组如下所示Data::Dumper：

$VAR1 = [
          [
            '-0.709999984318709',
            '60.690000003554324'
          ]
        ];