TCL/TK 的eval 执行包含 grep 选项的指令时, grep 过滤不起作用, 怎么办?

[小2龙猫]

本人最近勉为其难用TCL/TK, expect 写一些东西
tcl/tk有个eval, 就是可以把字符串当成系统指令来执行
比如:

set cmd ls ./ |grep .txt
eval cmd

如果在linux下执行 ls ./ |grep .txt, 指令的输出结果就只显示 txt 文件, 其他信息会被过滤掉.
但是如果在tcl里执行 eval cmd, 输出就是 ls ./ 的所有结果, grep没有起作用
为什么?
怎么达到对指令输出结果过滤的效果?
哪位可以出来帮我解决这个小问题呀?
小女子感恩不尽呀!!!!!