mmcm 生成1m的脚本写法 tcl写法

以下是一个可以生成 1MB 大小的文件的 Tcl 脚本：

set filename "output.txt"
set filesize 1000000 ;# 文件大小为 1MB
set blocksize 1024 ;# 每次写入 1KB
set blocks [expr {$filesize / $blocksize}]
set fd [open $filename "w"]
for {set i 0} {$i < $blocks} {incr i} {
    puts -nonewline $fd [string repeat "x" $blocksize]
}
set remainder [expr {$filesize % $blocksize}]
if {$remainder > 0} {
    puts -nonewline $fd [string repeat "x" $remainder]
}
close $fd
puts "文件已生成！"

这个脚本会生成一个名为 `output.txt` 的文件，大小为 1MB，其中每个 1KB 的块都填充了字符 "x"。你可以根据需要修改文件名、大小和块大小。