regex - 如何在Tcl中将小写更改为大写？

Question

我正在尝试使用字符类将文件中的所有小写字母都注册为大写:

 regsub -all { [:lower:] } $f { [:upper:] } f

但它不做替换。

Answer 1

只需将文件读入字符串并使用 string toupper .然后将其写回文件。

set fp [open "somefile" r]
set file_data [read $fp]
close $fp

set file_data [string toupper $file_data]

set fp [open "somefile" "w"]
puts -nonewline $fp $file_data
close $fp