我的第一個perl腳本

前一段時間去參加了sun的一個perl的培訓，後來也沒有怎麼聯繫，所以寫了個自動編譯的腳本。

#!/bin/perl
for(<*>)
{
     if(-d "$_/src")
     {
      #qx/cd $_/src/;
      #qx/mvn clean install/;
      #qx/cd ../
      qx"...";
      print qx/pwd/;
     }
     else
     {
     print "#########################/n";
     print "$_ is not build/n";
     }
}
 
功能很簡單的，以爲一個目錄下有很多並列的項目，用maven管理不可能，以爲是獨立的項目。但是有的時候想全部build一下，就是少敲點了。
其中遇到一個問題，就是 想直接用一些unxi命令，如cd,但是發現他們是新fork一個進程的，才明白perl爲什麼內置這些命令了。