i want to rename the html files how can i do with perl? chdir $output_dir; mkdir 'html',0755; `find . -name '*.html' | cpio -pdm html` my directory structure: 
html
`-- DCMS_DEMO
    |-- DCMS_DEMO.html
    |-- de_top
    |   |-- Block_DV
    |   |   |-- Block_DV.html
    |   |   |-- rev1
    |   |   |   `-- rev1.html
    |   |   `-- rev2
    |   |       `-- rev2.html
    |   |-- CAD_checklist
    |   |   |-- CAD_checklist.html
    |   |   |-- rev1
    |   |   |   `-- rev1.html
    |   |   |-- rev2
    |   |   |   `-- rev2.html
    |   |   |-- rev3
    |   |   |   `-- rev3.html
    |   |   `-- rev4
    |   |       `-- rev4.html
    |   `-- de_top.html
    `-- new_block2
        |-- ICC_L2_Checklist
        |   |-- ICC_L2_Checklist.html
        |   `-- rev1
        |       `-- rev1.html
        |-- checklist_tmp
        |   |-- checklist_tmp.html
        |   |-- rev1
        |   |   `-- rev1.html
        |   `-- rev2
        |       `-- rev2.html
        `-- new_block2.html

[download]
Expected one after renaming 

html
`-- DCMS_DEMO
    |-- DCMS_DEMO.html
    |-- de_top
    |   |-- Block_DV
    |   |   |-- Block_DV.html
    |   |   |-- rev1
    |   |   |   `--Block_DV_rev1.html
    |   |   `-- rev2
    |   |       `-- Block_DV_rev2.html
    |   |-- CAD_checklist
    |   |   |-- CAD_checklist.html
    |   |   |-- rev1
    |   |   |   `--CAD_checklist_rev1.html
    |   |   |-- rev2
    |   |   |   `-- CAD_checklist_rev2.html
    |   |   |-- rev3
    |   |   |   `--CAD_checklist_rev3.html
    |   |   `-- rev4
    |   |       `--CAD_checklist_rev4.html
    |   `-- de_top.html
    `-- new_block2
        |-- ICC_L2_Checklist
        |   |-- ICC_L2_Checklist.html
        |   `-- rev1
        |       `--ICC_L2_checklist_rev1.html
        |-- checklist_tmp
        |   |-- checklist_tmp.html
        |   |-- rev1
        |   |   `--checklist_tmp_rev1.html
        |   `-- rev2
        |       `--checklist_tmprev2.html
        `-- new_block2.html

[download]
code which i tried: 
sub runDir($$);
sub runDir($$) {
    my $prefix = shift @_;
    # print $prefix,"\n";
    my $dir = shift @_;
    #print "******$dir***","\n";
    opendir(DIR, $dir) or die $!;
    my @entries = readdir(DIR);
    # print @entries,"\n";
    close(DIR);
    foreach my $file (@entries) {
        next if ($file =~ /^\.+$/);
        if ( -d $dir . '/' . $file) {
            runDir($prefix . $file . '_', $dir . '/' . $file);
        } elsif ( ( -f $dir . '/' . $file ) && ( $file =~ /\.config$/ 
+) && ($file !~ /^$prefix/)) {
            my $suffix = $file;
            $suffix =~ s/^(\S+)-.+\.config$/$1.config/;
            
            rename $dir . '/' . $file, $dir . '/' . $prefix . $suffix 
+;
        }
    }
}
runDir('',$output_dir);

