Jak wyodrębnić słowa za pomocą dopasowywania wzorców?

Question

#!/usr/bin/perl 

use strict; 
use warnings; 
my $string = "praveen is a good boy"; 
my @try = split(/([a,e,i,o,u]).*\1/,$string); 
print "@try\n"; 

Próbuję wydrukować wszystkie słowa zawierające 2 sąsiednie samogłoski w danym ciągu.
o/p: musi być "praveen" i "good".

Próbowałem z negate exp [^], aby podzielić i dać tylko 2 sąsiednie samogłoski.

Answer 1

Funkcja Perl split nie pasuje dobrze do znalezienia listy dopasowań, zamiast tego polecam użycie modyfikatora regex g. Aby przetworzyć wszystkie dopasowania, można albo zapętlić, używając np. while, czy można przypisać listę meczów w jednym zamachem

Poniższy przykład powinien pasować do wszystkich słów w ciągu znaków, które zawierają dwa sąsiadujące samogłoski.

my $string = "praveen is a good boy"; 
while ($string =~ /(\w*[aeiou]{2}\w*)/g) { 
    print "$1\n" 
} 

wyjściowa:

praveen 
good 

Można też to zrobić:

my @matches = ($string =~ /\w*[aeiou]{2}\w*/g); 

i przetwarzać wynik podobny do tego, jak zostałeś przetwarzanie @try w PO.

Answer 2

#!/usr/bin/perl 

use strict; 
use warnings; 
my $string = "praveen is a good boy"; 
my @try = split(/\s/,$string); 
for(@try) { 
# if(/[a,e,i,o,u]{2}/) { 
    if(/[aeiou]{2}/) { # edited after Birei's comment 
     print "$_\n"; 
    }; 
}; 

Pierwszy argument "podziału" jest ogranicznikiem. Podział splitów (-8

Answer 3

Można zrobić coś takiego ..

#!/usr/bin/perl 

use strict; 
use warnings; 

my $str 
    = "praveen is a good boy\n" 
    . "aaron is a good boy\n" 
    . "praveen and aaron are good, hoot, ho" 
    ; 

while ($str =~ /(\w*([aeiou])\2(?:\w*))/g) { 
     print $1, "\n"; 
} 

Wyrażenie regularne:

(    group and capture to \1: 
\w*   word characters (a-z, A-Z, 0-9, _) (0 or more times) 
    (   group and capture to \2: 
    [aeiou]  any character of: 'a', 'e', 'i', 'o', 'u' 
    )   end of \2 
    \2   what was matched by capture \2 
    (?:   group, but do not capture: 
     \w*  word characters (a-z, A-Z, 0-9, _) (0 or more times) 
    )   end of grouping 
)    end of \1 

który jest w zasadzie taka sama jak robi /(\w*([aeiou])[aeiou]+(?:\w*))/

wyjściowa:

praveen 
good 
aaron 
good 
praveen 
aaron 
good 
hoot