[求助]如何用perl动态处理压缩成gz的文本文件？

galaxy001

UID: 40457
帖子: 169
积分: 388
在线时间: 1 天 15 小时

1^# galaxy001 发表于 2008-06-02 21:03

[求助]如何用perl动态处理压缩成gz的文本文件？

只读访问，主要是顺序读取，可能有随机访问的要求。
由于是很容易压的大文本文件，我想以gz的形式节约磁盘空间。请问如何实现？
临时解压的就不算了。

至于写入gz，应该是不能实现的，对吗？

————————————————————
方便的话先写个顺序读取的例子吧，用管道的就行（其实我不熟这方面的语法
Linux环境

galaxy001

UID: 40457
帖子: 169
积分: 388
在线时间: 1 天 15 小时

2^# galaxy001 发表于 2008-06-02 22:01

我直接问如何用 gzip -c foo.gz 实现顺序读取吧。就是管道语句咋写。关perl的文件句柄是否要注意别的。
假设程序的目的就是每次读一行再原样打印。

'foo.gz'请用变量来装，我担心管道语句用变量会有特殊的地方

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-06-03 12:38

[Copy to clipboard] [ - ]

CODE:

my $gzfile = "foo.gz";
open( my $file,"gunzip -c $gzfile|") or die "Fail $!";

没有什么特别的，建议你好好看看perl的变量替换机制