Comment faire pour convertir les caractères non cités en majuscules?

Question

Pour mettre en forme des milliers de requêtes SQL, je dois convertir tous les caractères qui ne sont pas entre guillemets en majuscules.

Par exemple:

select * from region where regionkey = 'America' 

à convertir en

SELECT * FROM REGION WHERE REGIONKEY = 'America' 

Avec Perl, je suis en mesure de convertir ces caractères cités en majuscules par:

perl -p -e 's/('.+?')/\U\1/g' 

et obtenir :

select * from region where regionkey = 'AMERICA' 

La question est de savoir comment "inverser" le résultat de la capture, disons, de marcher à pas entre guillemets?

Answer 1

s/([^']*)('[^']*'|\z)/\U$1\E$2/g 

si

perl -pe's/([^'\'']*)('\''[^'\'']*'\''|\z)/\U$1\E$2/g' 

ysth suggère une approche guillemet mixte:

perl -pe"s/([^']*)('[^']*'|\z)/"'\U$1\E$2/g' 

Si les citations peuvent avoir antislash échappe à eux, changer

'[^']*' 

à

'(?:[^'\\]+|\\.)*' 

Answer 2

Fractionnez la chaîne sur les sous-chaînes entre guillemets et les majuscules toutes les deux parties. Comme cette

my $str = "select * from region where regionkey = 'America'"; 

my $uc; 
$str = join '', map { ($uc = !$uc) ? uc : $_ } split /('[^']*')/, $str; 
print $str; 

sortie

SELECT * FROM REGION WHERE REGIONKEY = 'America'