Here am trying to match the files using perl?
if ( ( -d $name ) && ( exists $name_map->{$name} ) ) {
#print $name;
my $new_name = $name_map->{$name};
# print $new_name;
rename_file_or_dir( $name, $new_name );
$name = $new_name;
#print $name;
}
elsif ( -f $name ) {
if (( my $base_name = $name) =~ s/\.config$// ) {
if ( $name_map->{$base_name} ) {
my $new_name = $name_map->{$base_name} . '.config'
+;
# print $new_name;
rename_file_or_dir( $name, $new_name );
change_file( $mapfile, $name_map, $regex );
}
the above print $new_name fails to print the statement .