TraceyC/shell-scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Cleaned up visible output

Browse source
This commit is contained in:
Tracey Clark 2018-05-20 12:07:59 -05:00
commit 74640cac00
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
file_processing/archive_statements.pl
View file

@ -8,11 +8,11 @@ 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 File::Copy::Recursive qw(dircopy);
use List::MoreUtils qw(uniq);
use File::DirCompare;
use Data::Dumper;
my $now = localtime;
my $year = $now->year;
@ -52,13 +52,13 @@ my @curr_subdirs = $find_rule->directory->in( $financial_folder );
print("Copying current directories to archive folder\n");
print("From: $financial_folder\n");
print("To: $lastyear_folder\n");
dircopy($financial_folder, $lastyear_folder) or die $!;
dircopy( $financial_folder, $lastyear_folder ) or die $!;
# Make sure contents match
compare_dirs( $financial_folder, $lastyear_folder );
# Delete all files from current year from archive folders
delete_dirs($financial_folder, $lastyear_folder, $year, $lastyear);
delete_dirs( $financial_folder, $lastyear_folder, $year, $lastyear );
# compare new directories to old directories to make sure they are the same
sub compare_dirs {
@ -79,16 +79,19 @@ sub compare_dirs {
# Delete old files
sub delete_dirs {
my ( $new_dir, $old_dir, $curr_year, $last_year ) = @_;
print("Deleting files from current year in archives\ and");
print("files from last year from current folder\n");
print("Deleting files from current year in archives\n");
print("and files from last year from current folder\n");
print("New dir in the delete_dirs is $new_dir\n");
# For all files in archive dir that are newer than last year delete them
my $find_rule = File::Find::Rule->new;
# $find_rule->nonempty->maxdepth(1)->mindepth(1)->relative;
$find_rule->name('*.' . $lastyear . '*');
my @curr_subdirs = $find_rule->directory->in( $new_dir );
foreach $subdir(@curr_subdirs) {
print("THING");
print("This is the current subdirs in delete_dirs\n\n");
print Dumper(\@curr_subdirs);
foreach my $subdir(@curr_subdirs) {
print("Directory in current subdir is $subdir");
}
# For all file in current folder that are older than this year delete them
}