From d94bc29f52de81d373ae910cde980dc209a5b0eb Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
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

(limited to '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