bufr.pm:bufrencode_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:bufrencode_source [2016-04-18 07:53:26]
pals 		bufr.pm:bufrencode_source [2025-11-05 09:27:00] (current)
pals
Line 1: Line 1:
 <code perl> <code perl>
-#!/usr/bin/perl -w+#!/usr/bin/perl
  
-# (C) Copyright 2010-2016 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 22: Line 22:
  
 use strict; use strict;
 +use warnings;
 use Getopt::Long; use Getopt::Long;
 use Pod::Usage qw(pod2usage); use Pod::Usage qw(pod2usage);
 use Geo::BUFR; use Geo::BUFR;
 +
 +# This is actually default in BUFR.pm, but provided here to make it
 +# easier for users to change to 'ECCODES' if preferred
 +use constant DEFAULT_TABLE_FORMAT => 'BUFRDC';
  
 # Will be used if neither --tablepath nor $ENV{BUFR_TABLES} is set # Will be used if neither --tablepath nor $ENV{BUFR_TABLES} is set
-use constant DEFAULT_TABLE_PATH => '/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';
  
 # Parse command line options # Parse command line options
Line 39: Line 45:
            'outfile=s',            'outfile=s',
            'strict_checking=i',            'strict_checking=i',
 +           'tableformat=s',
            'tablepath=s',            'tablepath=s',
            'verbose=i',            'verbose=i',
Line 59: Line 66:
 # Set verbosity level # Set verbosity level
 Geo::BUFR->set_verbose($option{verbose}) if $option{verbose}; Geo::BUFR->set_verbose($option{verbose}) if $option{verbose};
 +
 +# Set BUFR table format
 +my $tableformat = (defined $option{tableformat}) ? uc $option{tableformat} : DEFAULT_TABLE_FORMAT;
 +Geo::BUFR->set_tableformat($tableformat);
  
 # Set BUFR table path # Set BUFR table path
Line 68: Line 79:
     Geo::BUFR->set_tablepath($ENV{BUFR_TABLES});     Geo::BUFR->set_tablepath($ENV{BUFR_TABLES});
 } else { } else {
-    # If all else fails, use the default bufrtables +    # If all else fails, use the default tablepath in BUFRDC/ECCODES 
-    Geo::BUFR->set_tablepath(DEFAULT_TABLE_PATH);+    if ($tableformat eq 'BUFRDC') { 
 +        Geo::BUFR->set_tablepath(DEFAULT_TABLE_PATH_BUFRDC); 
 +    } elsif ($tableformat eq 'ECCODES')  { 
 +        Geo::BUFR->set_tablepath(DEFAULT_TABLE_PATH_ECCODES); 
 +    }
 } }
  
Line 191: Line 206:
       [--outfile <file to print encoded BUFR message to>]       [--outfile <file to print encoded BUFR message to>]
       [--strict_checking n]       [--strict_checking n]
 +      [--tableformat <BUFRDC|ECCODES>]
       [--tablepath <path to BUFR tables>]       [--tablepath <path to BUFR tables>]
       [--verbose n]       [--verbose n]
Line 207: Line 223:
 =head1 OPTIONS =head1 OPTIONS
  
-   --outfile <filename>  Will print the encoded BUFR message to <filename> +   --help               Display Usage and explain the options. Almost 
-                         instead of STDOUT +                        the same as consulting perldoc bufrencode.pl 
- +   --outfile <filename> Will print the encoded BUFR message to <filename> 
-   --strict_checking n   n=0 Disable strict checking of BUFR format +                        instead of STDOUT 
-                         n=1 Issue warning if (recoverable) error in +   --strict_checking n  n=0 Disable strict checking of BUFR format 
-                             BUFR format +                        n=1 Issue warning if (recoverable) error in 
-                         n=2 (default) Croak if (recoverable) error in BUFR format. +                            BUFR format 
-                             Nothing more in this message will be encoded. +                        n=2 (default) Croak if (recoverable) error in BUFR format. 
- +                            Nothing more in this message will be encoded. 
-   --verbose n           Set verbose level to n, 0<=n<=6 (default 0). +   --tableformat        Currently supported are BUFRDC and ECCODES (default is BUFRDC)
-                         Verbose output is sent to STDOUT, so ought to +
-                         be combined with option --outfile +
    --tablepath <path to BUFR tables>    --tablepath <path to BUFR tables>
-                         If used, will set path to BUFR tables. If not set, +                        If used, will set path to BUFR tables. If not 
-                         will fetch tables from the environment variable +                        set, will fetch tables from the environment 
-                         BUFR_TABLES, or if this is not set: will use +                        variable BUFR_TABLES, or if this is not set: 
-                         DEFAULT_TABLE_PATH hard coded in source code. +                        will use DEFAULT_TABLE_PATH_<tableformat> 
- +                        hard coded in source code. 
-   --help                Display Usage and explain the options. Almost +   --verbose n          Set verbose level to n, 0<=n<=6 (default 0). 
-                         the same as consulting perldoc bufrencode.pl+                        Verbose output is sent to STDOUT, so ought to 
 +                        be combined with option --outfile
  
 =head2 Required options =head2 Required options
Line 306: Line 320:
 =head1 COPYRIGHT =head1 COPYRIGHT
  
-Copyright (C) 2010-2016 MET Norway+Copyright (C) 2010-2025 MET Norway
  
 =cut =cut
- 
 </code> </code>
  • bufr.pm/bufrencode_source.1460966006.txt.gz
  • Last modified: 2022-05-31 09:23:11
  • (external edit)