Разделить двоичное число на группы нулей и единиц

Question

У меня есть двоичное число, например 10000111000011, и вы хотите разбить его на группы последовательных 1s и 0s, 1 0000 111 0000 11.

Я подумал, что это отличная возможность использовать образы: мое регулярное выражение использует положительный внешний вид для цифры (которую он фиксирует для последующего обратного вызова), затем отрицательный прогноз вперед для этой же цифры (с использованием обратной ссылки), поэтому я должен получить раскол всякий раз, когда за цифрой следует цифра, которая не то же самое.

use strict; 
use warnings; 
use feature 'say'; 

my $bin_string = '10000111000011'; 
my @groups = split /(?<=(\d))(?!\g1)/, $bin_string; 

say "@groups"; 

Однако это приводит к

1 1 0000 0 111 1 0000 0 11 1 

так или иначе, захваченная цифра вставлена ​​в каждом расколе. Что пошло не так?

Answer 1

Вот небольшое исправление кода:

my @groups = split /(?<=0(?!0)|1(?!1))/, $bin_string; 

Проблема вы испытываете в том, что при использовании split захваченных текстов также вывода в результирующем массиве. Таким образом, решение состоит в том, чтобы избавиться от группы захвата.

Поскольку у вас есть только 0 или 1 на вашем входе, это довольно легко с чередованием и взглядом, чтобы убедиться, что цифры изменены.

См demo

Answer 2

Просто выполните сопоставление вместо разделения.

(\d)\1* 

Пример:

use strict; 
use warnings; 
use feature 'say'; 

my $bin_string = '10000111000011'; 
while($bin_string =~ m/((\d)\2*)/g) { 
    print "$1\n"; 
} 

IDEONE

Answer 3

(?<=0)(?=1)|(?<=1)(?=0) 

Просто расщепляются this.See демо.

https://regex101.com/r/fM9lY3/3

The lookarounds будет найти место, где есть 0 позади и 1 впереди или позади 1 и 0 ahead.Thus в результате правильного разделения, не потребляя ничего.