Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -w
    
    ...
      print "I'm not compressed\n";
    }
    __END__
    
  2. or download this
    #! /usr/bin/perl
    
    ...
    print "uncompressed: ", length( $a ), "\n";
    print "compressed: ", length ($b), "\n";
    __END__
    
  3. or download this
    RewriteCond %{HTTP:accept-encoding} gzip
    RewriteCond %{REQUEST_FILENAME}.gz -f
    RewriteRule ^(.+)$ $1.gz [L]