41 lines
979 B
Perl
41 lines
979 B
Perl
use strict;
|
|
use Getopt::Long;
|
|
use Cwd;
|
|
|
|
my $pattern = "";
|
|
my $help = 0;
|
|
|
|
GetOptions("pattern=s"=>\$pattern,"help"=>\$help);
|
|
#,"\/\?"=>\$help,"\?"=>\$help);
|
|
|
|
if ( $help ){
|
|
print "Usage: e:/tools/dotrenamer.pl <-pattern xxx> [-help] ( note: you MUST be in the dir you want renamed. )\n";
|
|
print "Note: the pattern replaces the dit (.) not the dit%.\n";
|
|
exit ( 0 );
|
|
}
|
|
|
|
if ($pattern eq ""){
|
|
print "You MUST supply a pattern for me to replace the dit(.) with.\n";
|
|
print "Usage: e:/tools/dotrenamer.pl <-pattern xxx> [-help] ( note: you MUST be in the dir you want renamed. )\n";
|
|
print "Note: the pattern replaces the dit (.) not the dit%.\n";
|
|
exit ( 0 );
|
|
}
|
|
|
|
my $dir = cwd();
|
|
|
|
opendir DIR, $dir;
|
|
my @dirlist = readdir DIR;
|
|
closedir DIR;
|
|
|
|
my $file;
|
|
my $newFile;
|
|
|
|
|
|
foreach $file ( @dirlist){
|
|
if ( $file =~ /^(\.)(%.*)/ ){
|
|
$newFile = "$pattern$2";
|
|
print "Renaming $file to $newFile\n";
|
|
`rename $file $newFile`;
|
|
}
|
|
}
|
|
print " Done\n";
|