40 lines
614 B
Perl
40 lines
614 B
Perl
|
#/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
die if @ARGV != 1;
|
||
|
|
|
||
|
|
move($ARGV[0]);
|
||
|
|
|
||
|
|
sub old_to_new {
|
||
|
|
my $name = shift;
|
||
|
|
|
||
|
|
$name =~ s/^([A-Z])/lc($1)/ge;
|
||
|
|
$name =~ s/([A-Z])/"_" . lc($1)/ge;
|
||
|
|
|
||
|
|
return($name);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub move {
|
||
|
|
my $dir = shift;
|
||
|
|
my @entries;
|
||
|
|
|
||
|
|
opendir(DIR, $dir) || die "Can't open $dir: $!\n";
|
||
|
|
@entries = readdir(DIR);
|
||
|
|
closedir(DIR);
|
||
|
|
|
||
|
|
foreach my $entry (@entries) {
|
||
|
|
next if($entry eq 'Attic' || $entry =~ /^\./);
|
||
|
|
|
||
|
|
my $path = $dir . '/' . $entry;
|
||
|
|
my $newpath = $dir . '/' . old_to_new($entry);
|
||
|
|
|
||
|
|
if(-d $path) {
|
||
|
|
move($path);
|
||
|
|
}
|
||
|
|
|
||
|
|
print "$path -> $newpath\n";
|
||
|
|
rename($path, $newpath) || die("BAH!");
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|