Re: Unzip with password?

As there is no appopriate perl module, I'm now doing it this way:

my $r;
{
   open(ZIP,"-|","/usr/local/bin/unzip 
        -P 'ЇЇЇЇЇЇЇ' -p cache/$zipname $fname")
        || die "unzip failure";
   local($/)=undef;
   $r=<ZIP>;
   close(ZIP);
};
[download]

Of course you need to make sure that $zipname and $fname contain no evil characters.

In Section Seekers of Perl Wisdom