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]