Perlスクリプトを使用して大文字を小文字に変更します。

Question

大文字の単語を持つファイルがあります。ファイル全体を小文字に変更する必要があります。私はそれらを変更するために、以下のコードを使用しているが、最初の文字だけが変更されています。タグSC内で利用可能な全コンテンツを変更したい（グローバルに）。

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

Answer 1

試してみてください、次のいずれか

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)