mirror of
https://github.com/Gator96100/ProxSpace.git
synced 2025-01-09 04:13:15 -08:00
297 lines
7.8 KiB
Perl
297 lines
7.8 KiB
Perl
#!/usr/bin/perl
|
|
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
|
|
if 0; # ^ Run only under a shell
|
|
#!/usr/bin/perl
|
|
|
|
# Streaming zip
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use IO::Compress::Zip qw(zip
|
|
ZIP_CM_STORE
|
|
ZIP_CM_DEFLATE
|
|
ZIP_CM_BZIP2 ) ;
|
|
|
|
use Getopt::Long;
|
|
|
|
my $VERSION = '1.002';
|
|
|
|
my $compression_method = ZIP_CM_DEFLATE;
|
|
my $stream = 0;
|
|
my $zipfile = '-';
|
|
my $memberName = '-' ;
|
|
my $zip64 = 0 ;
|
|
my $level ;
|
|
|
|
GetOptions("zip64" => \$zip64,
|
|
"method=s" => \&lookupMethod,
|
|
"0" => sub { $level = 0 },
|
|
"1" => sub { $level = 1 },
|
|
"2" => sub { $level = 2 },
|
|
"3" => sub { $level = 3 },
|
|
"4" => sub { $level = 4 },
|
|
"5" => sub { $level = 5 },
|
|
"6" => sub { $level = 6 },
|
|
"7" => sub { $level = 7 },
|
|
"8" => sub { $level = 8 },
|
|
"9" => sub { $level = 9 },
|
|
"stream" => \$stream,
|
|
"zipfile=s" => \$zipfile,
|
|
"member-name=s" => \$memberName,
|
|
'version' => sub { print "$VERSION\n"; exit 0 },
|
|
'help' => \&Usage,
|
|
)
|
|
or Usage();
|
|
|
|
Usage()
|
|
if @ARGV;
|
|
|
|
my @extraOpts = ();
|
|
|
|
if ($compression_method == ZIP_CM_DEFLATE && defined $level)
|
|
{
|
|
push @extraOpts, (Level => $level)
|
|
}
|
|
|
|
zip '-' => $zipfile,
|
|
Name => $memberName,
|
|
Zip64 => $zip64,
|
|
Method => $compression_method,
|
|
Stream => $stream,
|
|
@extraOpts
|
|
or die "Error creating zip file '$zipfile': $\n" ;
|
|
|
|
exit 0;
|
|
|
|
sub lookupMethod
|
|
{
|
|
my $name = shift;
|
|
my $value = shift ;
|
|
|
|
my %valid = ( store => ZIP_CM_STORE,
|
|
deflate => ZIP_CM_DEFLATE,
|
|
bzip2 => ZIP_CM_BZIP2,
|
|
lzma => 14,
|
|
xz => 95,
|
|
zstd => 93,
|
|
);
|
|
|
|
my $method = $valid{ lc $value };
|
|
|
|
Usage("Unknown method '$value'")
|
|
if ! defined $method;
|
|
|
|
installModule("Lzma")
|
|
if $method == 14 ;
|
|
|
|
installModule("Xz")
|
|
if $method == 95 ;
|
|
|
|
installModule("Zstd")
|
|
if $method == 93;
|
|
|
|
$compression_method = $method;
|
|
}
|
|
|
|
sub installModule
|
|
{
|
|
my $name = shift ;
|
|
|
|
eval " use IO::Compress::$name; use IO::Compress::Adapter::$name ; " ;
|
|
die "Method '$name' needs IO::Compress::$name\n"
|
|
if $@;
|
|
}
|
|
|
|
sub Usage
|
|
{
|
|
print <<EOM;
|
|
Usage:
|
|
producer | streamzip [OPTIONS] | consumer
|
|
producer | streamzip [OPTIONS] -zipfile output.zip
|
|
|
|
Stream data from stdin, compress into a Zip container, and stream to stdout.
|
|
|
|
OPTIONS
|
|
|
|
-zipfile=F Write zip container to the filename 'F'
|
|
Outputs to stdout if zipfile not specified.
|
|
-member-name=M Set member name to 'M' [Default '-']
|
|
-0 ... -9 Set compression level for Deflate
|
|
[Default: 6]
|
|
-zip64 Create a Zip64-compliant zip file [Default: No]
|
|
Enable Zip64 if input is greater than 4Gig.
|
|
-stream Force a streamed zip file when 'zipfile' option is also enabled.
|
|
Only applies when 'zipfile' option is used. [Default: No]
|
|
Stream is always enabled when writing to stdout.
|
|
-method=M Compress using method 'M'.
|
|
Valid methods are
|
|
store Store without compression
|
|
deflate Use Deflate compression [Deflault]
|
|
bzip2 Use Bzip2 compression
|
|
lzma Use LZMA compression [needs IO::Compress::Lzma]
|
|
xz Use LZMA compression [needs IO::Compress::Xz]
|
|
zstd Use LZMA compression [needs IO::Compress::Zstd]
|
|
-version Display version number [$VERSION]
|
|
|
|
Copyright (c) 2019-2021 Paul Marquess. All rights reserved.
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the same terms as Perl itself.
|
|
|
|
EOM
|
|
exit;
|
|
}
|
|
|
|
|
|
__END__
|
|
=head1 NAME
|
|
|
|
streamzip - create a zip file from stdin
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
producer | streamzip [opts] | consumer
|
|
producer | streamzip [opts] -zipfile=output.zip
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This program will read data from C<stdin>, compress it into a zip container
|
|
and, by default, write a I<streamed> zip file to C<stdout>. No temporary
|
|
files are created.
|
|
|
|
The zip container written to C<stdout> is, by necessity, written in
|
|
streaming format. Most programs that read Zip files can cope with a
|
|
streamed zip file, but if interoperability is important, and your workflow
|
|
allows you to write the zip file directly to disk you can create a
|
|
non-streamed zip file using the C<zipfile> option.
|
|
|
|
=head2 OPTIONS
|
|
|
|
=over 5
|
|
|
|
=item -zip64
|
|
|
|
Create a Zip64-compliant zip container. Use this option if the input is
|
|
greater than 4Gig.
|
|
|
|
Default is disabled.
|
|
|
|
=item -zipfile=F
|
|
|
|
Write zip container to the filename C<F>.
|
|
|
|
Use the C<Stream> option to force the creation of a streamed zip file.
|
|
|
|
=item -member-name=M
|
|
|
|
This option is used to name the "file" in the zip container.
|
|
|
|
Default is '-'.
|
|
|
|
=item -stream
|
|
|
|
Ignored when writing to C<stdout>.
|
|
|
|
If the C<zipfile> option is specified, including this option will trigger
|
|
the creation of a streamed zip file.
|
|
|
|
Default: Always enabled when writing to C<stdout>, otherwise disabled.
|
|
|
|
=item -method=M
|
|
|
|
Compress using method C<M>.
|
|
|
|
Valid method names are
|
|
|
|
* store Store without compression
|
|
* deflate Use Deflate compression [Deflault]
|
|
* bzip2 Use Bzip2 compression
|
|
* lzma Use LZMA compression
|
|
* xz Use xz compression
|
|
* zstd Use Zstandard compression
|
|
|
|
Note that Lzma compress needs C<IO::Compress::Lzma> to be installed.
|
|
|
|
Note that Zstd compress needs C<IO::Compress::Zstd> to be installed.
|
|
|
|
Default is C<deflate>.
|
|
|
|
=item -0, -1, -2, -3, -4, -5, -6, -7, -8, -9
|
|
|
|
Sets the compression level for C<deflate>. Ignored for all other compression methods.
|
|
|
|
C<-0> means no compression and C<-9> for maximum compression.
|
|
|
|
Default is 6
|
|
|
|
=item -version
|
|
|
|
Display version number
|
|
|
|
=item -help
|
|
|
|
Display help
|
|
|
|
=back
|
|
|
|
=head2 Examples
|
|
|
|
Create a zip file bt reading daa from stdin
|
|
|
|
$ echo Lorem ipsum dolor sit | perl ./bin/streamzip >abcd.zip
|
|
|
|
Check the contents of C<abcd,zip> with the standard C<unzip> utility
|
|
|
|
Archive: abcd.zip
|
|
Length Date Time Name
|
|
--------- ---------- ----- ----
|
|
22 2021-01-08 19:45 -
|
|
--------- -------
|
|
22 1 file
|
|
|
|
Notice how the C<Name> is set to C<->.
|
|
That is the default for a few zip utilities whwre the member name is not given.
|
|
|
|
If you want to explicitly name the file, use the C<-member-name> option as follows
|
|
|
|
$ echo Lorem ipsum dolor sit | perl ./bin/streamzip -member-name latin >abcd.zip
|
|
|
|
$ unzip -l abcd.zip
|
|
Archive: abcd.zip
|
|
Length Date Time Name
|
|
--------- ---------- ----- ----
|
|
22 2021-01-08 19:47 latin
|
|
--------- -------
|
|
22 1 file
|
|
|
|
|
|
=head2 When to write a Streamed Zip File
|
|
|
|
A Streamed Zip File is useful in situations where you cannot seek
|
|
backwards/forwards in the file.
|
|
|
|
A good examples is when you are serving dynamic content from a Web Server
|
|
straight into a socket without needing to create a temporary zip file in
|
|
the filesystsm.
|
|
|
|
Similarly if your workfow uses a Linux pipelined commands.
|
|
|
|
=head1 SUPPORT
|
|
|
|
General feedback/questions/bug reports should be sent to
|
|
L<https://github.com/pmqs/IO-Compress/issues> (preferred) or
|
|
L<https://rt.cpan.org/Public/Dist/Display.html?Name=IO-Compress>.
|
|
|
|
|
|
=head1 AUTHOR
|
|
|
|
Paul Marquess F<pmqs@cpan.org>.
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
Copyright (c) 2019-2021 Paul Marquess. All rights reserved.
|
|
|
|
This program is free software; you can redistribute it and/or modify it
|
|
under the same terms as Perl itself.
|