#!/usr/bin/perl 

use strict;
use warnings;

my(@test_dates) = '20110414';
my $listfile    = '/root/Desktop/Log.txt';
foreach my $date(@test_dates) {
    my $obs_file_dir  = 'inpath';
    my $pred_file_dir = 'outpath';
    mkdir "$pred_file_dir", 0755 unless -d "$pred_file_dir";
    
    my $obs_file_list = $listfile;
    open( DIR, '<', $obs_file_list ) or die $!;
    
    my(@obs_files) = <DIR>;
    close(DIR);
    foreach my $file(@obs_files) {
        $file =~ s/(\*)//g;
        my $infile  = $obs_file_dir . $file;
        my $outfile = $pred_file_dir . $file;
        $outfile =~ s/nid/cdf/g;
        print $infile . "\n";
    }
}