bufr.pm:dump_flag_tables.pl

Differences

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

Link to this comparison view

Both sides previous revision Previous revision
Next revision 		Previous revision
bufr.pm:dump_flag_tables.pl [2011-04-01 11:31:52]
pals 		bufr.pm:dump_flag_tables.pl [2022-05-31 09:29:31] (current)
Line 23: Line 23:
     my $desc = sprintf "%06d", $i;     my $desc = sprintf "%06d", $i;
     my ($name, $unit) = ($bufr->element_descriptor($desc))[0,1];     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);     my $dump = $bufr->dump_codetable($desc, $Ctable);
     if ($dump) {     if ($dump) {
  • bufr.pm/dump_flag_tables.pl.1301657512.txt.gz
  • Last modified: 2022-05-31 09:23:11
  • (external edit)