shell-scripts/file_processing/archive_statements.pl

#!/usr/bin/perl
use strict;
use warnings;

# Script to archive the financial data from the previous year
use Time::Piece;
use File::Basename;
use File::Find::Rule; # find all the subdirectories of a given directory
# http://search.cpan.org/~rclamp/File-Find-Rule-0.32/README
use File::Path qw(make_path remove_tree);
#use File::Copy;
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
use List::MoreUtils qw(uniq);

my $now = localtime;
my $year = $now->year;
print "Year is $year\n";

# Get year to archive from current year
my $lastyear    = $now->add_years(-1)->year;

print("Last year was $lastyear\n");

# Define and create folders
my (%files1, %files2);
my $financial_folder            = '~/Documents/financial/current_year';
my $financial_archive_folder    = '~/Documents/financial/1_financial_archives/';
my $lastyear_folder             = $financial_archive_folder . $lastyear . 'FinancialArchives';
my @folders = ( $financial_folder, $financial_archive_folder, $lastyear_folder );

=begin comment
# Will be using this kind of thing to get only files with current year for deletion
foreach my $folder ( @folders ) {
    if ( -d $folder ) {
      print("Folder exists: $folder\n");
    }
    unless( -d $folder ) {
        print("Creating the folder \"$folder\"\n");
        die "Could not create directory! $!" unless make_path($folder);
    }
}

# Get current folder list for nonempty directories
my $find_rule = File::Find::Rule->new;
$find_rule->nonempty->maxdepth(1)->mindepth(1)->relative;
my @curr_subdirs = $find_rule->directory->in( $financial_folder );
=end comment
=cut


print("Copying current directories to archive folder\n");
print("From: $financial_folder\n");
print("To:   $lastyear_folder\n");

system('cp -rp ' . $financial_folder . '/* ' . $lastyear_folder);
die("Can't launch cp: $!\n") if $? == -1;
die("cp killed by signal ".($? & 0x7F)."\n") if $? & 0x7F;
die("cp exited with error ".($? >> 8)."\n") if $? >> 8;

# Make sure contents match
#compare_dirs( $curr_subdir, $lastyear_folder );

# Delete all files from current year from archive folders

# compare new directories to old directories to make sure they are the same
sub compare_dirs {
  my ( $dir1, $dir2 ) = @_;
  File::DirCompare->compare($dir1, $dir2, sub {
    my ($a, $b) = @_;
    if (! $b) {
      printf "Only in %s: %s\n", dirname($a), basename($a);
    } elsif (! $a) {
      printf "Only in %s: %s\n", dirname($b), basename($b);
    } else {
      print "Files $a and $b differ\n";
    }
  });
}

# Delete old directory