Add ARM files

[dh-make-perl] / dev / arm / libio-compress-zlib-perl / libio-compress-zlib-perl-2.012 / examples / gzcat

diff --git a/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/examples/gzcat b/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/examples/gzcat
new file mode 100755 (executable)
index 0000000..5572bae
--- /dev/null
+++ b/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/examples/gzcat
@@ -0,0 +1,29 @@
+#!/usr/local/bin/perl
+
+use IO::Uncompress::Gunzip qw( $GunzipError );
+use strict ;
+use warnings ;
+
+#die "Usage: gzcat file...\n"
+#    unless @ARGV ;
+
+my $file ;
+my $buffer ;
+my $s;
+
+@ARGV = '-' unless @ARGV ;
+
+foreach $file (@ARGV) {
+    
+    my $gz = new IO::Uncompress::Gunzip $file
+         or die "Cannot open $file: $GunzipError\n" ;
+
+    print $buffer
+        while ($s = $gz->read($buffer)) > 0 ;
+
+    die "Error reading from $file: $GunzipError\n" 
+        if $s < 0 ;
+    
+    $gz->close() ;
+}
+