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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值