Renamescript

[superior88]

I'm trying to sort out my mp3dir. all dirs are in lowercase but i want first cap to be upper after every underscore '_'.

Can someone please help. I have tried to do it, and read the bash manual but i can't get it to work.

Help thx.

[Icarus]

Could you provide a couple examples?

[flukshun]

#!/usr/bin/perl

for (`ls -F`) {
next unless (m@/$@);
chomp(my $orig_dir = $_);
chop $orig_dir;
my @parts = split(/_/,$orig_dir);
for (@parts) {
$_ =~ /^(.)(.*)/;
$first_letter = $1;
$other_letters = $2;
$_ = uc($first_letter).$other_letters;
}
my $new_dir = join("_",@parts);
rename($orig_dir,$new_dir);
print "$orig_dir -> $new_dir\n" unless ($new_dir eq $orig_dir);
}

ugly, but it works as far as i can tell.

is there an easier way to list directories only?

[superior88]

Originally posted by Icarus
Could you provide a couple examples?

Yes i meant like this.
this_is_a_test -> This_Is_A_Test.

And thanks flukshun it works fine :)

[superior88]

Originally posted by flukshun

#!/usr/bin/perl

for (`ls -F`) {
next unless (m@/$@);
chomp(my $orig_dir = $_);
chop $orig_dir;
my @parts = split(/_/,$orig_dir);
for (@parts) {
$_ =~ /^(.)(.*)/;
$first_letter = $1;
$other_letters = $2;
$_ = uc($first_letter).$other_letters;
}
my $new_dir = join("_",@parts);
rename($orig_dir,$new_dir);
print "$orig_dir -> $new_dir\n" unless ($new_dir eq $orig_dir);
}

ugly, but it works as far as i can tell.

is there an easier way to list directories only?

Sorry i have to ask again.
I see now that i need it for files also, wich i figured out myself. but how to make it resursive?
and also make it uppecase after '-'. I hope it's not to much trouble.