File: analyse.pl

package info (click to toggle)
eccodes 2.46.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 154,956 kB
  • sloc: cpp: 163,970; ansic: 26,310; sh: 22,006; f90: 6,854; perl: 6,361; python: 5,352; java: 2,226; javascript: 1,427; yacc: 854; fortran: 543; lex: 359; makefile: 279; xml: 183; awk: 66
file content (23 lines) | stat: -rwxr-xr-x 305 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!/usr/bin/perl
use Data::Dumper;
opendir(DIR,".");
while($d = readdir(DIR))
{
	next unless($d =~ /^grib1.*\.def$/);
	open(IN,"<$d");
	my @x;
	while(<IN>)
	{
		chomp;
		s/#.*//;
		s/\s+/ /g;
		push @x,$_ if($_);
	}

	$q = join(";",sort @x);
	$q =~ s/;+/;/g;

	push @{$def{$q}},$d;
}

print Dumper(\%def);