I am trying to rename my subFolders, so that if folder1 exists, it will rename folder1.
1, and folder1.
2 respectively -
use strict;
use warnings;
my $existingFile;
my $filename;
print "provide filename: ";
$existingFile = <STDIN>;
$filename = "folder1";
chomp $existingFile;
chomp $filename;
if (-e $filename) {
print "File Exists! Renaming with .[x]\n";
my $counter++;
rename "$existingFile", "$filename.[$counter]";
} else {
rename "$existingFile", "$filename";
}
exit;
OUTPUT
provide filename: folder1 - Copy
File Exists! Renaming with .[x]
It does the first 1, as folder1.
1, but doesn't do the 2nd, 3rd, or 4th etc.
Please let me know.