. . . stations : [ ... , ghed, lanc, ... ] . . . ghed : table_type : lluv rdl9 pattern_type : measured lanc : table_type : lluv rdl8 pattern_type : ideal . . . #### my $params = HFR::SeaSonde::FileOps->new_operation(); #### my $config_file = exists $args{config_file} ? $args{config_file} : $ENV{"HOME"}.'/acorn_perl.yml'; $self = LoadFile $config_file; #### my @stations = @{$params->{codenames}->{codar_stations}}; #### foreach my $station (@stations) { my $table_type = $params->{local}->{$station}->{realtime}->{table_type}; print $table_type."\n"; } exit;