~ubuntu-branches/ubuntu/intrepid/horae/intrepid

« back to all changes in this revision

Viewing changes to 0CPAN/Compress-Zlib-1.41/examples/filtinf

• browse files at revision 3
• compare with another revision
• download diff
• download tarball
• view history from revision 3

Show diffs side-by-side

added

removed

0CPAN/Compress-Zlib-1.41/examples/filtinf

1

 

#!/usr/local/bin/perl

2

 

 

3

 

use strict ;

4

 

use warnings ;

5

 

 

6

 

use Compress::Zlib ;

7

 

 

8

 

my $x = inflateInit()

9

 

   or die "Cannot create a inflation stream\n" ;

10

 

 

11

 

my $input = '' ;

12

 

binmode STDIN;

13

 

binmode STDOUT;

14

 

 

15

 

my ($output, $status) ;

16

 

while (read(STDIN, $input, 4096))

17

 

{

18

 

    ($output, $status) = $x->inflate(\$input) ;

19

 

 

20

 

    print $output 

21

 

        if $status == Z_OK or $status == Z_STREAM_END ;

22

 

 

23

 

    last if $status != Z_OK ;

24

 

}

25

 

 

26

 

die "inflation failed\n"

27

 

    unless $status == Z_STREAM_END ;

28

 

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1