Исходное сообщение
"Прочитать файл в переменную, зазиповать и выдать в браузер" Отправлено михалыч, 12-Дек-18 12:49
http://yaforyou.ru/?q=perl%20create%20zip%20a... по первой же ссылке https://www.perlmonks.org/?node_id=929668 use IO::Compress::Zip qw(:all); my @files = ('error.log', 'access.log', 'ssl_request.log'); my $path = "/var/log/apache22"; print "Content-Type:application/zip\n"; print "Content-Disposition: attachment; filename=\"filename.zip\"\n\n"; my $z; foreach my $file (@files) {     if ($z) {         $z->newStream(Name => $file, Method => ZIP_CM_STORE);     } else {         $z = new IO::Compress::Zip "-", Name => $file, Method => ZIP_CM_STORE;     }     open(FILE, "<", "$path/$file");     binmode FILE;     my ($buf, $data, $n);     while (($n = read FILE,$data, 1024) != 0) {         $z->print($data);     }     close(FILE); } $z->close; exit; всё уже изобретено до нас и для нас

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> http://yaforyou.ru/?q=perl%20create%20zip%20archive%20on%20the%20fly > по первой же ссылке > https://www.perlmonks.org/?node_id=929668 > [code]use IO::Compress::Zip qw(:all); > my @files = ('error.log', 'access.log', 'ssl_request.log'); > my $path = "/var/log/apache22"; > print "Content-Type:application/zip\n"; > print "Content-Disposition: attachment; filename=\"filename.zip\"\n\n"; > my $z; > foreach my $file (@files) { > if ($z) { > $z->newStream(Name => $file, Method > => ZIP_CM_STORE); > } else { > $z = new IO::Compress::Zip > "-", Name => $file, Method => ZIP_CM_STORE; > } > open(FILE, "<", "$path/$file"); > binmode FILE; > my ($buf, $data, $n); > while (($n = read FILE,$data, 1024) != 0) > { > $z->print($data); > } > close(FILE); > } > $z->close; > exit;[/code] > всё уже изобретено до нас и для нас
	Введите код, изображенный на картинке: