在一個目錄中的Perl計數和數字文件

Question

我正在尋找一種方法來統計和編號/重命名目錄中的文件與1-9的前導零。它必須基於File :: find，儘管它可能不是最有效的方式，但後來我必須將它集成到更大的代碼中，該代碼基於該函數，並且很難重寫。 'File1'，'File2'，'File3'...'File10'，'File11'等成爲'01。 File1'，'02。 File2'，... '10。 File10'，'11。 FILE11' 等

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

find(\&rename_files, $dir_source); 
sub rename_files { 
    /\.flac$/ or return; 
    my $fd = $File::Find::dir; 
    my $fn = $File::Find::name; 
    my $file = $_; 


    rename $file, $_;  
} 

UPDATE：這與代碼開始計數從0文件一個例外的工作方案，雖然$ count設置爲1。

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

my $dir_source = ''; 

find(\&rename_files, $dir_source); 
{ 
    my $count = 1; 
    sub rename_files { 
     return if not -f $_ or not /\.flac$/;    
     my $file = sprintf "%02d\. $_", $count++; 
     print "$file\n"; 
     rename $_, $file; 
    } 
} 

Answer 1

你可能有根據您的具體需求調整它，但我認爲它應該指向正確的方向。順便說一下，我建議在測試/調試階段將「rename $_, $file」行替換爲「print "rename $_, $file\n";」，以便您可以看到啓用後會執行的操作，而不是在完成操作後執行錯誤。 ;）

這裏的片段：

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

find(\&rename_files, $dir_source); 

{ 
    my $count = 0; 
    sub rename_files { 
     return if not /\.flac$/; 
     my $file = $_; 
     return if not -f $file; 
     $file =~ s/^([^\d]{2})(?=\.)/sprintf "%2d$1", $count++/e; 
     rename $_, $file; 
    } 
} 

它採用了約$計數封給你分一個計數器，並在您置換RE A/E選項來執行的sprintf，而不是僅僅用替換文字字符串。順便說一下，你已經有95％的存在與File :: Find，但對於未來，也許不那麼瑣碎的任務，我真的很喜歡File :: Find :: Rule的乾淨的接口。你可以看看它，看看它可能是未來更好的工具。

更新：由於更新到你原來的問題，如下我將修改代碼：

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

find(\&rename_files, $dir_source); 

{ 
    my $count = 0; 
    sub rename_files { 
     return if not -f $_ or not /\.flac$/;    
     my $file = sprintf "%2d$_", ++$count; 
     rename $_, $file; 
    } 
}