/usr/share/doc/libio-compress-lzma-perl/examples/xzcat is in libio-compress-lzma-perl 2.063-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | #!/usr/bin/perl
use IO::Uncompress::UnXz qw( $UnXzError );
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::UnXz $file
or die "Cannot open $file: $UnXzError\n" ;
print $buffer
while ($s = $gz->read($buffer)) > 0 ;
die "Error reading from $file: $UnXzError\n"
if $s < 0 ;
$gz->close() ;
}
|