Chinaunix首页 | 论坛 | 博客
  • 博客访问: 470353
  • 博文数量: 279
  • 博客积分: 4467
  • 博客等级: 上校
  • 技术积分: 2830
  • 用 户 组: 普通用户
  • 注册时间: 2007-04-03 14:43
文章分类

全部博文(279)

文章存档

2013年(1)

2012年(39)

2011年(35)

2009年(29)

2008年(131)

2007年(44)

分类:

2008-01-22 16:55:11

) Compress::Zlib, gzopen(), gzreadline(), gzclose()
#!/usr/bin/perl

use strict;
use Compress::Zlib;

my $gz = gzopen("a.gz", "rb");

while( $gz->;gzreadline(my $line) >; 0 )

{

chomp $line;

print "$line\n";

}



$gz->;gzclose();

exit 0;

#直接使用shell的zmore, zless, zcat打开文件也不错,
但是如果gz文件很大,还是应该选择zlib。
阅读(619) | 评论(0) | 转发(0) |
0

上一篇: HTTPD::Log::Filter

下一篇:Net::Telnet;

给主人留下些什么吧!~~