HEX

Server: Apache/2

System: Linux nexus-01 4.18.0-553.120.1.el8_10.x86_64 #1 SMP Mon Apr 20 18:04:27 EDT 2026 x86_64

User: aglcoke (1118)

PHP: 8.2.31

Disabled: mail,exec,system,passthru,shell_exec,proc_close,proc_open,dl,popen,show_source,posix_kill,posix_mkfifo,posix_getpwuid,posix_setpgid,posix_setsid,posix_setuid,posix_setgid,posix_seteuid,posix_setegid,posix_uname

Upload Files

File: //proc/1/task/1/root/usr/share/doc/perl-IO-Compress/io/gzip/gzappend

#!/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;