Архив

Публикации с меткой ‘perl’
18 сентября 2017 Нет комментариев

Решение на python чтобы распаковать zip архив, не имея установленной unzip (и не имея возможности или желания установить):

touch pyunzip
#!/usr/bin/env python3
import sys
from zipfile import PyZipFile
for zip_file in sys.argv[1:]:
	pzf = PyZipFile(zip_file)
	pzf.extractall()
chmod +x pyunzip
./pyunzip archive.zip

Еще возможен вариант на perl, (но без unzip он работать не стал):

#!/usr/bin/env perl
use Archive::Extract;
foreach my $filepath (@ARGV){
	my $archive = Archive::Extract->new( archive => $filepath );
	$archive->extract;
}
touch perlunzip
chmod +x perlunzip
./perlunzip archive.zip
You do not have 'Archive::Zip' installed - Please install it as soon as possible. at ./perlunzip line 5.
No '/bin/unzip' program found at ./perlunzip line 5.
Extract failed; no extractors available at ./perlunzip line 5.
Categories: Unix Tags: , ,