#!/usr/bin/env perl
use warnings;
use strict;
while(<>{
if(/[A-Z][^A-Z]+/){
print;
}
}#!/usr/bin/env perl
use warnings;
use strict;
while(<>{
if(/[A-Z][a-z]+/){
print;
}
}my $teste = "teste";
if($teste =~ /\b\w?\b/){
print $teste . "$&\n";
}
/[A-Z][^A-Z]+//[A-Z][a-z]+//[A-Z][a-z]+//[A-Z][^A-Z]+/
Eu compreendo isso, o que eu não estou conseguindo entender é isso olha:KakaoNão. Você está confundindo (letras minúsculas) com (quaisquer caracteres que não sejam letras maiúsculas). Este últim...
(\b\w)? \b
| |
V V
teste
eu estou estranhando aquela minha terceira construção porque eu esperava que ela fosse uma match para um caractere alfanumérico ou nada, não uma palavra como 'teste', são cinco letras afinal, entende? Eu queria que /\b\w?\b/ fosse uma match para um único caractere ou nada(string vazia). Alguma sugestão para tal situação?
Ah sim, valeu jqueiroz ;]jqueiroz/^\b(\w)?\b$/
Sem o "^" e o "$", vc poderia encontrar esse trecho em qualquer lugar da string. Agora, a string tem...
Fazer pergunta