File: hdr

package info (click to toggle)
dibbler 1.0.1-2
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 13,352 kB
  • sloc: cpp: 60,323; ansic: 12,235; sh: 11,951; yacc: 3,418; lex: 969; makefile: 940; perl: 319; xml: 116; python: 74
file content (18 lines) | stat: -rwxr-xr-x 292 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl -w

if (1) {
@list = `find .. -name \*.cpp -or -name \*.h`;
} else {
open(FILE, $ARGV[0]) or die "Unable to open $ARGV[0] file.";
@list = <FILE>;
close(FILE);
};

foreach $file (@list) {
    if (`grep "GPL" $file`) {
#	print "GPL $file";
    } else {
	print "$file";
    }
}