bufr.pm:bufrresolve_source

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:bufrresolve_source [2022-05-31 09:29:31]
external edit 		bufr.pm:bufrresolve_source [2025-11-05 09:24:36] (current)
pals
Line 2: Line 2:
 #!/usr/bin/perl #!/usr/bin/perl
  
-# (C) Copyright 2010-2019 MET Norway+# (C) Copyright 2010-2025 MET Norway
 # #
 # This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
Line 34: Line 34:
 use constant DEFAULT_TABLE_PATH_BUFRDC => '/usr/local/lib/bufrtables'; use constant DEFAULT_TABLE_PATH_BUFRDC => '/usr/local/lib/bufrtables';
 use constant DEFAULT_TABLE_PATH_ECCODES => '/usr/local/share/eccodes/definitions/bufr/tables'; use constant DEFAULT_TABLE_PATH_ECCODES => '/usr/local/share/eccodes/definitions/bufr/tables';
-# Ought to be your most up-to-date B table 
-use constant DEFAULT_TABLE_BUFRDC => 'B0000000000000029000'; 
-use constant DEFAULT_TABLE_ECCODES => '0/wmo/29'; 
  
 # Parse command line options # Parse command line options
Line 113: Line 110:
  
 # BUFR table file to use # BUFR table file to use
-my $table = $option{bufrtable} || +my $table = $option{bufrtable} || Geo::BUFR->get_max_table_version();
-    ($tableformat eq 'BUFRDC' ? DEFAULT_TABLE_BUFRDC : DEFAULT_TABLE_ECCODES);+
  
 my $bufr = Geo::BUFR->new(); my $bufr = Geo::BUFR->new();
Line 240: Line 236:
 descriptor is redefined in later versions. So for convenience, descriptor is redefined in later versions. So for convenience,
 bufrresolve.pl uses a default table (adding option C<--verbose 1> will bufrresolve.pl uses a default table (adding option C<--verbose 1> will
-tell you which table, unless you use C<--bufrtable> to set the table +show you the tables used). If this is the wrong table for your purpose 
-explicitely). If this is the wrong table for your purpose (most common +(most common case will be if the descriptor was added in a higher 
-case will be if the descriptor was added in a higher version than that +version than that of the default table), you should definitely use 
-of the default table), you definitely should use C<--bufrtable> with +C<--bufrtable> with the appropriate table.
-the appropriate table. +
- +
-=head1 NOTE ON --VERBOSE +
- +
-n > 1 in C<--verbose n> does not provide any more output than n=1, so +
-demanding an argument to C<--verbose> looks funny. But if not, sooner +
-or later someone would type C<bufrresolve.pl 307080 --verbose 1> which +
-by Perl would be interpreted as if the arguments were C<307080 000001 +
---verbose>, which probably is not what you intended.+
  
 =head1 AUTHOR =head1 AUTHOR
Line 260: Line 247:
 =head1 COPYRIGHT =head1 COPYRIGHT
  
-Copyright (C) 2010-2019 MET Norway+Copyright (C) 2010-2025 MET Norway
  
 =cut =cut
- 
 </code> </code>
  • bufr.pm/bufrresolve_source.1653989371.txt.gz
  • Last modified: 2022-05-31 09:29:31
  • by