Perl文件名更改

Question

我正在學習和擴展由他人編寫的Perl腳本。它有一條線：

@pub=`ls $sourceDir | grep '\.htm' | grep -v Default | head -550`; 
foreach (@pub) { 

    my $docName = $_; 
    chomp($docName); 
    $docName =~ s/\.htm$//g; 
    ............} 

我知道它首先使用UNIX命令取出所有htm文件，然後擺脫文件擴展名。

現在我需要做一件事，這也是非常重要的。也就是說，我需要通過用下劃線替換空格來更改存儲的實際文件的文件名。我被困在這裏，因爲我不確定我是否應該遵循他的代碼風格，通過使用UNIX來實現此目標，還是應該在Perl中執行此操作？重點是我需要修改磁盤上的實際文件，而不是用來保存文件名的字符串。

謝謝。

Answer 1

使用File::Copy將文件移動到其新名稱的速度會更快，而不是使用此方法分叉新的進程，產生新的shell等等，它會佔用更多的內存並且比在perl內執行更慢本身。

編輯..你可以擺脫所有的反引號BS的，太像這樣

my @files = grep {!/Default/} glob "$sourcedir/*.html"; 

Answer 2

像這樣的東西應該幫助（未測試）

use File::Basename; 
use File::Spec; 
use File::Copy; 
use strict; 

my @files = grep { ! /Default/ } glob("$sourceDir/*.htm"); 
# I didn't implement the "head -550" part as I don't understand the point. 
# But you can easily do it using `splice()` function. 

foreach my $file (@files) { 
    next unless (-f $file); # Don't rename directories! 
    my $dirname = dirname($file); # file's directory, so we rename only the file itself. 
    my $file_name = basename($file); # File name fore renaming. 
    my $new_file_name = $file_name; 
    $new_file_name =~ s/ /_/g; # replace all spaces with underscores 
    rename($file, File::Spec->catfile($dirname, $new_file_name)) 
     or die $!; # Error handling - what if we couldn't rename? 
}