Differences

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

--- bufr.pm:dump_flag_tables.pl [2010-07-22 08:12:27]
pals created
+++ bufr.pm:dump_flag_tables.pl [2022-05-31 09:29:31] (current)
@@ Line 1: / Line 1: @@
-<code>
+<code perl>
 #!/usr/bin/perl -w
@@ Line 23: / Line 23: @@
     my $desc = sprintf "%06d", $i;
     my ($name, $unit) = ($bufr->element_descriptor($desc))[0,1];
-    next unless defined $unit && $unit =~ /^FLAG TABLE/;
+    next unless defined $unit && $unit =~ /^FLAG( )?TABLE/;
     my $dump = $bufr->dump_codetable($desc, $Ctable);
     if ($dump) {
@@ Line 30: / Line 30: @@
     } elsif ($desc%1000 < 192) {
         # Don't care about local tables missing
-        print STDERR "Flag table $desc is missing in $Ctable\n"
+        print STDERR "Flag table $desc is missing in $Ctable\n";
     }
 }
 </code>