正则表达式 – perl：怎么分裂？

我有一个字符串aa：bb :: cc：yy：zz需要拆分,以便我有一个带aa：bb :: cc,yy,zz的数组.即我想从last创建两个子串：as as delimiter并保留为数组的元素.实现这一目标的最佳方法是什么？

例如：

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地址.

解决方法

怎么样：

#!/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")