Hi, I am trying to rename all files having _valid.csv to .csv as follows:
abc_valid1.csv to abc.csv
delta_valid1.csv to delta.csv
I though the following code might do the job:
use File::Copy;
my @list = <D:/CPPDaily/SOURCE/SOURCE/HMS/*_valid1.csv>;
foreach my $file(@list){
my $from = $_;
chomp $from;
(my $to = $from) =~ s/_valid1//g;
move($from, $to) or die(qq{failed to move $from -> $to});
}
But I am getting unexpected error message:
'Nov 4 08:00,/home/imanager/cppprod/del.csv' and 'Nov 4 08:00,/home/im
+anager/cppprod/del.csv' are identical (not copied) at Daily.txt line
+80.
Use of uninitialized value $atime in utime at c:/Perl/lib/File/Copy.pm
+ line 393, <FH> line 1.
Use of uninitialized value $mtime in utime at c:/Perl/lib/File/Copy.pm
+ line 393, <FH> line 1.
failed to move Nov 4 08:00,/home/imanager/cppprod/del.csv -> Nov 4 08:
+00,/home/imanager/cppprod/AR_LM.csv at Daily.txt line 80, <FH> line 1
+.