Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
bufr.pm:bufr_reencode_source [2016-04-18 07:55:01] pals |
bufr.pm:bufr_reencode_source [2023-02-05 10:20:14] (current) pals |
||
---|---|---|---|
Line 1: | Line 1: | ||
<code perl> | <code perl> | ||
- | # | + | # |
- | # (C) Copyright 2010-2016 MET Norway | + | # (C) Copyright 2010-2023 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 Carp; | use Carp; | ||
use Getopt:: | use Getopt:: | ||
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 ' | ||
+ | use constant DEFAULT_TABLE_FORMAT => ' | ||
# 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 | + | use constant |
+ | use constant DEFAULT_TABLE_PATH_ECCODES => '/ | ||
# Parse command line options | # Parse command line options | ||
Line 38: | Line 44: | ||
' | ' | ||
' | ' | ||
+ | ' | ||
' | ' | ||
' | ' | ||
Line 59: | Line 66: | ||
# Set verbosity level | # Set verbosity level | ||
Geo:: | Geo:: | ||
+ | |||
+ | # Set BUFR table format | ||
+ | my $tableformat = (defined $option{tableformat}) ? uc $option{tableformat} : DEFAULT_TABLE_FORMAT; | ||
+ | Geo:: | ||
# Set BUFR table path | # Set BUFR table path | ||
Line 68: | Line 79: | ||
Geo:: | Geo:: | ||
} else { | } else { | ||
- | # If all else fails, use the default | + | # If all else fails, use the default |
- | Geo:: | + | |
+ | | ||
+ | } elsif ($tableformat eq ' | ||
+ | Geo:: | ||
+ | } | ||
} | } | ||
Line 102: | Line 117: | ||
| | ||
| | ||
+ | | ||
| | ||
| | ||
Line 144: | Line 160: | ||
| | ||
be combined with option --outfile | be combined with option --outfile | ||
+ | | ||
| | ||
If used, will set path to BUFR tables. If not set, | If used, will set path to BUFR tables. If not set, | ||
will fetch tables from the environment variable | will fetch tables from the environment variable | ||
| | ||
- | DEFAULT_TABLE_PATH | + | DEFAULT_TABLE_PATH_< |
| | ||
the same as consulting perldoc bufr_reencode.pl | the same as consulting perldoc bufr_reencode.pl | ||
Line 165: | Line 182: | ||
=head1 COPYRIGHT | =head1 COPYRIGHT | ||
- | Copyright (C) 2010-2016 MET Norway | + | Copyright (C) 2010-2023 MET Norway |
=cut | =cut | ||
- | |||
</ | </ |