rename issues

sunadmn has asked for the wisdom of the Perl Monks concerning the following question:

*****UPDATE*****

I found the issue in the rename and fixed it I forgot to change a scalar name please disregard.

*****UPDATE*****

Hello all I have a quick question about some code I wrote to rename files under a given dir and then open the file and replace a scalar with another. I have the files being created with the new name, but I also still have the old copy with the old name there, issue number 1. The other issue I have is that the output in the new file is not what I expected, so if this code is correct it should look for the text "example" and switch it with the scalar $mname globaly in the new file this is not happening in the new file but the old file it is.

Example of the sdiff:

 sdiff example_user_menu.htm pnDiagram_user_main.htm
[download]

Old file output:

<!--[*  $Id: pnDiagram_user_menu.htm,v 1.6 2004/01/06 15:17:20 markwes
+t Exp $  *]-->
<!--[pngetstatusmsg]-->
<br />
<div class="pn-title">
<!--[*  To get the results of a function for using in another function
+, you *]-->
<!--[*  need to capture its output! AFAIK currently there is no other 
+way   *]-->
<!--[capture name="heading"]--><!--[pnml name="_EXAMPLE"]--><!--[/capt
+ure]-->
  <!--[pnimg src="heading.gif"  alt=$smarty.capture.heading]-->
</div>
<div class="pn-menuitem-title">
  <a href="<!--[pnmodurl modname="pnDiagram" type="user" func="view"]-
+->"><!--[pnml name="_EXAMPLEVIEW"]--></a>
</div>
<br />
[download]

New file output:

<!--[*  $Id: example_user_menu.htm,v 1.6 2004/01/06 15:17:20 markwest 
+Exp $  *]-->
<!--[pngetstatusmsg]-->
<br />
<div class="pn-title">
<!--[*  To get the results of a function for using in another function
+, you *]-->
<!--[*  need to capture its output! AFAIK currently there is no other 
+way   *]-->
<!--[capture name="heading"]--><!--[pnml name="_EXAMPLE"]--><!--[/capt
+ure]-->
  <!--[pnimg src="heading.gif"  alt=$smarty.capture.heading]-->
</div>
<div class="pn-menuitem-title">
  <a href="<!--[pnmodurl modname="Example" type="user" func="view"]-->
+"><!--[pnml name="_EXAMPLEVIEW"]--></a>
</div>
<br />
[download]

Here is what I have for code:

#!/usr/bin/perl



use strict;
use warnings;
use File::Find;



# We need to gather some info from the user
# here for module name

print "Please enter your module name\n";
print "This would be the name of the directory of your module\n";


my $mname   = <STDIN>;
chomp($mname);

# Now we need to know where to look to make
# the changes to files on the system this
# will be our base directory to search through

print "Please enter your modules base directory\n";
print "Example would be /var/www/postnuke/modules/YOUR_MODULE/\n";

my $base    = <STDIN>;
chomp($base);

my $old_name  = 'example';
my $old_name2 = 'Example';


find(\&wanted, $base);


sub wanted {
    if ((-f $File::Find::name) && ($File::Find::name !~ m/\.bak/)) {
        my $file       = $File::Find::name;

        (my $new = $file) =~ s/$old_name/$mname/;
        rename($file, $new);
        open(IN, $new) or die($!);
        open(OUT, '>' . $file) or die($!);
        while (<IN>) {
            s/$old_name/$mname/g;
            s/$old_name2/$mname/g;

   


         print OUT $_;
        }
        close(OUT);
        close(IN);
    }
}
[download]

SUNADMN
USE PERL

Back to Seekers of Perl Wisdom