Bareword found where operator expected at generate2.pl line 30, near "
+s/\.config$//r"
Global symbol "$base_name" requires explicit package name at generate2
+.pl line 30.
syntax error at generate2.pl line 30, near "s/\.config$//r "
Global symbol "$base_name" requires explicit package name at generate2
+.pl line 31.
Global symbol "$new_name" requires explicit package name at generate2.
+pl line 32.
Global symbol "$base_name" requires explicit package name at generate2
+.pl line 32.
Global symbol "$new_name" requires explicit package name at generate2.
+pl line 33.
Global symbol "$new_name" requires explicit package name at generate2.
+pl line 34.
syntax error at generate2.pl line 36, near "}"
Execution of generate2.pl aborted due to compilation errors.
[download]

#! /usr/bin/env perl

#use feature qw(say);
use strict;
use warnings;

use Cwd qw(getcwd);
use File::Copy ();

my $name_map = read_map( 'sample.txt' );
my ($regex) = map {qr /\b(?:$_)\b/ } join '|', map {quotemeta} keys %$
+name_map;
my $top_dir = 'dir';

rename_dirs( $top_dir, $name_map, $regex );

sub rename_dirs {
    my ( $top_dir, $name_map, $regex ) = @_;

    opendir (my $dh, $top_dir) or die "Can't open $top_dir: $!";
    my $save_dir = getcwd();
    chdir $top_dir;
    while (my $name = readdir $dh) {
        next if ($name eq '.') or ($name eq '..'); 
        if ( ( -d $name ) && ( exists $name_map->{$name} ) ) {
            my $new_name = $name_map->{$name};
            rename_file_or_dir( $name, $new_name );
            $name = $new_name;
        }
        elsif ( -f $name ) {
            if ( my $base_name = $name =~ s/\.config$//r ) {
                if ( $name_map->{$base_name} ) {
                    my $new_name = $name_map->{$base_name} . '.config'
+;
                    rename_file_or_dir( $name, $new_name );
                    change_file( $new_name, $name_map, $regex );
                }
            }
        }
        rename_dirs( $name, $name_map, $regex ) if -d $name;
    }
    chdir $save_dir;
}

sub change_file {
    my ( $fn, $map, $regex ) = @_;

    open ( my $fh, '<', $fn ) or die "Could not open file '$fn': $!";
    my $str = do { local $/; <$fh> };
    close $fh;
    my $num_replacements = $str =~ s/($regex)/$map->{$1}/ge;
    if ( $num_replacements ) {
        write_new_file( $fn, \$str );
    }
}

sub write_new_file {
    my ( $fn, $str ) = @_;

    open ( my $fh, '>', $fn ) or die "Could not open file '$fn': $!";
    print $fh $$str;
    close $fh;
}

sub rename_file_or_dir {
    my ( $name, $new_name ) = @_;
    File::Copy::move( $name, $new_name )
        or die "Could not rename '$name' as '$new_name': $!";
}

sub read_map {
    my ( $fn ) = @_;

    my %name_map;

    open( my $fh, '<', $fn ) or die "Could not open file '$fn': $!";
    while( my $line = <$fh> ) {
        chomp $line;
        my @fields = split /:/, $line;
        if ( @fields == 3 ) {
            $name_map{$fields[2]} = $fields[1];
        }
    }
    close $fh;
    return \%name_map;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.