Add ARM files

[dh-make-perl] / dev / arm / libcompress-raw-zlib-perl / libcompress-raw-zlib-perl-2.012 / examples / filtdef

diff --git a/dev/arm/libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/examples/filtdef b/dev/arm/libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/examples/filtdef
new file mode 100755 (executable)
index 0000000..3c65650
--- /dev/null
+++ b/dev/arm/libcompress-raw-zlib-perl/libcompress-raw-zlib-perl-2.012/examples/filtdef
@@ -0,0 +1,27 @@
+#!/usr/local/bin/perl
+
+use Compress::Raw::Zlib ;
+
+use strict ;
+use warnings ;
+
+binmode STDIN;
+binmode STDOUT;
+
+my $x = new Compress::Raw::Zlib::Deflate()
+   or die "Cannot create a deflation stream\n" ;
+
+my $output = '' ;
+
+while (<>)
+{
+    $x->deflate($_, $output) == Z_OK 
+        or die "deflate failed\n" ;
+
+    print $output ;
+}
+
+$x->flush($output) == Z_OK
+    or die "flush failed\n" ;
+
+print $output ;