🚀 go-pugleaf

tomjas <tomjas@WYTNIJTOpoczta.onet.pl> pisze:
> On Sun, 29 Jan 2012 09:44:54 +0000 (UTC), Stachu 'Dozzie' K. wrote:
>> On 2012-01-28, tomjas <tomjas@WYTNIJTOpoczta.onet.pl> wrote:
>>> Próbuję sobie przypomnieć regexpy korzystając z perlretut. I mam problem
>>> z funkcją split, a mianowicie:
>> [...]
>>> print join(",",split /(a|b)+/,"12aba34ba5") # wynik: 12,a,34,a,5
>>>
>>> Może mi ktoś łopatologicznie wytłumaczyć krok po kroku w jaki sposób
>>> perl dopasowuje wzorzec i dzieli ten ciąg?
>>
>> perldoc -f split, szukasz opisu dla regexpów z nawiasami.
>>
> Ech... Na to, to akurat wpadłem, ale za diabła nie rozumiem.
> "If the PATTERN contains parentheses, additional list elements are
> created from each matching substring in the delimiter."
> Tzn, rozumiem to, ale w takim razie dlaczego w powyższym przykładzie
> w wyniku nie ma "b"? Ja rozumuję tak:
> perl szuka po kolei w ciągu najpierw wzorca "a" - mija "12" dochodzi do
> "a", dalej szuka bo we wzorcu jest "+" - następnym elementem w ciągu
> jest "b" więc nie pasuje, ale pasuje "b" z wzorca - idzie dalej bo znów
> "+" - dalej "a" więc nie pasuje. Zatem ciągiem rozdzielającym jest "ab",
> więc do pierwszego elementu tablicy wrzuca "12", a w drugim powinien być
> ciąg rozdzielający bo przecież są nawiasy. Co źle rozumiem?

Widać perl daje ci jako element zwracany przez split ostatni element
tego do czego pasuje (a|b)+ [ostatnie a lub b w ciągu].

Zobacz co ci zwróci:
print join(",",split /((a|b)+)/,"12aba34ba5")

Po prostu wpadłeś na niezbyt intuicyjne, trudne do krótkiego wyjaśnienia
"detale implementacji".