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

Modularize file processing, small improvements

Browse source
This commit is contained in:
Tracey Clark 2023-09-11 17:21:56 -05:00
commit 12dce591bb
2 changed files with 23 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

5
file_processing/archive_taxes.pl
View file

@ -1,6 +1,5 @@
#!/usr/bin/perl
use strict;
use warnings;
use Modern::Perl;
use Time::Piece;
use File::Find::Rule; # find all the subdirectories of a given directory
@ -21,7 +20,7 @@ print("Last year was $lastyear and tax year was $lasttaxyear\n");
# Define and create folders
my ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder );
$financial_folder = '/home/tracey/Documents/financial/current_year/';
$financial_archive_folder = '~/Documents/financial/1_financial_archives/';
$financial_archive_folder = '/home//Documents/financial/1_financial_archives/';
$lastyear_folder = $financial_archive_folder . $lastyear . 'FinancialArchives';
$lasttaxyear_folder = $financial_archive_folder . $lasttaxyear . 'TaxArchives';
my @folders = ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder );