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

发布时间：2020-12-14 06:06:55 所属栏目：百科来源：网络整理

导读：我有一个字符串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

我有一个字符串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")

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!