[SP-pm] Expressões Regulares

Gabriel Vieira gabriel.vieira at gmail.com
Sun Apr 25 11:05:21 PDT 2010


2010/4/25 Gabriel Vieira <gabriel.vieira em gmail.com>:
> use 5.010;
> my $names = 'Fred Silva Flinstone and Wilma Silva Flinstone';
> if( $names =~ m/(?<last_name>(\w+\s*)+) and (\w+\s+)*\g{last_name}/ ) {
>  say "I saw $+{last_name}";
> }


Mantovani++ alertou sobre um warning de recursão na 2a sugestão, segue
uma opção:

----------8<----------
use 5.010;
my $names = 'Fred Silva Flinstone and Wilma Silva Flinstone';
if( $names =~ m/(?<last_name>(\w|\s)+) and (\w|\s)+ \g{last_name}/ ) {
 say "I saw #$+{last_name}#";
}
---------->8----------

Abraços,

-- 
Gabriel Vieira


More information about the SaoPaulo-pm mailing list