perl:怎么分裂？

Question

我有一个字符串aa:bb::cc:yy:zz,其需要以这样一种方式,我有一个阵列被分割aa:bb::cc,yy,zz.即我想从last创建两个子串:作为分隔符并保留为数组的元素.实现这一目标的最佳方法是什么？

例如:

aa:bb::cc:yy:zz --> ['aa:bb::cc','yy','zz']

dd:ff:gg:dd:ee:ff:fg --> ['dd:ff:gg:dd:ee','ff','gg']

我将IP地址:port:protocol存储为文件中的密钥,然后拆分":"以获取IP,端口,原型,当IP地址限制为Ipv4时,工作正常.现在我想把它移植到Ipv6,在这种情况下,IP地址包含":",所以我无法通过":"拆分来获得正确的IP地址.

Answer 1

怎么样:

#!/usr/local/bin/perl 
use Data::Dump qw(dump);
use strict;
use warnings;

my $x = 'dd:ff:gg:dd:ee:ff:fg';
my @l = $x =~ /^(.*?):([^:]+):([^:]+)$/g;
dump @l;

输出:

("dd:ff:gg:dd:ee", "ff", "fg")