Regex para Unicode maiúsculo não combina com "Ó"?
Parece que não reconhece o acentuado como maiúsculo
#!/usr/bin/env perl
use strict;
use warnings;
use 5.14.0;
use utf8;
use feature 'unicode_strings';
" SIMÓN " =~ /^\s+(\p{Upper}+)/u;
print "$1\n";
devolve
SIM
O Perl deve ser capaz de usar dados Unicode, que já marcam Ó como maiúsculo. De emacsdescribe-char
character code properties: customize what to show
name: LATIN CAPITAL LETTER O WITH ACUTE
old-name: LATIN CAPITAL LETTER O ACUTE
general-category: Lu (Letter, Uppercase)
decomposition: (79 769) ('O' '́')