Select Code to Download

#!/usr/bin/env perl

...

    return;
}

ken@titan ~/tmp/pm_11150213_zip_dirtree
$ rm -rf a d
...

ken@titan ~/tmp/pm_11150213_zip_dirtree
$ for dir in a a/b a/c d d/e d/f d/f/g; do > $dir/x00; > $dir/y; > $di
+r/z01; done

ken@titan ~/tmp/pm_11150213_zip_dirtree
$ ./compress00.pl
...
    Skipped: '/home/ken/tmp/pm_11150213_zip_dirtree/d/y' (doesn't matc
+h pattern '(?^:00$)')
    * Path:  '/home/ken/tmp/pm_11150213_zip_dirtree/d/z01'
    Skipped: '/home/ken/tmp/pm_11150213_zip_dirtree/d/z01' (doesn't ma
+tch pattern '(?^:00$)')