Shell Programming and Scripting

#list of prefixes
my @list = qw/CMA CMB CMG CMK CML CMM CMP CMW/;
my $date=`date +%Y%m%d`;
chomp( $date );
mkdir -p /testmisc/import/bts/archive/$date, 0777
mkdir -p /testmisc/import/bts/archive/logs/$date, 0777
 
# directory paths
my $IMPORTBTS = "/testmisc/import/bts";
my $IMPORTARCHIVEBTS = "/testmisc/import/bts/archive/$date";
my $IMPORTBTSLOGS = "/testmisc/import/bts/logs";
my $IMPORTARCHBTSLOGS = "/testmisc/import/bts/archive/logs/$date";
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#~ call main
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
main();
 
sub main {
do_archive();
exit(0);
 
}
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#~ Copy Import files to IMPORTARCHIVEBTS
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub do_archive {
 
if ( ! -d $IMPORTBTS ) {
  print "Directory $IMPORTBTS no found!\n";
  exit( 1 );
} 
 
if (! -d $IMPORTARCHIVEBTS ) {
  print "Directory $IMPORTARCHIVEBTS no found!\n";
  exit( 1 );
}
foreach my $p ( @list ) {
  if ( -e "$IMPORTBTS/$p\_Import.txt" ) {
    my @r = `mv $IMPORTBTS/$p\_Import.txt $IMPORTARCHIVEBTS/$p\_Imp_ARCH_$date.txt`;
    print @r;
    `mv $IMPORTBTSLOGS/$p\_Import_Log.txt $IMPORTARCHBTSLOGS/$p\_Imp_Log_$date.txt`;
    print @r; 
  } 
  else {
    print "$IMPORTBTS/$p\_Import.txt not found!\n";
  }
}
 
return;