使用perl表达式查找字符串中的最小模式

发布时间：2020-12-16 06:23:07 所属栏目：大数据来源：网络整理

导读：我试图在(2个字符串)字符串示例中找到最小模式： enter code here #!/usr/bin/perl use warnings; use strict; my $str1; $str1 = 'abbabbabbabbabb'; # abb is repeating $str1 = 'abababababababa'; # ab is repeating $str1 = 'abaaaabaaaabaaa'; # abaaa

我试图在(2个字符串)字符串示例中找到最小模式：

enter code here

 #!/usr/bin/perl
 use warnings;
 use strict;


 my $str1;
 $str1 = 'abbabbabbabbabb'; #  abb is repeating  
 $str1 = 'abababababababa';  #  ab is repeating 
 $str1 = 'abaaaabaaaabaaa';  #  abaaa is repeating
 $str1 = 'bbaabbaabbaabbaa'; #  bbaa is repeating

它总是2个字符’a’和’b’,总有一个模式,
没有“a”或“b”的角落案例.
任何帮助是极大的赞赏.

谢谢迈克尔

解决方法

my ($repeated_pattern) = $str1 =~ /^(.+?)1+z/s;

（编辑：李大同）

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