regex

필요한 정규식은 /(.)\1{9,}/입니다.

테스트:

#!perl
use warnings;
use strict;
my $regex = qr/(.)\1{9,}/;
print "NO" if "abcdefghijklmno" =~ $regex;
print "YES" if "------------------------" =~ $regex;
print "YES" if "========================" =~ $regex;

여기서는 \1역 참조라고합니다. 이 점에 포착되는 것을 참조 .괄호 사이에 (.)다음이 {9,}구 이상의 같은 문자의 요청합니다. 따라서 이것은 10 개 이상의 단일 문자와 일치합니다.

위의 테스트 스크립트는 Perl에 있지만 이것은 매우 표준적인 정규식 구문이며 모든 언어에서 작동합니다. 일부 변형에서는 더 많은 백 슬래시를 사용해야 할 수 있습니다 \(.\)\1\{9,\}. 예를 들어 Emacs는 여기에 작성 합니다.

전체 문자열이 9 개 이상의 동일한 문자로 구성되어야하는 경우 패턴 주위에 앵커를 추가합니다.

my $regex = qr/^(.)\1{9,}$/;

답변

txt = """1. aaaaaaaaaaaaaaa
2. bb
3. cccccccccccccccccccc
4. dd
5. eeeeeeeeeeee"""
rx = re.compile(r'(.)\1{9,}')
lines = txt.split('\n')
for line in lines:
    rxx = rx.search(line)
    if rxx:
        print line

1. aaaaaaaaaaaaaaa
3. cccccccccccccccccccc
5. eeeeeeeeeeee

$: cat > test
========
============================
oo
ooooooooooooooooooooooo


$: grep -E '(.)\1{10}' test
============================
ooooooooooooooooooooooo

/(.)\1{9,}/

(.)\1{9,}

$: cat > testre
============================
==
==============

$: grep -E '={10,}' testre
============================
==============

$oldfile = "$env:windir\WindowsUpdate.log"

$newfile = "$env:temp\newfile.txt"
$text = (Get-Content -Path $oldfile -ReadCount 0) -join "`n"

$text -replace '/(.)\1{9,}/', ' ' | Set-Content -Path $newfile

$str = "motttherbb fffaaattther";
$str = preg_replace("/([a-z])\\1/", "", $str);
echo $str;

$str = preg_replace("/([a-z])\\1{2}/", "", $str);