1
ˆl–äY>”TÔD¨ ÅõÆEp-©‹FÿÂ
0ÀÄ
ˆ
ƒ m7ÆÀÄ
Index of /configBNE/Jump/0-lunacomadmin/FSS-BCZ/root/sys/dev/char/4:34/subsystem/tty41
Index of /configBNE/Jump/0-lunacomadmin/FSS-BCZ/root/sys/dev/char/4:34/subsystem/tty41
9 ˆl–Ðz¾”êe¶¥8 ¸Èn•1hßÃ
ƒuæ›a–Ým_J µ5*q@‚ãoÜmå1hßÆ ¥ #!/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