Làm thế nào để trích xuất các từ thông qua khớp mẫu?

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"; 

Tôi đang cố gắng in tất cả các từ chứa 2 nguyên âm lân cận trong một chuỗi nhất định.
o/p: phải được "khen ngợi" và "tốt".

Tôi đã thử với điểm dừng phủ định [^] để tách và chỉ cung cấp 2 nguyên âm lân cận.

Answer 1

Chức năng Perl split không phù hợp để tìm danh sách kết quả phù hợp. Thay vào đó, tôi khuyên bạn nên sử dụng công cụ sửa đổi regex g. while, hoặc bạn có thể gán danh sách kết quả trong một đi

Ví dụ sau phải phù hợp với tất cả các từ trong một chuỗi có chứa hai nguyên âm liền kề:.

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

Output:

praveen 
good 

Bạn cũng có thể làm điều này:

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

và xử lý kết quả tương tự như cách bạn đã chế biến @try trong OP.

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"; 
    }; 
}; 

Lý do đầu tiên là "phân tách" là dấu tách. Chia tách (-8

Answer 3

Bạn có thể làm một cái gì đó giống như ..

#!/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"; 
} 

biểu hiện thường xuyên:

(    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 

Đó là cơ bản giống như làm /(\w*([aeiou])[aeiou]+(?:\w*))/

Output:

praveen 
good 
aaron 
good 
praveen 
aaron 
good 
hoot