如何匹配出现最长的子串？

lytton32

UID: 44146
帖子: 16
积分: 36
在线时间: 10 分钟

1^# lytton32 发表于 2008-12-10 13:43

如何匹配出现最长的子串？

请各位指教一下如何做？

如有字串：
aaabaaaabaaaaabaaaaaaaabaaaaaaaaaaaabaabaaa

我想匹配出最长的那串a，如何做？我的预期是取到aaaaaaaaaaaa。谢谢了。

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-12-10 14:00

文不对题嘛

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-12-10 14:34

Do a global match with /g first
Extract from the result the longest match

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
$_ = "aaabaaaabaaaaabaaaaaaaabaaaaaaaaaaaabaabaaa";
my @match = /(a+)/g;
my $max = 0;
foreach (@match) {
$max = $_ if ( length $_ > length $max );
}
print "Longest match is \[$max]\n";

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

4^# churchmice 发表于 2008-12-10 14:47

或者用这个
参考自mastering regular expression pattern

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
$_ = "aaabaaaabaaaaabaaaaaaaabaaaaaaaaaaaabaabaaa";
my $pattern = qr/a+/;
my $longest = undef;
my $recordmatch = qr/(?{if ( not defined $longest or length $& > length $longest){$longest =$&;}})(?!)/;
m/$pattern$recordmatch/;
if (defined $longest){
print "Longest match = \[$longest]\n";
}else {
print "No match\n";
}

lytton32

UID: 44146
帖子: 16
积分: 36
在线时间: 10 分钟

5^# lytton32 发表于 2008-12-10 18:02

谢谢
收到了。