From d94bc29f52de81d373ae910cde980dc209a5b0eb Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Wed, 8 Feb 2006 03:26:27 +0000 Subject: Add zlibcat git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@55 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede --- zlibcat | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100755 zlibcat diff --git a/zlibcat b/zlibcat new file mode 100755 index 0000000..71ebb4a --- /dev/null +++ b/zlibcat @@ -0,0 +1,24 @@ +#!/usr/bin/perl -w + +use strict; +use Compress::Zlib; + + +for my $file (@ARGV) { + my $x = inflateInit() or die "Cannot create a inflation stream\n" ; + + my $input = ''; + + my ($output, $status); + open(FH, "<$file") or die ("Cannot open $file: $!\n"); + while (read(FH, $input, 4096)) + { + ($output, $status) = $x->inflate(\$input); + + print $output if $status == Z_OK or $status == Z_STREAM_END ; + + last if $status != Z_OK ; + } + + die "inflation failed\n" unless $status == Z_STREAM_END ; +}; -- cgit v1.2.3