Differences

This shows you the differences between two versions of the page.

--- bufr.pm:dump_flag_tables.pl [2010-05-14 10:20:30]
pals
+++ bufr.pm:dump_flag_tables.pl [2022-05-31 09:29:31] (current)
@@ Line 1: / Line 1: @@
-<code>
+<code perl>
 #!/usr/bin/perl -w
-# Dump all flag tables in table file
+# Dump all flag tables in table file.
+# Flag tables not found is printed to STDERR.
 # Author: P.Sannes, met.no 2010-05-12
@@ Line 9: / Line 10: @@
 my $table_path = '/usr/local/lib/bufrtables';
-my $table = 'B0000000000098013001';
+my $Btable = 'B0000000000000014000.TXT';
+my $Ctable = 'C0000000000000014000.TXT';
 Geo::BUFR->set_tablepath($table_path);
@@ Line 15: / Line 17: @@
 my $bufr = Geo::BUFR->new();
-$bufr->load_BDtables($table);
+$bufr->load_BDtables($Btable);
-$bufr->load_Ctable($table);
+$bufr->load_Ctable($Ctable);
-my $B_table = $bufr->{B_TABLE};
-my $C_table = $bufr->{C_TABLE};
-for my $i (1..50000) {
+for my $i (1..48000) {
     my $desc = sprintf "%06d", $i;
-    next unless $bufr->{C_TABLE}->{$desc};
+    my ($name, $unit) = ($bufr->element_descriptor($desc))[0,1];
-    # Some code/flag tables in C*.TXT were found not to be defined in
+    next unless defined $unit && $unit =~ /^FLAG( )?TABLE/;
-    # the corresponding B*.TXT
+    my $dump = $bufr->dump_codetable($desc, $Ctable);
-    next unless defined $B_table->{$desc};
+    if ($dump) {
-    my ($name, $unit) = (split /\0/, $B_table->{$desc})[0,1];
+        print "$desc $name\n";
-    next unless $unit =~ /^FLAG TABLE/;
+        print $dump;
-    print "$desc $name $unit\n";
+    } elsif ($desc%1000 < 192) {
-    print $bufr->dump_codetable($desc, $table)
+        # Don't care about local tables missing
+        print STDERR "Flag table $desc is missing in $Ctable\n";
+    }
 }
 </code>