sub rename($)
{    
  my $path = $_[0];

  #append a trailing / if it's not there
  if($path !~ /\/$/)
  {
    $path .= '/';
  }

  #loop through the files contained in the directory
  for my $eachFile (glob($path.'*')) 
  {

    #if the file is a directory
    if(-d $eachFile) 
    {
      #pass the directory to the routine ( recursion )
      rename($eachFile);
    }
    else 
    {
     my @strings = split('/', $eachFile);
     my $fileName = $strings[$#strings];
     my $filePath = '/'.join('/', @strings[2..$#strings-1]);
     system("mv $filePath/$fileName $filePath/\"YourNewNameHere\"");
    }
  }   
}#rename

[download]
This is adapted from a script of mine that browses a directory recursively and does something else to each file but it should work for you (or should be close enough - I have not tested it). The filename is made of the path to it plus its name. This name may identify a file or a directory. If it is a directory go in and do your job there first by renaming the files and then you rename the directory itself as well. If you don't follow this order, you'll end up trying to browse a directory that no longer exists (because you've read it's name but you've also renamed it before you tried to browse it).

That sample system call is one way of doing it and assumes you're using unix (or cygwin on windows). You can definitely change that or maybe use a Perl package for file handling if the OS is a problem.

Hope this helps!

In reply to Re: rename subdirectories by RaduH
in thread rename subdirectories by shness

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.