perl - Script to rename files with the name of the folder?

Question

I want to recursively rename files by prepending the folder name in front of it. Ex: c: estfooa.txt would become c: estfoofoo-a.txt.

Answer 1

The following Perl script may work for you:

#!/usr/bin/env perl

use strict;
use warnings;

use File::Basename;
use File::Find;
use File::Spec;

sub rename {
    my ($dir_name) = ( File::Spec->splitdir($File::Find::dir) )[-1];
    my $file_name = basename $_;
    if ( -f $_ ) {
        $file_name = "$dir_name-$file_name";
        rename $_, File::Spec->catdir( $File::Find::dir, $file_name );
    }
}

find { 'wanted' => &rename, 'no_chdir' => 1 }, 'C:/test/foo';

References:

• File::Basename
• File::Find
• File::Spec