#!/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";
我试图在给定的字符串中打印包含2个相邻元音的所有单词.
o / p：必须是“praveen”和“good”.
我尝试使用否定exp [^]来分割并仅给出2个相邻的元音.
#!/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";
我试图在给定的字符串中打印包含2个相邻元音的所有单词.
o / p：必须是“praveen”和“good”.
我尝试使用否定exp [^]来分割并仅给出2个相邻的元音.