perl的檔案處理

配合上perl對文字串的處理，它在做檔案處理還蠻實用的。

• 刪除檔案 unlink
• 更改檔名 rename
• 更改權限 chmod
• 取得檔案屬性 stat
• 拷貝檔案 copy

底下的參考網址有範例程式可以參考

參考網址

GUI沒辦法像積木一樣堆積出新的面貌，也就沒什麼彈性可以自動處理，工程師在這種環境底下慢慢的會變得跟一般使用者沒兩樣，失去高速、自動控制系統的能力，當然GUI在某些時候的確是比較直觀、方便，對使用者來說或許是福音，但是對於工程師來說可能就是毒藥，工程師常常需要大批的處理檔案，怎麼辦？

一個一個改嗎？

我是認為寫code按照某個規則，整批的改比較快吧！

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

在網路上看到一個問題，有人資料夾或檔案有空白，希望把資料夾或檔案名稱中的空白改成底線，而底下的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 );