Personal Computer World 2007 September/PCWSEP07.iso/Software/Linux/Linux Mint 3.0 Light/LinuxMint-3.0-Light.iso/casper/filesystem.squashfs/usr/src/linux-headers-2.6.20-15-generic/scripts/checkincludes.pl

Perl Script | 2007-04-12 | 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);
}