Dear Monks

In order to take a daily backup from primary drives to the secondry drives,i am trying to impliment the script which needs to zip yestrdays date folder and previous month folder which has the same date as of yestrdays date.This i need to run daily at morning so that it shouyld zip only yestreday date folder and previous months folder which has same date as of yesterdays folder.Right now for testing i am creating the zip in the same primary drive, but once if i succeed in zipping specific folder, i can change the zip path in system sommand.

For testing perpose i have kept few folder like 20130523,20130519,20130510,20130423,20130402,20130524,20130424,etc in E drive.Among them i just wanted to zip only 20130523 and 20130423 folders.
Below is the code which i am trying to achive this

#!/usr/bin/perl
use POSIX;
use Utils;
use ReadConfigFile;
use FileHandle;

$ConfigFile="E:\\rajtest\\xxx\\yyy\\data\\lib\\test.ini";
print "$ConfigFile\n";
$oConfigFile=ReadConfigFile::new($ConfigFile);
if (not defined $oConfigFile){
  die ("ConfigFile $ConfigFile cannot be accessed");
}

$DirCoolOut=$oConfigFile->{DirOut};
print "$DirOut\n";
$AbsWinZip=$oConfigFile->{AbsWinZip};
print "$AbsWinZip\n";
$DirBakCoolOutZip=$oConfigFile->{DirBakCoolOutZip};
print "$DirOutZip\n";
$DirBakZipLog=$oConfigFile->{DirBakZipLog};
print "$DirBakZipLog\n";

CheckDir($DirBakCoolOutZip,"CREATE");
CheckDir($DirBakZipLog,"CREATE");

die ("Invalid winzip application")                 if not defined $Abs
+WinZip;
die ("Backup location $DirBakCoolOutZip")          if not -e $DirBakCo
+olOutZip;
die ("Invalid Backup log location $DirBakZipLog")  if not -e $DirBakZi
+pLog;

#open(FH,$DirCoolOut) or die "can't find the directory $!\n";
#while($line = <FH>) {
 #chomp $line;
 $path = $DirOut;
 opendir(D,"$DirCoolOut") or die "can't open the directory $!\n";
 my @folders = grep {(!/^\./) &amp;&amp; (!/^\.\./) } readdir(D);
    $winzip = "$AbsWinZip";

$now = localtime();
#print "$now\n";
%months = ("jan" => 1,"Feb" => 2,"Mar" => 3,"Apr" => 4,"May" =>5,"Jun"
+ =>6,"Jul"=>7,
          "Aug"=>8,"Sep"=>9,"Oct"=>10,"Nov"=>11,"Dec" =>12);
@now = split(" ",$now);
$month = $months{$now[1]};
$year = $now[-1];
$date = $now[2];
$yesterdaydate = $date - 1;
$yesterdaydate = sprintf("%.2d",$yesterdaydate);
$month = sprintf("%.2d",$month);
$date = sprintf("%.2d",$date);
$dateformat = "$year$month$yesterdaydate";
$Yesterdayzip = $dateformat;
print "$Yesterdayzip\n";
#print "$dateformat\n";
$prevmonth = $month-1;
$prevmonth = sprintf("%.2d",$prevmonth);
$premonthdate = "$year$prevmonth$yesterdaydate\n";
$previousmonthzip = $premonthdate;
print "$previousmonthzip\n";



        foreach $file (@folders) {
        #print "$file\n";


        $abspath = "$path$file";
        $abspath1 = "$path$Yesterdayzip";
        if($abspath =~ /$path$Yesterdayzip/) {
        system("\"$winzip\" -P $abspath.zip $abspath");
        }
        if($apspath =~ /$previousmonthzip/) {
        system("\"$winzip\" -P $abspath.zip $abspath");
        }
        #$abspath2 = "$path$$previousmonthzip";
        #print "$abspath\n";
        #system("\"$winzip\" -P $abspath.zip $abspath");
        #system("\"$winzip\" -P $abspath.zip $abspath");
        #system("\"$winzip\" -P $abspath1.zip $abspath");
        #system("\"$winzip\" -P $abspath2.zip $abspath");
        }
[download]

From the above code if i commentout the pattern matching lines and i am able to zip all the folders in the E:drive, but when i do pattern match the folders with the yesterdays date and previous months yesterdays date, i unable to zip the specific dated files
Monks,Appriciates for your attention for this post and kindly guide me for achiving this task.Thanks in Advance