檔案及檔案夾中有空白要改

在網路上看到一個問題，有人資料夾或檔案有空白，希望把資料夾或檔案名稱中的空白改成底線，而底下的code就是本人使用Perl寫出來的，事實上還蠻簡單的，當然與上次在Linux上使用的方法有點差異，Perl的資源豐富、強大，有發現好方法可以快速的搞定當然是拿來用阿~~XD。

所以code是愈寫愈小...XD

#!/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 );