/
usr
/
share
/
doc
/
perl-IO-Compress
/
io
/
gzip
/
/usr/share/doc/perl-IO-Compress/io/gzip
mkdir
upload
Name
Size
Mode
Actions
gzappend
392
0644
edit
dl
rm
gzcat
488
0644
edit
dl
rm
gzgrep
788
0644
edit
dl
rm
gzstream
513
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-IO-Compress/io/gzip/gzappend
(392B)
#!/usr/bin/perl use IO::Compress::Gzip qw( $GzipError ); use strict ; use warnings ; die "Usage: gzappend gz-file file...\n" unless @ARGV ; my $output = shift @ARGV ; @ARGV = '-' unless @ARGV ; my $gz = new IO::Compress::Gzip $output, Merge => 1 or die "Cannot open $output: $GzipError\n" ; $gz->write( [@ARGV] ) or die "Cannot open $output: $GzipError\n" ; $gz->close;
Save
cmd:
run