#!/usr/bin/perl
# Syntax : /../perl /.../PS_file_Rename.pl -s /..../Source_directory -f filename.xls
# .. -> path of Perl.exe
# ... -> path of the script PS_file_Rename.pl
# -s option - Source_Folder
# -f option - Filename to use for renaming

use Getopt::Std;
use Data::Dumper;
use POSIX qw(strftime);

use vars qw($opt_s $opt_f);

getopts('s:f:');
$ff = "$opt_s" . "\\" . "$opt_f";

#if the file name already exists delete it
if ( -e $ff ) {
    unlink($ff)
      or warn scalar localtime( time() ), " WARN Can't delete $ff : $!";
}
my $path = $opt_s . "\\*.*";
$path =~ s|\\|/|g;

#find the newest file
my $newestfile = (sort {(stat $b)[10] <=> (stat $a)[10]} glob $path)[0];

#rename the newest file to the name passed
rename( $newestfile, $ff )
  or warn scalar localtime( time() ), " WARN Can't rename $newestfile : $!";
@files = glob $opt_s . "\\*.*";
foreach my $file (@files) {
    if ( $file ne $ff ) {
        unlink($file)
          or warn scalar localtime( time() ),
          " WARN Can't delete " . $opt_s . "\\" . $file . " : $!";
    }
}