#!/usr/bin/perl -w
# rcgzipr       --crb3 02May06 from
# locaser.pl   --crb3 16mar98
# rcrsr.pl      --crb3 16mar98
#
# needed, because a simple "gzip -r *html" stops short if the
# cwd doesn't have anything to work on.
#

use Cwd;

$chatty=0;

$filt="*";
$filt=$ARGV[0] if defined $ARGV[0];
$filt =~ s/\*/\.\*/g;                   # convert to regex

&dive;


sub dive() {
  $dir = cwd() if $chatty;
  print "---",$dir,":\n" if $chatty;
  for( <*> ) {
    if(-d ) {
      print $_,"\n" if $chatty;
      chdir $_;
      &dive;
    }elsif( -f  and /^$filt$/){
      `gzip \"$_\"`;
    }
  }
  chdir "..";
}

 Grab a
gzipped
copy
here
 
Syntax highlighting using Syntax::Highlight::Engine::Kate