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

Question

我正在尝试使用字符类将所有小写字母重新编译为大写:

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

但它不做替代.

Answer 1

只需将文件读入字符串并使用字符串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