[download]
Error: The thing it affects all html files in all other directories. Example: 
|-- DCMS_DEMO
|   |-- DCMS_DEMO_DCMS_DEMO.config
|   |-- DCMS_DEMO_DCMS_DEMO.html
|   |-- de_top
|   |   |-- Block_DV
|   |   |   |-- DCMS_DEMO_de_top_Block_DV_Block_DV.config
|   |   |   |-- DCMS_DEMO_de_top_Block_DV_Block_DV.html
|   |   |   |-- rev1
|   |   |   |   |-- DCMS_DEMO_de_top_Block_DV_rev1_rev1.config
|   |   |   |   `-- DCMS_DEMO_de_top_Block_DV_rev1_rev1.html
|   |   |   `-- rev2
|   |   |       |-- DCMS_DEMO_de_top_Block_DV_rev2_rev2.config
|   |   |       `-- DCMS_DEMO_de_top_Block_DV_rev2_rev2.html
|   |   |-- CAD_checklist
|   |   |   |-- DCMS_DEMO_de_top_CAD_checklist_CAD_checklist.config
|   |   |   |-- DCMS_DEMO_de_top_CAD_checklist_CAD_checklist.html
|   |   |   |-- rev1
|   |   |   |   |-- DCMS_DEMO_de_top_CAD_checklist_rev1_rev1.config
|   |   |   |   `-- DCMS_DEMO_de_top_CAD_checklist_rev1_rev1.html
|   |   |   |-- rev2
|   |   |   |   |-- DCMS_DEMO_de_top_CAD_checklist_rev2_rev2.config
|   |   |   |   `-- DCMS_DEMO_de_top_CAD_checklist_rev2_rev2.html
|   |   |   |-- rev3
|   |   |   |   |-- DCMS_DEMO_de_top_CAD_checklist_rev3_rev3.config
|   |   |   |   `-- DCMS_DEMO_de_top_CAD_checklist_rev3_rev3.html
|   |   |   `-- rev4
|   |   |       |-- DCMS_DEMO_de_top_CAD_checklist_rev4_rev4.config
|   |   |       `-- DCMS_DEMO_de_top_CAD_checklist_rev4_rev4.html
|   |   |-- DCMS_DEMO_de_top_de_top.config
|   |   |-- DCMS_DEMO_de_top_de_top.html
|   |   `-- ICC_DPMHV_Checklist
|   `-- new_block2
|       |-- CAD_checklist
|       |-- DCMS_DEMO_new_block2_new_block2.config
|       |-- DCMS_DEMO_new_block2_new_block2.html
|       |-- ICC_L2_Checklist
|       |   |-- DCMS_DEMO_new_block2_ICC_L2_Checklist_ICC_L2_Checklist
+.config
|       |   |-- DCMS_DEMO_new_block2_ICC_L2_Checklist_ICC_L2_Checklist
+.html
|       |   `-- rev1
|       |       |-- DCMS_DEMO_new_block2_ICC_L2_Checklist_rev1_rev1.co
+nfig
|       |       `-- DCMS_DEMO_new_block2_ICC_L2_Checklist_rev1_rev1.ht
+ml
|       `-- checklist_tmp
|           |-- DCMS_DEMO_new_block2_checklist_tmp_checklist_tmp.confi
+g
|           |-- DCMS_DEMO_new_block2_checklist_tmp_checklist_tmp.html
|           |-- rev1
|           |   |-- DCMS_DEMO_new_block2_checklist_tmp_rev1_rev1.confi
+g
|           |   `-- DCMS_DEMO_new_block2_checklist_tmp_rev1_rev1.html
|           `-- rev2
|               |-- DCMS_DEMO_new_block2_checklist_tmp_rev2_rev2.confi
+g
|               `-- DCMS_DEMO_new_block2_checklist_tmp_rev2_rev2.html
`-- html
    `-- DCMS_DEMO
        |-- DCMS_DEMO_DCMS_DEMO.html
        |-- de_top
        |   |-- Block_DV
        |   |   |-- DCMS_DEMO_de_top_Block_DV_Block_DV.html
        |   |   |-- rev1
        |   |   |   `-- DCMS_DEMO_de_top_Block_DV_rev1_rev1.html
        |   |   `-- rev2
        |   |       `-- DCMS_DEMO_de_top_Block_DV_rev2_rev2.html
        |   |-- CAD_checklist
        |   |   |-- DCMS_DEMO_de_top_CAD_checklist_CAD_checklist.html
        |   |   |-- rev1
        |   |   |   `-- DCMS_DEMO_de_top_CAD_checklist_rev1_rev1.html
        |   |   |-- rev2
        |   |   |   `-- DCMS_DEMO_de_top_CAD_checklist_rev2_rev2.html
        |   |   |-- rev3
        |   |   |   `-- DCMS_DEMO_de_top_CAD_checklist_rev3_rev3.html
        |   |   `-- rev4
        |   |       `-- DCMS_DEMO_de_top_CAD_checklist_rev4_rev4.html
        |   `-- DCMS_DEMO_de_top_de_top.html
        `-- new_block2
            |-- DCMS_DEMO_new_block2_new_block2.html
            |-- ICC_L2_Checklist
            |   |-- DCMS_DEMO_new_block2_ICC_L2_Checklist_ICC_L2_Check
+list.html
            |   `-- rev1
            |       `-- DCMS_DEMO_new_block2_ICC_L2_Checklist_rev1_rev
+1.html
            `-- checklist_tmp
                |-- DCMS_DEMO_new_block2_checklist_tmp_checklist_tmp.h
+tml
                |-- rev1
                |   `-- DCMS_DEMO_new_block2_checklist_tmp_rev1_rev1.h
+tml
                `-- rev2
                    `-- DCMS_DEMO_new_block2_checklist_tmp_rev2_rev2.h
+tml

[download]

In reply to How to rename the files its directory structure using perl? by finddata

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.