#!/usr/local/bin/perl -w
#
# test.pl

$config_param{'data_file_type'} = "dat";
$config_param{'data_file_pattern'} = "ctd*";

$data_subdirectory = '/data12/sodata/jklinck/nbp0104/OneMeter';

$data_file_type = $config_param{'data_file_type'}; 
#$data_file_type_uc = uc $config_param{'data_file_type'}; 
$data_file_pattern = $config_param{'data_file_pattern'}; 
#$data_file_pattern_uc = uc $config_param{'data_file_pattern'};

@datafiles = <$data_subdirectory/$data_file_pattern.$data_file_type>;

print STDOUT ("Test: data_file_pattern=$data_file_pattern, ",
	"data_file_type=$data_file_type\n");
	
print STDOUT ("Test: data_subdirectory=$data_subdirectory\n");

print STDOUT ("Test: datafiles[0]=$datafiles[0]\n")