tcl - 如何在 TCL 中读取 gzip 文件？

Question

我有一个扩展名为 .gz 的文件。当我尝试使用以下 TCL 命令读取和打印文件时，即使我能够在 VI 编辑器中看到内容，也无法读取文件。

我尝试使用以下 TCL 代码:

set of [glob *.gz ]
set op [open "$of" r]
set file_data [read $op]
set data [split $file_data "\n"]
foreach line $data {
    puts " $line"
}

Answer 1

在 Tcl 8.6 中，您有对此的内置支持，因此您可以执行以下操作:

set f [open $filename]
zlib push gunzip $f
set data [read $f]
close $f

zlib push gunzip只需将合适的解压缩变换附加到 channel 即可。

在 8.5 及更早版本中，您最好使用 zcat 从管道中读取数据。或 gzcat (取决于平台详细信息:

set f [open "|gzcat $filename"]
set data [read $f]
close $f

缺点是它远不及便携。