perlを使用してリンクディレクトリ名でファイルの名前を変更するにはどうすればよいですか？次のように私はperl.Iを使用してディレクトリ名を持つ私のファイルの名前を変更したい

Question

---

は私のディレクトリ構造が含まれていました。

期待

|-- Basket 
    | |-- ICC 
    | | |-- rest10-rest10-rest10-test.txt 
    | | `-- rest1 
    | |  `-- rest1-rest1-rest1-rest.txt 
    | |-- bl2-bl2-bl2-b1.txt 

：

|-- Basket 
    | |-- ICC 
    | | |-- ICC_rest10.txt 
    | | `-- rest1 
    | |  `-- ICC_rest1.txt 
    | |-- Basket_bl2.txt 

私のコード：（私はすべて取ってみましたが.txtファイル）

#!/usr/bin/perl 
use strict; 
use warnings; 
my $dir = '/home/user1/output'; 
my @files = glob "${dir}*.txt*"; 
foreach (@files) { 
    next if -d; 
    my $o_name = $_; 
    rename $o_name, $_ or 
     $_ = $o_name, 
     print $_; 
} 

Answer 1

#!/usr/bin/perl 
use strict; 
use warnings; 
sub runDir($$); 
sub runDir($$) { 
    my $prefix = shift @_; 
    my $dir = shift @_; 
    opendir(DIR, $dir) or die $!; 
    my @entries = readdir(DIR); 
    close(DIR); 
    foreach my $file (@entries) { 
     next if ($file =~ /^\.+$/); 
     if (-d $dir . '/' . $file) { 
      runDir($prefix . $file . '_', $dir . '/' . $file); 
     } elsif ((-f $dir . '/' . $file) && ($file =~ /\.txt$/)) { 
      my $suffix = $file; 
      $suffix =~ s/^(\S+)-.+\.txt$/$1.txt/; 
      print "rename $dir . '/' . $file, $dir . '/' . $prefix . $suffix . \n"; 
     } 
    } 
} 
runDir('output_', '/home/user1/output'); 

しかし、ファイル名の衝突に注意：同じディレクトリ内

rest1-rest1-rest.txt 
rest1-rest1-rest1-rest.txt 

を...