使用Perl将数据转换为数组

Question

如何使用Perl将数据转换为数组？

这是我的数据：

my $data =
  "203.174.38.128203.174.38.129203.174.38.1" .
  "30203.174.38.131203.174.38.132203.174.38" .
  ".133203.174.38.134173.174.38.135203.174." .
  "38.136203.174.38.137203.174.38.142";

我想把它变成像这样的数组

my @array= (
  "203.174.38.128",
  "203.174.38.129",
  "203.174.38.130",
  "203.174.38.131",
  "203.174.38.132",
  "203.174.38.133",
  "203.174.38.134",
  "173.174.38.135",
  "203.174.38.136",
  "203.174.38.137",
  "203.174.38.142"
);

任何人都知道如何用Perl做到这一点？

Answer 1

如果记录的IP的第一部分总是203 ，那就很容易：

my @arr = split /(?<=\d)(?=203\.)/, $data;

在示例中，它不是，但第一部分总是3位数，第二部分总是174 ，所以它足以做...

my @arr = split /(?<=\d)(?=\d{3}\.174\.)/, $data;

...以获得正确的结果。

但是请理解，在这里提供更通用（和防弹）的解决方案几乎是不可能的 - 当这些“标记”部分是......过于动态时。 例如，拿这个字符串......

11.11.11.22222.11.11.11

问题是，在哪里拆分？ 应该是11.11.11.22; 222.11.11.11 11.11.11.22; 222.11.11.11 ？ 或11.11.11.222; 22.11.11.11 11.11.11.222; 22.11.11.11 ？ 如果你问我，两者都是非常有效的IP。 它可能会变得更糟，试图分裂'2222'部分（可以是'2; 222'，'22; 22'甚至'222; 2'）。

例如，您可以制定一个规则：“拆分> 3个数字的每个序列后跟一个点符号，以便此拆分的第二部分始终从3个数字开始”：

my @arr = split /(?<=\d)(?=\d{3}\.)/, $data;

...但是，如果您的数据字符串中存在两个甚至一位数的第一个八位字节的IP，这显然无法在前面提到的模糊情况下正常工作。

Answer 2

如果您编写的正则表达式将匹配四重奏中某个数字的任何有效值，那么您可以只搜索它们并以四个为一组重新组合它们。 这个

/2[0-5][0-5]|1\d\d|[1-9]\d|\d/

匹配200-255或100-199或10-99或0-9，并使用它的程序如下所示。

如果有多种方法来拆分字符串，则无法知道采用哪个选项，此解决方案将最长的值分配给两个ip地址中的第一个。 例如， 1.1.1.1234.1.1.1将分为1.1.1.123和4.1.1.1

use strict;
use warnings;

use feature 'say';

my $data =
  "203.174.38.128203.174.38.129203.174.38.1" .
  "30203.174.38.131203.174.38.132203.174.38" .
  ".133203.174.38.134173.174.38.135203.174." .
  "38.136203.174.38.137203.174.38.142";

my $byte = qr/2[0-5][0-5]|1\d\d|\d\d|\d/;

my @bytes = $data =~ /($byte)/g;
my @addresses;
push @addresses, join('.', splice(@bytes, 0, 4)) while @bytes;

say for @addresses;

产量

203.174.38.128
203.174.38.129
203.174.38.130
203.174.38.131
203.174.38.132
203.174.38.133
203.174.38.134
173.174.38.135
203.174.38.136
203.174.38.137
203.174.38.142

Answer 3

使用您的示例，看起来您的第一个和最后一个节点有3位数。 这会促使使用这种模式：

/(\d{3}\.\d{1,3}\.\d{1,3}\.\d{3})/

使用/g开关添加它，它将拉动每一个。

但是，如果您拥有的数据集大于您为示例显示的数据，则有人应该在将ips转储到此字符串之前将其分开。 如果它们是单独的数据点，它们应该有一些分离 。