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

In reply to Unable to zip the folders which are created on yesterday and the previous month folder for the same yesterdays date. by perladdict

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.