https://www.opennet.ru/openforum/vsluhforumID9/10250.html Всем привет<br><br>Apache, на нём Perl-скрипт, который читает файл и выдаёт его в браузер:<br><br>open(my $F, '&lt;', "/Folder/logs/error.log") or die $!;<br>binmode($F);<br>{<br> local $/;<br> my $Result = &lt;$F&gt;;<br>}<br>close($F);<br><br>print "Content-type: application/txt; charset=UTF-8\n";<br>print "Content-Disposition: attachment; filename="error.log\n\n";<br>print $Result;<br><br><br>Иногда лог просто гигантский и его необходимо зазиповать перед выдачей.<br><br>1. Как сделать это красиво "в воздухе", без пересохранения файла при зиповании?<br>2. Как зазиповать несколько файлов, тем же способом, т.е. манипулируя только лишь переменными?<br><br><br>Заранее спасибо!<br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#10 Sun, 16 Dec 2018 05:41:29 GMT &gt; Статичный для примера, в реальности лог дёргается по сетевому пути и подсовывание <br>&gt; "прямой" (если так можно выразиться) ссылки невозможно для пользователя.<br><br>Вам для начала надо ознакомится с матчастью. А "по наитию" вы так и продолжите лепить горбатого.<br>Статичный это не то что вы представляете. Статичный контент - это файл на диске или где-то еще, существующий постоянно, в отличие от динамического контента - генерируемого "на лету" скриптами. Динамический контент нигде не существует постоянно, он генерируется, а статичный- существует постоянно, его можно в любой момент прочитать как файл. Тоесть елси до начала вызова скрипта, файл который вы собрались отдавать пользователю уже где-то существовал - то это статичный контент, а если он нигде не существовал- то динамический.<br>Судя по вашему скрипту- вы тупо перекачиваете статичный контент, нагружая сервер совершенно бессмысленнйо работой ради работы. Ну или потому что архитектурное решение использованное вами- продиктовано незнанием и профневежеством.<br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#9 Thu, 13 Dec 2018 19:43:09 GMT &gt; А ещё включить gzip на лету в том же апаче. Вообще ничего <br>&gt; писать не нужно.<br><br>Афтар на своей волне походу - через опу но по своему.<br><br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#8 Thu, 13 Dec 2018 19:42:26 GMT &gt; Статичный для примера, в реальности лог дёргается по сетевому пути и подсовывание <br>&gt; "прямой" (если так можно выразиться) ссылки невозможно для пользователя.<br><br>у вас там какое-то корпоративное табу на монтирование сетевых ресурсов?<br><br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#7 Thu, 13 Dec 2018 06:09:05 GMT &gt; 3) почемубы вместо всего это идиотизма просто не отдавать файл целиком по <br>&gt; ссылке, вывалив каталог логов в апаче с включенным индексированием, ибо он <br>&gt; целиком отдается и прогонять его целиком через скрипт маразм.<br><br>А ещё включить gzip на лету в том же апаче. Вообще ничего писать не нужно.<br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#6 Thu, 13 Dec 2018 06:07:46 GMT &gt; Не понял, как сделать зип из нескольких файлов по конвееру? Там же <br>&gt; в зипе имена как-то должны быть указаны <br><br>Ага, указаны. В конце файла.<br>ZIP - самый неудобный формат для [больших] потоков.<br><br>Используй gzip, жми файлы по-одиночке. Если уж совсем неймётся - смотри на tar.gz.<br><br>И будет тебе счастье.<br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#5 Wed, 12 Dec 2018 13:54:18 GMT Спасибо!<br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#4 Wed, 12 Dec 2018 09:49:50 GMT http://yaforyou.ru/?q=perl%20create%20zip%20archive%20on%20the%20fly<br><br>по первой же ссылке<br>https://www.perlmonks.org/?node_id=929668<br><br>[code]use IO::Compress::Zip qw(:all);<br><br>my @files = ('error.log', 'access.log', 'ssl_request.log');<br><br>my $path = "/var/log/apache22";<br><br>print "Content-Type:application/zip\n";<br>print "Content-Disposition: attachment; filename=\"filename.zip\"\n\n";<br><br>my $z;<br><br>foreach my $file (@files) {<br> if ($z) {<br> $z-&gt;newStream(Name =&gt; $file, Method =&gt; ZIP_CM_STORE);<br> } else {<br> $z = new IO::Compress::Zip "-", Name =&gt; $file, Method =&gt; ZIP_CM_STORE;<br> }<br><br> open(FILE, "&lt;", "$path/$file");<br> binmode FILE;<br><br> my ($buf, $data, $n);<br><br> while (($n = read FILE,$data, 1024) != 0) {<br> $z-&gt;print($data);<br> }<br><br> close(FILE);<br>}<br><br>$z-&gt;close;<br><br>exit;[/code]<br><br>всё уже изобретено до нас и для нас<br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#3 Wed, 12 Dec 2018 09:24:15 GMT Статичный для примера, в реальности лог дёргается по сетевому пути и подсовывание "прямой" (если так можно выразиться) ссылки невозможно для пользователя.<br><br>Не понял, как сделать зип из нескольких файлов по конвееру? Там же в зипе имена как-то должны быть указаны<br> https://www.opennet.ru/openforum/vsluhforumID9/10250.html#2 Wed, 12 Dec 2018 09:10:02 GMT &gt;[оверквотинг удален]<br>&gt; } <br>&gt; close($F); <br>&gt; print "Content-type: application/txt; charset=UTF-8\n"; <br>&gt; print "Content-Disposition: attachment; filename="error.log\n\n"; <br>&gt; print $Result; <br>&gt; Иногда лог просто гигантский и его необходимо зазиповать перед выдачей.<br>&gt; 1. Как сделать это красиво "в воздухе", без пересохранения файла при зиповании? <br>&gt; 2. Как зазиповать несколько файлов, тем же способом, т.е. манипулируя только лишь <br>&gt; переменными?<br>&gt; Заранее спасибо!<br><br>1) Не использавать binmode для текстовых файлов.<br>2) Читать файл readline вместо my $Result = &lt;$F&gt;; <br>3) почемубы вместо всего это идиотизма просто не отдавать файл целиком по ссылке, вывалив каталог логов в апаче с включенным индексированием, ибо он целиком отдается и прогонять его целиком через скрипт маразм.<br>