tclを使ってLinuxコマンドを実行する際にエラーが発生する

Question

ファイルをフォーマットするLinuxコマンドを実行する次のTCLスクリプトがあります。

 
exec sed -r '2,$s/(.{55})/\1\n\t/g' $formatfileName | sed 's/ $//' > $formatfileName 

私は「S」読み取ることができないというエラーが出ます： 上記の行を実行しながら、そのような変数を - これは、変数として、Linuxのコマンドで$記号を検討しています。中括弧{}を入れようとしましたが、うまくいきませんでした。

上記のコマンドをエラーなしで使用する方法を教えてください。ご協力いただきありがとうございます。

Answer 1

Tclでは一重引用符を使用しません。 Tclの等価は中括弧です（適切なネストを除く）。また、読んでいるファイルとは別のファイルに書き込む必要があります。あるいは、さまざまなビットが読み込み用にファイルを開いてファイルを消去する書き込みのために、いくつかの難しい競合条件が発生します。 （後で名前を変更することができます）。このようなものはうまくいくはずです。

私は強く、純粋のTcl（長いが、今ポータブル）でこれを行うために誘惑されるだろう、と述べた

exec sed -r {2,$s/(.{55})/\1\n\t/g} $formatfileName | sed {s/ $//} > $formatfileName.new 
file rename -force $formatfileName.new $formatfileName 

：

set f [open $formatfileName] 
set lines [split [read $f] "\n"] 
close $f 

set f [open $formatfileName "w"] 
foreach line $lines { 
    # First line is special 
    if {[incr LN] == 1} { 
     puts $f [string trimright $line] 
     continue 
    } 
    foreach l [split [regsub {.{55} } $line "&\n\t"] "\n"] { 
     puts $f [string trimright $l] 
    } 
} 
close $f 

string trimright sが効果的に二sedが何をしていたかやっています、途中のregsubは最初のsedとよく似ていますが、内側にsplitを使用していますので、トリミングを一貫して適用することができます。

ここには厄介なものはありませんfile rename;読み取りは書き込みの前にあります。