只处理Tcl中gzip文件的前n行

Question

我需要从前n行（大约50行）中的文本文件中提取一些字符串值。在某些情况下，这些文件会被压缩，在某些情况下它们不会。

目前，我正在使用以下内容来读取文件，但是这会读取整个文件，并且处理非常大的文件的速度很慢。

set f [open "| zcat -f $filename" r] 

如果文件没有被压缩，那么这似乎工作正常，似乎很快。

set f [open "| head -n 50 $filename" r] 

但是当它被gzipped，我似乎无法zcat只是前n行。我试过，但我在tclsh的得到一个错误

set f [open "| zcat -f $filename | head -n 50" r] 
set data [read $f] 
close $f 

%child killed: write on pipe with no readers 

我只能尝试捕获错误并继续前进，因为它似乎将数据推入$数据变量，但我想知道如果我在这里做一些非法的事情。

另外，是否有一个纯粹的Tcl方式来实现这一点？

Answer 1

错误来自close，并且是因为zcat在写入所有行之前已停止（通过信号SIGPIPE）。这是预期的，你可以安全地catch它并忽略它。把catch围绕close。

---

在Tcl的8.6（而不是以前的版本，也没有在自由站立的zlib包的Tcl，这是当我们进口包入的Tcl我们添加的功能），你可以在纯Tcl的做到这一点。

set f [open $filename] 
zlib push gunzip $f 

# Read those lines! This oneliner is a hack! 
set lines [lmap - [lrepeat 50 -] {gets $f}] 

# NB: We don't need to put a catch around this now 
close $f 

zlib命令提供压缩和解压缩; zlib push用于将压缩或解压缩添加到通道，例如在应用了gunzip通道过滤器的情况下。