安裝ActivePerl,把底下的code拷貝到小作家貼上,存檔成fileNameYouWannta.pl後開啟DOS命令終端機,打入fileNameYouWannta 路徑,執行後就會把空白換成底線了,後面參數不給預設是當下資料夾。
<pre class="c" name="code">
#!/usr/bin/perl -w
use File::Find;
$start_dir = shift || '.';
find( sub{
if($_ =~ /\ /){
my $new=$_;
$new=~s/\ /\_/g;
print "$_ --> $new\r\n";
rename($_,$new);
}
}, $start_dir );