##This program takes a tab-delimited list passed from the command line and attempts to 1) gzip all of the files in the given folder that match the given extension; 
#2) deletes files that exceed the given keep period (days). An example input file should look like this. Note that backslashes must be forward slashes:
#C:/Events	*.evt	.gz	30
#D:/Logs	*.log	.gz	14


use strict;
use Time::Local;
my $thetime = localtime();
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time);
my $thismonth = $mon+1;
my $thisyear = $year+1900;
my $timestamp = "$thismonth-$mday-$thisyear";
my $timestamp2 = "$thismonth-$mday-$thisyear-$hour-$min-$sec";
my $timestamp3 = "$thismonth-$mday-$thisyear \@ $hour:$min:$sec";
my $newfilename;
my $logoutputfile = "C:/perlHDcleansummary.log";
open FILEHAND, "$ARGV[0]";
#open FILEHAND, "discspace_filelist.txt";
unless (-e "$logoutputfile") {
	open (LOGHAND, ">>$logoutputfile");
} 
my $logfilecontents = "========================================================================\nperlDiscCleanup\t$thetime\n\n";
my @filelist = (<FILEHAND>);
my @rowdata;
my $line; #control var
my $line2; #control var 2
my @files_for_archive;
my @match_gz_files;
my @files_to_delete;
my $arraycount = 0;
my $row = $arraycount+1;
my $unit;
my $loopcount;
my $globarg;
my $globarg2;
foreach $line (@filelist) {
@rowdata = split /\t/,$filelist[$arraycount];

use File::Glob;
$globarg = "$rowdata[0]$rowdata[1]";
my @match_files = glob "$globarg";
if ($rowdata[2] =~ /gz/i) {
1;
}
else {
	die "This program only utilizes GZIP archival at this time.";
	}

foreach (@match_files) {         #these files match  the glob
	if (-M > 9999) {
	print "The file $_ is ancient.\n";
	}
	#orginally this was to archive only, now to delete. archive arbitrary at files older than 1 days. Delete if older than file argument
	if (-M > 1) {  #just about every globbed file will get added except current files.
		#print "The file $_ meets the criteria for archival.\n";
		
			push @files_for_archive, $_;      # do it and warn to log if there's a problem.
			}
	}
foreach (@files_for_archive) {  #the archive process
my $filescount = @files_for_archive;

	system("gzip -f \"$_\"");
	$loopcount++;
	$newfilename = $_;
	my $currentfile = $newfilename;
	$currentfile .= ".gz";
	$newfilename .= ".$timestamp.gz";
	select (LOGHAND);
	rename $currentfile, $newfilename or print "ERROR: $currentfile $!\n";
	$logfilecontents .= "Processed: $newfilename\n";

}

$globarg2 = "$rowdata[0]*$rowdata[2]";
my $part1 = "$rowdata[0]";
my $part2 = "$rowdata[2]";
  @match_gz_files = glob "$globarg2";   #glob the .gz files
foreach (@match_gz_files) {         #these files match  the glob
	if (-M > 9999) {
	print "The file $_ is ancient.\n";
	}
	if (-M > $rowdata[3]) {        #Here is where we delete if the file is older than the lenght of time the file should be kept.

			push @files_to_delete, $_      #exclude files that aren't read/write
				if (-r) && (-w);
			}
	}
foreach (@files_to_delete) {  #the delete process
	my $filedelete = $_;
	unlink $filedelete or warn "failed to delete $filedelete : $!\n";

	$logfilecontents .= "Deleted: $filedelete\n";

	}

@match_files = ( );
@files_for_archive = ( );
@match_gz_files = ( );
@files_to_delete = ( );
$globarg = ( );
$globarg2 = ( ) ;

$arraycount++;
}

print LOGHAND "$logfilecontents";
close (LOGHAND);
my $newlogfile = "$logoutputfile.$timestamp2.txt";
rename $logoutputfile, $newlogfile;

#!/usr/bin/perl
use strict;
use warnings;
use File::Find::Rule;

my @c_files = File::Find::Rule
    ->file
    ->name('*.c')
    ->in("/home/telemachus");

@arr = ( );
is the same as
@arr = ();

my @filelist = (<FILEHAND>);
chomp(@filelist);

...Installing C:\Perl\site\lib\Module\Build\Platform\VMS.pm
Installing C:\Perl\site\lib\Module\Build\Platform\VOS.pm
Installing C:\Perl\site\lib\Module\Build\Platform\Windows.pm
Installing C:\Perl\bin\config_data
Installing C:\Perl\bin\config_data.bat
Successfully installed Module-Build version 0.2808 in ActivePerl 5.8.7.815.
Error: Package 'Scalar-List-Utils' not found. Please 'search' for it
first.