æ„›ã—ã¦ã¾ã™ã€å®šæ•°ç•³ã¿è¾¼ã¿ : D-7 <altijd in beweging>ã‚‚ã—ã‚ãªãŸã®perl HTTPãƒãƒ³ãƒ‰ãƒ©ãŒã€Œå¯èƒ½ãªã‚‰gzipã—ãŸã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã‚’è¿”ã—ãŸã„ã€ã¨æ€ã†ãªã‚‰ã€Compress::Zlibを使ã†ã ã‚ã†ã€‚ã ãŒãれを毎回eval + requireã™ã‚‹ã®ã¯æ£ç›´ç„¡é§„ã 。ãªãœãªã‚‰ãƒ—ãƒã‚°ãƒ©ãƒ ãŒèµ·å‹•ã—ãŸæ™‚ã«ã™ã§ã«ãれを毎回行ã†ã®ã‹ã©ã†ã‹ã™ã§ã«ã‚ã‹ã£ã¦ã„ã‚‹ã‹ã‚‰ã 。 sub psgi_response { my ($self, $content) = @_; my $req = $self->req; my $res = $self->res; if ($req->header('Accept-Encoding') =~ /\bgzip\b/i) { if (eval { require Compress::Zlib }) { $res->header('Content-Encoding' => 'gzip'); $content = Compress::Zlib::
{{#tags}}- {{label}}
{{/tags}}