[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