awk - 我想从 tcl 脚本执行 awk 命令

Question

我想从我的 tcl 脚本中执行以下命令

exec /bin/awk '/Start/{f=1;++file}/END/{f=0}f{print > "/home/user/report/"file }' input

我遇到了这个错误

awk: ^ invalid char ''' in expression

是否可以从 tcl 执行这样的命令

谢谢

Answer 1

引自 tcl 手册页:

When translating a command from a Unix shell invocation, care should be taken over the fact that single quote characters have no special significance to Tcl. Thus:

awk '{sum += $1} END {print sum}' numbers.list

would be translated into something like:

exec awk {{sum += $1} END {print sum}} numbers.list

所以我会尝试不加引号(作为答案发布，因为它不能正确地放在评论中，这只是在谷歌上快速搜索的结果)

根据评论，您可以在 var 之前创建 awk 脚本，例如:

set awk_command "/Start/{f=1;++file}/END/{f=0}f{print > \"$tcl_variable\"file }" 
exec /bin/awk $awk_command input