#!/usr/bin/perl
# PERL MODULES USED
use DBI;
use DBD::ODBC;
use DBD::File;
use Time::localtime;
use Time::HiRes;
use File::Path;
use File::Copy;
use File::Basename qw( fileparse );
use File::Path qw( make_path );
use File::Spec;
use File::Find;
use FileHandle;
use File::Slurp;
use File::PerlMove;
use Archive::Zip;

print "Modules have been initialized.\n";

# CONFIG HASH


my %compHash =
   ("e:/pervasive/staging/summit/C01" => "e:/pervasive/test/APEX012015/C01",
	"e:/pervasive/staging/summit/C02" => "e:/pervasive/test/APEX022015/C02",
	"e:/pervasive/staging/summit/C03" => "e:/pervasive/test/APEX032015/C03",
	"e:/pervasive/staging/summit/C04" => "e:/pervasive/test/APEX042015/C04",
	"e:/pervasive/staging/summit/C05" => "e:/pervasive/test/APEX052015/C05",
	"e:/pervasive/staging/summit/C06" => "e:/pervasive/test/APEX062015/C06",
	"e:/pervasive/staging/summit/C07" => "e:/pervasive/test/APEX072015/C07",
	"e:/pervasive/staging/summit/C08" => "e:/pervasive/test/APEX082015/C08",
	"e:/pervasive/staging/summit/C30" => "e:/pervasive/test/APEX302015/C30",
	"e:/pervasive/staging/summit/C40" => "e:/pervasive/test/APEX402015/C40",
	"e:/pervasive/staging/summit/C41" => "e:/pervasive/test/APEX412015/C41",
	"e:/pervasive/staging/summit/C42" => "e:/pervasive/test/APEX422015/C42",
	"e:/pervasive/staging/summit/C43" => "e:/pervasive/test/APEX432015/C43",
	"e:/pervasive/staging/summit/C44" => "e:/pervasive/test/APEX442015/C44",
	"e:/pervasive/staging/summit/C50" => "e:/pervasive/test/APEX502015/C50",
	"e:/pervasive/staging/summit/C80" => "e:/pervasive/test/APEX802015/C80",
	"e:/pervasive/staging/summit/C85" => "e:/pervasive/test/APEX852015/C85",
	"e:/pervasive/staging/summit/C99" => "e:/pervasive/test/APEX992015/C99",
	"e:/pervasive/staging/summit/C01-2015" => "e:/pervasive/test/APEX012015/CSW",
	"e:/pervasive/staging/summit/C02-2015" => "e:/pervasive/test/APEX022015/CSW",
	"e:/pervasive/staging/summit/C03-2015" => "e:/pervasive/test/APEX032015/CSW",
	"e:/pervasive/staging/summit/C04-2015" => "e:/pervasive/test/APEX042015/CSW",
	"e:/pervasive/staging/summit/C05-2015" => "e:/pervasive/test/APEX052015/CSW",
	"e:/pervasive/staging/summit/C06-2015" => "e:/pervasive/test/APEX062015/CSW",
	"e:/pervasive/staging/summit/C07-2015" => "e:/pervasive/test/APEX072015/CSW",
	"e:/pervasive/staging/summit/C08-2015" => "e:/pervasive/test/APEX082015/CSW",
	"e:/pervasive/staging/summit/C30-2015" => "e:/pervasive/test/APEX302015/CSW",
	"e:/pervasive/staging/summit/C40-2015" => "e:/pervasive/test/APEX402015/CSW",
	"e:/pervasive/staging/summit/C41-2015" => "e:/pervasive/test/APEX412015/CSW",
	"e:/pervasive/staging/summit/C42-2015" => "e:/pervasive/test/APEX422015/CSW",
	"e:/pervasive/staging/summit/C43-2015" => "e:/pervasive/test/APEX432015/CSW",
	"e:/pervasive/staging/summit/C44-2015" => "e:/pervasive/test/APEX442015/CSW",
	"e:/pervasive/staging/summit/C50-2015" => "e:/pervasive/test/APEX502015/CSW",
	"e:/pervasive/staging/summit/C80-2015" => "e:/pervasive/test/APEX802015/CSW",
	"e:/pervasive/staging/summit/C85-2015" => "e:/pervasive/test/APEX852015/CSW",
	"e:/pervasive/staging/summit/C99-2015" => "e:/pervasive/test/APEX992015/CSW"
	);
	
print "Hash assigned! \n\n";


##Variables

my $tm=localtime();
my ($day,$month,$year)=($tm->mday,$tm->mon+1,$tm->year+1900);
my $MDY;
my $dayday = sprintf("%02d",$day % 100);
my $size = length($day);
if($size < 2) {
$MDY = "$month$dayday$year";
	}
else {
$MDY = "$month$day$year";
	}
print "$MDY \n\n";

print "Variables and Time assigned! \n";

#Foreach C## -> /sql-alt/e/pervasive/APEXCCYYYY/CS## or /sql-alt/e/pervasive/APEXCCYYYY/CSW

foreach my $key(keys %compHash) {
my $value = $compHash{$key};
move($key , $value);
print "Successfuly moved $key to $value .\n";
		
}