10 open(HANDLE, $fname) || die "Can't open $fname";
12 read(HANDLE, $data, 4096);
13 $data =~ tr/A-Za-z0-9/ /cs;
15 if ($data =~ /GNU General Public/ ||
16 $data =~ /GNU Public License/) {
17 if ($data =~ /Everyone is permitted to copy and distribute verbatim copies of this license document but changing it is not allowed/) {
19 } elsif ($data =~ /License version 3/) {
21 } elsif ($data =~ /any later version/ ||
22 $data =~ /v2 or later/ ||
23 $data =~ /version 2 or later/) {
25 } elsif ($data =~ /version 2/i) {
27 printf("%s\n", $fname);
31 } elsif ($data =~ /copyright/i ||
32 $data =~ /license/i) {
47 opendir(DIR, $dname) || die "Can't open directory $dname";
48 my @names = readdir(DIR);
49 foreach my $f (@names) {
50 next if ($f eq ".") || ($f eq "..");
51 my $fname = $dname . "/" . $f;
62 for (my $i=0;$i<=$#ARGV;$i++) {
66 foreach my $l (keys %ltype) {
67 printf("%-6s %u\n", $l, $ltype{$l});