git.maemo.org Git - dh-make-perl/blob - dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/examples/anycat

   1 #!/usr/local/bin/perl
   2
   3 use strict ;
   4 use warnings ;
   5
   6 use IO::Uncompress::AnyInflate qw( anyinflate $AnyInflateError );
   7
   8 @ARGV = '-' unless @ARGV ;
   9
  10 foreach my $file (@ARGV) {
  11
  12     anyinflate $file       => '-',
  13                Transparent => 1,
  14                Strict      => 0,
  15          or die "Cannot uncompress '$file': $AnyInflateError\n" ;
  16
  17 }