mirror of https://github.com/ecmwf/eccodes.git
24 lines
305 B
Perl
Executable File
24 lines
305 B
Perl
Executable File
#!/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);
|