我的第一个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为什么内置这些命令了。