#! /usr/bin/perl # Copyright (c) 2002-2016, Dirk Krause. All rights reserved. # SPDX-License-Identifier: BSD-3-Clause my %filenames; my $fh = undef; my $line; my $fn; if(open($fh, ") { $line = $_; chomp($line); $line = "./$line"; $filenames{"$line"} = 1; } close($fh); $fh = undef; } if(open($fh, "find . -type f | sort |")) { while(<$fh>) { $line = $_; chomp($line); $runtest = 1; if($line =~ /\.git\//o) { $runtest = 0; } if($line =~ /\.\/doc\//o) { $runtest = 0; } if($line =~ /\.\/devdoc\//o) { $runtest = 0; } if(0 != $runtest) { if(!(exists($filenames{"$line"}))) { print "Extra file: $line\n"; } else { $filenames{"$line"} = 0; } } } close($fh); if (1) { foreach $fn (sort (keys %filenames)) { if (1 == $filenames{"$fn"}) { print "Missing file: $fn\n"; } } } } my $fn; foreach $fn (sort (keys %filenames)) { if (1 == $filenames{"$line"}) { print "Not found: $fn\n"; } }