bufr.pm:bufrresolve_source

LDAP: couldn't connect to LDAP server

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 [2019-02-16 07:15:21]
pals 		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.1550301321.txt.gz
  • Last modified: 2022-05-31 09:23:11
  • (external edit)