tcl中将不含AAA的行全部删除

在Tcl脚本中，如果你想要删除所有不包含字符串"AAA"的行，你可以使用`exec`命令结合`grep`工具来过滤输入内容，然后再用`readline`逐行读取并移除不符合条件的行。这里是一个简单的示例：

set filehandle [open "your_file.txt" r]  # 打开文件
while {[gets $filehandle line] != -1} {  # 遍历文件每一行
    if ![string index $line AAA] >= 0 {  # 如果行中不包含 "AAA"
        exec tail -n +[expr {line+1}] < "$filehandle" > new_file.txt  # 跳过这一行并将剩余行追加到新文件
    }
}
close $filehandle  # 关闭原文件
rename new_file.txt your_file.txt  # 重命名新文件覆盖原有文件

这个脚本会创建一个名为`new_file.txt`的新文件，其中只包含含有"AAA"的行。请注意替换"your_file.txt"为你要操作的实际文件名。