SL
надо глянуть, не помню навскидку. Аннтация точно должна работать
куда её вписать?
Size: a a a
2020 April 06
AE
можешь декларацию хелпера проаннотировать
AE
И лучше ишую завести про автоматический резолв
ММ
кто сталкивался с распаковкой запароленых zip архивов ?
ММ
Есть ли какой-то годный модуль?
ММ
или так колбасить:
system("unzip -L -P $password -n $zipfile -d $outputdir");
my $retcode = ($? >> 8);
if ($retcode) {
## abnormal failure
die "unzip returned abnormal exit code $retcode";
}
system("unzip -L -P $password -n $zipfile -d $outputdir");
my $retcode = ($? >> 8);
if ($retcode) {
## abnormal failure
die "unzip returned abnormal exit code $retcode";
}
О
Archive::Zip?
ММ
Archive::Zip?
The Archive::Zip module does not currently create or extract encrypted members.
ММ
из доки на него
О
$ echo hi there > file.txt
$ zip -e file.zip file.txt
Enter password:
Verify password:
adding: file.txt (stored 0%)
$ perl -MArchive::Zip -E '$z = Archive::Zip->new; $z->read("file.zip"); $m = $z->memberNamed("file.txt"); $m->password("secret"); say $m->contents;'
hi there
0
$ perl -MArchive::Zip -E 'say $Archive::Zip::VERSION'
1.65
AP
или так колбасить:
system("unzip -L -P $password -n $zipfile -d $outputdir");
my $retcode = ($? >> 8);
if ($retcode) {
## abnormal failure
die "unzip returned abnormal exit code $retcode";
}
system("unzip -L -P $password -n $zipfile -d $outputdir");
my $retcode = ($? >> 8);
if ($retcode) {
## abnormal failure
die "unzip returned abnormal exit code $retcode";
}
через вызов внешних утилит я помню делал, но терминал настраивать надо было
AP
$ echo hi there > file.txt
$ zip -e file.zip file.txt
Enter password:
Verify password:
adding: file.txt (stored 0%)
$ perl -MArchive::Zip -E '$z = Archive::Zip->new; $z->read("file.zip"); $m = $z->memberNamed("file.txt"); $m->password("secret"); say $m->contents;'
hi there
0
$ perl -MArchive::Zip -E 'say $Archive::Zip::VERSION'
1.65
может что-то изменилось за три года. раньше нельзя было
ММ
$ echo hi there > file.txt
$ zip -e file.zip file.txt
Enter password:
Verify password:
adding: file.txt (stored 0%)
$ perl -MArchive::Zip -E '$z = Archive::Zip->new; $z->read("file.zip"); $m = $z->memberNamed("file.txt"); $m->password("secret"); say $m->contents;'
hi there
0
$ perl -MArchive::Zip -E 'say $Archive::Zip::VERSION'
1.65
может версия старая, пойду посмотрю что есть из обновлений
AP
$ echo hi there > file.txt
$ zip -e file.zip file.txt
Enter password:
Verify password:
adding: file.txt (stored 0%)
$ perl -MArchive::Zip -E '$z = Archive::Zip->new; $z->read("file.zip"); $m = $z->memberNamed("file.txt"); $m->password("secret"); say $m->contents;'
hi there
0
$ perl -MArchive::Zip -E 'say $Archive::Zip::VERSION'
1.65
а запаковывать умеет?
О
должен
AP
вот если что мои изыскания три года назад в этом же чатике. https://t.me/modernperl/66929
О
если архивы чужие, рекомендую помнить про файлбомбы
AP
мне надо было наоборот запаковывать
AP
и чувак до меня тоже иного способа не нашёл, кроме как зип запускать через экспект. только у него код работал редко и потому не сразу были заметны проблемы, что архивы создаются не всегда.