Return to files-to-excludes CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / rsync / support

Annotation of embedaddon/rsync/support/files-to-excludes, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: # This script takes an input of filenames and outputs a set of
        !             3: # include/exclude directives that can be used by rsync to copy
        !             4: # just the indicated files using an --exclude-from=FILE option.
        !             5: use strict;
        !             6: 
        !             7: my %hash;
        !             8: 
        !             9: while (<>) {
        !            10:     chomp;
        !            11:     s#^/+##;
        !            12:     my $path = '/';
        !            13:     while (m#([^/]+/)/*#g) {
        !            14:        $path .= $1;
        !            15:        print "+ $path\n" unless $hash{$path}++;
        !            16:     }
        !            17:     if (m#([^/]+)$#) {
        !            18:        print "+ $path$1\n";
        !            19:     } else {
        !            20:        delete $hash{$path};
        !            21:     }
        !            22: }
        !            23: 
        !            24: foreach (sort keys %hash) {
        !            25:     print "- $_*\n";
        !            26: }
        !            27: print "- /*\n";