blob: c0ef13b8ce14b0c0955bcfa49ade797b690af615 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
=comment
Synchronize filename cases for extensions.
This script could be used to perform following renaming:
if there exist file, for example, "FiLeNaME.c" and
filename.obj then it renames "filename.obj" to "FiLeNaME.obj".
There is a problem when some compilers (e.g.Borland) generate
such .obj files and then "make" process will not treat them
as dependant and already maked files.
This script takes two arguments - first and second extensions to
synchronize filename cases with.
There may be specified following options:
--verbose <== say everything what is going on
--recurse <== recurse subdirectories
--dummy <== do not perform actual renaming
--say-subdir
Every such option can be specified with an optional "no" prefix to negate it.
Typically, it is invoked as:
perl sync_ext.pl c obj --verbose
=cut
use strict;
my ($ext1, $ext2) = map {quotemeta} grep {!/^--/} @ARGV;
my %opts = (
#defaults
'verbose' => 0,
'recurse' => 1,
'dummy' => 0,
'say-subdir' => 0,
#options itself
(map {/^--([\-_\w]+)=(.*)$/} @ARGV), # --opt=smth
(map {/^no-?(.*)$/i?($1=>0):($_=>1)} map {/^--([\-_\w]+)$/} @ARGV), # --opt --no-opt --noopt
);
my $sp = '';
sub xx {
opendir DIR, '.';
my @t = readdir DIR;
my @f = map {/^(.*)\.$ext1$/i} @t;
my %f = map {lc($_)=>$_} map {/^(.*)\.$ext2$/i} @t;
for (@f) {
my $lc = lc($_);
if (exists $f{$lc} and $f{$lc} ne $_) {
print STDERR "$sp$f{$lc}.$ext2 <==> $_.$ext1\n" if $opts{verbose};
if ($opts{dummy}) {
print STDERR "ren $f{$lc}.$ext2 $_.$ext2\n";
}
else {
system "ren $f{$lc}.$ext2 $_.$ext2";
}
}
}
if ($opts{recurse}) {
for (grep {-d&&!/^\.\.?$/} @t) {
print STDERR "$sp\\$_\n" if $opts{'say-subdir'};
$sp .= ' ';
chdir $_ or die;
xx();
chdir ".." or die;
chop $sp;
}
}
}
xx();
|
