PC Welt 2006 November (DVD)/PCWELT_11_2006.ISO/casper/filesystem.squashfs/usr/src/linux-headers-2.6.17-6/scripts/checkincludes.pl

Perl Script | 1995-11-21 | 529 b | 25 lines

#!/usr/bin/perl
#
# checkincludes: Find files included more than once in (other) files.
# Copyright abandoned, 2000, Niels Kristian Bech Jensen <[e-mail]>.

foreach $file (@ARGV) {
    open(FILE, $file) or die "Cannot open $file: $!.\n";

    my %includedfiles = ();

    while (<FILE>) {
        if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {
            ++$includedfiles{$1};
        }
    }

    foreach $filename (keys %includedfiles) {
        if ($includedfiles{$filename} > 1) {
            print "$file: $filename is included more than once.\n";
        }
    }

    close(FILE);
}