Can't rename all directories but only some

[kirk123]

Hi:

I am trying to rename the following directories:

C:\elmPaul\jod25573786-2k2
C:\elmPaul\jod25573786-2k2\wed25573786-2k2

I'm unable to rename both of these directories using :

finddepth (\&update_file , "C:\\elmPaul" );

sub update_file 
{  
    if( /(.*)$old_hostname(.*)/i )
       {
  $concat = "$1$new_hostname$2";  
 rename($_, $concat) || print "error can't renames:$!";       
        }

But I am able to rename ONLY "C:\elmPaul\jod25573786-2k2\wed25573786-2k2" using:

sub update_file 
{  
    if( /(.*?)$old_hostname(.*?)/i )
       {
  $concat = "$1$new_hostname$2";  
 rename($_, $concat) || print "error can't renames:$!";       
        }

Does anybody knows why? Please advise.

--kirk

Edited 2002-08-22 by Ovid

[chromatic]

$! knows. What does it say?

[kirk123]

The error I get is permission denied. --kirk

[simeon2000]

Then you do not have permission on your system to change the name of the directory. You should check your file permissions/ownership then try again. Can you manually mv the file? etc. etc.

--
perl -e "print qq/just another perl hacker who doesn't grok japh\n/"
simeon2000|http://holdren.net/

[sauoq]

Reading the code was kind of difficult given the lack of code tags so I'll just take some wild guesses. First, you won't be able to change the name of the directory if it is being used. For instance, if you have a dos window opened and you are CD'd to that directory. You may even need to use find() with the no_chdir option.

Other than that, does your user have permissions to change the directory name? Have you tried it as Administrator? I have to confess that I know pretty much nothing about permissions on Windows.

-sauoq
"My two cents aren't worth a dime.";

[helgi]

I second that you should check permissions (especially important if this is a stealth CGI question, because the web server runs as an anonymous user with greatly restricted rights).

Another hugely important point is the way you handle filenames:

Do not, I repeat NOT use backslashes (\) as the directory separators with Perl under Windows. Use normal forward slashes (/) unless you really want to get anal about replacing each and every occurence of backslash (\) with double backslash (\\) each and every time.

When you perform a system function on a file, such as rename, you should always return, not only the error ($!), but also the filename itself, like so:

rename $old,$new or die "Cannot rename $old to $new:$!\n";

This is because the most frequent cause of error in such cases is a malformed filename.

For example if you tried to rename your file: C:\elmPaul\jod25573786-2k2 and returned the name, you would find that you were actually trying to rename the file:
C:
backslash e = ESC
elmpaul
backslash j = no special meaning
jod25573786-2k2

which probably does not exist.

Regards,

Helgi Briem

[greenFox]

The only difference I can see between your two approaches is the non greedy matches on your re in the second case. If you aren't getting a permission denied error with the first code then perhaps $concat isn't being set to what you think? My advice is for your error messages to always say exactly what you were trying to do ie.

rename($_, $concat) || print "Error could not rename $_ to $concat : $
+!";

When you give us an error message please copy and paste it, don't paraphrase it. The error message could contain the clue that somebody will see and that you are missing.

--
Until you've lost your reputation, you never realize what a burden it was or what freedom really is. -Margaret Mitchell