Perl で GZIP 圧縮転送

Network

http://tech.bayashi.net/pdmemo/gzip.html

$gzip = '/bin/gzip/';
print "Content-type: text/html;charset=Shift_JIS\n";
if($ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/ && $gzip ne ''){  
  if($ENV{'HTTP_ACCEPT_ENCODING'} =~ /x-gzip/){
    print "Content-encoding: x-gzip\n\n";
  }else{
    print "Content-encoding: gzip\n\n";
  }
  open(STDOUT,"| $gzip -1 -c");
}else{
  print "\n";
}