Modifier les majuscules en minuscules en utilisant le script Perl

Question

J'ai le fichier qui a des mots en majuscules, et j'ai besoin de les changer en minuscules entiers à travers le fichier. J'ai utilisé le code ci-dessous pour les changer, mais seul le premier caractère est changé. Je voudrais changer tout le contenu qui est disponible dans le tag SC (globalement).

$xtx1 =~ s/<sc>(.*?)<\/sc>/\l$1/g; 

Answer 1

Essayez la prochaine

filePath = 'sample.txt'; 
# Go line by line and change to lowercase 
tmpPath = mkstemp() 
with open(tmpPath, 'w') as newFile: 
    with open(filePath) as oldFile: 
     for line in oldFile: 
      # Apply pattern 
      tmp = re.sub('^(.*?)\<\/sc\>.*', lambda m: m.group(0).lower(), line) 
      newFile.write(tmp) 

close(oldFile) 
close(newFile) 

# Remove original file 
remove(filePath) 

# Move new file 
move(tmpPath, filePath)