Shell Programming and Scripting

#!/perl/bin/perl

# --------------------------------------------------------------
# Creates a backup in a specified folder of each file in a
# target folder


#set this to your backup folder
$backupFolder = "c:\backup";

#set this to the folder you want to track
$trackFolder = "c:\documents";

while (1) {
  opendir(TARGETFOLDER, $trackFolder);
  @files = readdir(TARGETFOLDER);
  closedir(TARGETFOLDER);

  opendir(BACKUPFOLDER, $backupFolder);
  @filesToo = readdir(BACKUPFOLDER);
  closedir(BACKUPFOLDER);
  
  $found = 0;
  
  # compare files found within each folder
  foreach $targetFile (@files) {
    foreach $backupFile (@filesToo) {
      if ($targetFile eq $backupFile) {
        $found = 1;
      }
    }

    if ($found == 0) {
      system "copy ${trackFolder}\\${targetFile} ${backupFolder}";
    }

  }
  # sleep for 10 minutes before comparing files again
  sleep 600;
}