Question

我有这个令人生畏的代码：

exec zip -r $FULLPATH error.log [ append datetime $RECENT ".bwdb" ] [ append txt $testName  ".txt" ] [ append lancap $testName "-lan.cap" ] \
        [ append lanmcap $testName "-lan-m.cap" ] [ append wancap $testName "-wan.cap" ] [ append wanmcap $testName "-wan-m.cap" ] [ append conf $confFile ".conf" ] \
        start.txt start-lan.cap start-lan-m.cap start-wan.cap start-wan-m.cap [ append comments "comments-" $RECENT ".bwc" ]

实际上这只是将一堆文件压缩在一起。我正在改变生成zip文件的方式（更准确地说，当我生成它们时，我正在改变）。我决定这样做的方法是将每个命令保存到一个文本文件中，然后在我需要创建它们时查看文件中的每个命令。问题是我需要将一堆变量转换为文字形式。

有谁知道如何将此命令转换为文字值并将其存储到文本文件中？

编辑：我也愿意听取解决同一问题的其他建议，和/或以我建议的方式做任何利弊。

Edit2：感谢所有帮助，我选择了这样做：

set data123 "exec zip -r $FULLPATH error.log [ append datetime $RECENT \".bwdb\" ] [ append txt $testName \".txt\" ] [ append lancap $testName \"-lan.cap\" ] \ [ append lanmcap $testName \"-lan-m.cap\" ] [ append wancap $testName \"-wan.cap\" ] [ append wanmcap $testName \"-wan-m.cap\" ] [ append conf $confFile \".conf\" ] \ start.txt start-lan.cap start-lan-m.cap start-wan.cap start-wan-m.cap [ append comments \"comments-\" $RECENT \".bwc\" ]" set datafile123 "datafile123.txt" set fileId123 [ open $datafile123 "w" ] puts $fileId123 $data123 close $fileId123

但是，当我查看生成的文件时，我看到：

exec zip -r /home/IOL/TR069_Certification/Results/TEST_Round99_GetRPCMethods_CDR1_20130410172812 error.log 20130410172812.bwdb20130410172812".bwdb" GetRPCMethods.txtGetRPCMethods".txt" GetRPCMethods-lan.capGetRPCMethods"-lan.cap" GetRPCMethods-lan-m.capGetRPCMethods"-lan-m.cap" GetRPCMethods-wan.capGetRPCMethods"-wan.cap" GetRPCMethods-wan-m.capGetRPCMethods"-wan-m.cap" IOL.confIOL".conf" start.txt start-lan.cap start-lan-m.cap start-wan.cap start-wan-m.cap comments-20130410172812.bwc"comments-"20130410172812".bwc"

这似乎是在每个附加的末尾创建连接字符串的第二个副本，我无法弄清楚原因。

Answer 1

为什么不是简单的字符串？您知道"字符串可以跨越多行吗？

set f [open /p/t/f w]
puts $f "error.log
$datetume$RECENT.bwdb
$txt$testName.txt
$lancap$testName-lan.cap
$lanmcap$testName-lan-m.cap
$wancap$testName-wan.cap
$wanmcap$testName-$wan.cap
$conf$confFile.conf
start.txt
start-lan.cap
start-lan-m.cap
start-wan.cap
start-wan-m.cap
${comments}comments-$RECENT.bwc"
close $f

修改：您不应缩进后续行，否则此缩进将显示在生成的文件中。
我个人通常使用模板文件，并使用subst替换变量。

Answer 2

我基本上只是做你提出的建议：将文字值写入文本文件。一种方法就是这样简单：

set s ""
append s \
  error.log \n \
  $datetime $RECENT .bwdb \n \
  $txt $testName .txt \n \
  $lancap $testName -lan.cap \n \
  $lanmcap $testName -lan-m.cap \n \
  $wancap $testName -wan.cap \n \
  $wanmcap $testName -wan-m.cap \n \
  $conf $confFile .conf \n \
  start.txt \n start-lan.cap \n \
  start-lan-m.cap \n start-wan.cap \n start-wan-m.cap \n \
  $comments comments- $RECENT .bwc
set f [open /path/to/file w]
puts $f $s
close $f

这将创建一个文本文件，每行一个文件名。

另一个 - 更直接 - 返工可能如下：

set files [list]
lappend files \
  error.log \
  [ append datetime $RECENT ".bwdb" ] \
  [ append txt $testName  ".txt" ] \
  [ append lancap $testName "-lan.cap" ] \
  [ append lanmcap $testName "-lan-m.cap" ] \
  [ append wancap $testName "-wan.cap" ] \
  [ append wanmcap $testName "-wan-m.cap" ] \
  [ append conf $confFile ".conf" ] \
  start.txt start-lan.cap start-lan-m.cap start-wan.cap start-wan-m.cap \
  [ append comments "comments-" $RECENT ".bwc" ]
set f [open /path/to/file w]
puts $f [join $files \n]
close $f

我对append的这种用法持怀疑态度，但这里的命令似乎只是用于它的副作用。 append获取其倒数第二个参数的字符串，并将它们附加到位于变量中的字符串，该变量的名称作为其第一个参数传递，返回结果字符串。我不喜欢这样一个事实：在你的原始例子中（在我的第二个例子中）append似乎仅用于返回值。

所以可能更常用的方法是使用Tcl的简单字符串连接方式，如下所示：

set files [list]
lappend files \
  error.log \
  ${datetime}${RECENT}.bwdb \
  ${txt}${testName}.txt \
  ${lancap}${testName}-lan.cap \
  ${lanmcap}${testName}-lan-m.cap \
  ${wancap}${testName}-wan.cap \
  ${wanmcap}${testName}-wan-m.cap \
  ${conf}${confFile}.conf \
  start.txt start-lan.cap start-lan-m.cap start-wan.cap start-wan-m.cap \
  ${comments}comments-${RECENT}.bwc
set f [open /path/to/file w]
puts $f [join $files \n]
close $f

将变量的字面值写入文件

2 个答案: