TCL exec命令错误

Question

bind pub "-|-" !tests pub:tests
proc pub:tests { nick host handle channel arg } {

set size [ exec ls -l /home/archiv/pics/*.r* | wc -l ]
putnow "PRIVMSG $channel :size $size"

}

我有这个错误

[09:36:19] Tcl error: 0
ls: cannot access '/home/archiv/pics/*.r*': No such file or directory

当我在bash测试时

ls -l /home/archiv/pics/*.r* |wc -l
result:
71

如何使用.r (通配符)？怎么啦？dir是正确的，acces是正确的。帮个忙。

问候

Answer 1

您正确地感觉到:Tcl的[exec]不提供类似bash的通配符扩展。通过使用它的[exec]和[llength]命令，Tcl可以更容易地为您做到这一点，而无需使用[glob]‘out：

 set size [llength [glob "/home/archiv/pics/*.r*"]]

如果您仍然更喜欢其他shell而不是Tcl (例如bash)，那么您必须显式地将[exec]放入shell中，例如：

 set size [exec bash -c "ls -l /home/archiv/pics/*.r* | wc -l"]