arrays - 如何在 perl 中将数组值拆分为单独的数组

Question

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

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

我试图根据逗号将其分成两个数组，@lat 和 @long。

我该怎么做？

谢谢

Answer 1

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

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

我在这里使用了 split 的完整表示法，以便调用 2 个字段的 LIMIT 条件。对于这些数据来说可能并不重要，但如果条件发生变化就可能很重要。

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

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