bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added ignore support.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-19 10:26:46 -05:00
parent e140cd8a2a
commit 7d7d601733
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
find-not-in-dir.plx
View file

@ -66,7 +66,6 @@ sub FindAndSortOutput {
return @sortedChompedFiles;
}
######################################################################
if (@ARGV < 2) {
print STDERR "usage: $0 <DIRECTORY_OF_FILES_TO_EXCLUDE> <DIRECTORY> ... <DIRECTORY>\n";
exit 1;
@ -87,7 +86,11 @@ foreach my $file (@ignoredFiles) {
my @files;
foreach my $dir (@directories) {
push(@files, FindAndSortOutput("FILES", $dir));
push(@files, FindAndSortOutput("FILES", $dir, undef, '(?:/\.svn/|~$)'));
}
foreach my $file (@files) {
print "$file\n" unless defined $ignoredFiles{$file};
$ignoredFiles{$file} = 1; # Ignore the ones we've already printed so they aren't printed again.
}
###############################################################################
#