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

Question

我试图找到（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”的角落案例。 非常感谢任何帮助。

感谢迈克尔

Answer 1

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