← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/horae/gutsy

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2006-12-28 12:36:48 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20061228123648-9xnjr76wfthd92cq
Tags: 064-1
New upstream release, dropped dependency on libtk-filedialog-perl.

Show diffs side-by-side

added added

removed removed

Lines of Context:
0CPAN/Compress-Zlib-1.41/examples/gzcat
1
 
#!/usr/local/bin/perl
2
 
 
3
 
use strict ;
4
 
use warnings ;
5
 
 
6
 
use Compress::Zlib ;
7
 
 
8
 
#die "Usage: gzcat file...\n"
9
 
#    unless @ARGV ;
10
 
 
11
 
my $filename ;
12
 
 
13
 
@ARGV = '-' unless @ARGV ;
14
 
 
15
 
foreach my $filename (@ARGV) {
16
 
    my $buffer ;
17
 
 
18
 
    my $file = $filename ;
19
 
    $file = \*STDIN if $file eq '-' ;
20
 
 
21
 
    my $gz = gzopen($file, "rb") 
22
 
         or die "Cannot open $file: $gzerrno\n" ;
23
 
 
24
 
    print $buffer while $gz->gzread($buffer) > 0 ;
25
 
 
26
 
    die "Error reading from $filename: $gzerrno" . ($gzerrno+0) . "\n" 
27
 
        if $gzerrno != Z_STREAM_END ;
28
 
    
29
 
    $gz->gzclose() ;
30
 
}