I'm trying to do a Perl script (PC has Perl5 installed) in a BAT file which will open the CMD prompt, interact with the user and copy files from one location to other directories. Does anyone know how to "dir" the files in a directory into an array and sort by date and return the ones within the past week? So far I have this code and it returns all the files:
@files = `dir`; chomp (@files); print "$#files \n"; if ( @files =~ /[Qq]/ ) { exit 0; } if ( @files =~ /xml$/ ) { print "Recently added XML files: $files \n"; printf COPYLOG "Recently added XML files: @files \n"; $type = "xml"; } elsif ( @files =~ /tc$/ ) { print "You are copying an expected result file \n" ; printf COPYLOG "You are copying an expected result file \n" ; $type = "tc"; } else { print "Invalid file type or @files doesn't exist in current directory\n" ; printf COPYLOG "Invalid file type or @files doesn't exist in current directory\n" ; $type = "bad"; }