我想用perl实现 遍历一个工作目录下所有的exe和bat文件 并且执行 请问如果编写

zca7

我想用perl实现 遍历一个工作目录下所有的exe和bat文件 并且执行 请问如果编写 最好还能按周期来计划执行 请教一下

里是不是用exec更合适？

gig2600

vbscript实现起来更容易写，也不用装activeperl

alexru

File::Find

flw

原帖由 alexru 于 2007-1-17 14:44 发表
File::Find

不带子目录的话，
(<*.exe> <*.bat>)

zca7

咱们这回帖还很快的啊 不好意思我是个新手 刚刚接触这个 底子薄
#! c:\perl\bin\perl -w

use File::Find;


find( \&handleFind, 'D:/1');

sub handleFind{
       
        system (<*.bat>);
       
        }


exit;

这个是我写的 我再1目录下放了两个bat 可是它只是把第一个bat执行了3遍～第二个的都没动 为什么啊？

zca7

这个不是会递归搜索嘛～
还有如果我把system换成exec的话 就只是执行一遍

apile

debug的第一步..请先打印出来看看...
你到底 find到的什麽内容..

zca7

我再“sub handleFind{ ”下一行加了print  "$File::find:name\n";
可以输出这个目录下的两个bat
D:\>bat.pl
D:/1
D:/1/a.bat
D:/1/b.bat

Namelessxp

大才小用了，2k以上的，用批处理就可以解决

apile

那难怪会执行三次啦..
<*.bat>会回传a.bat b.bat的array...
system(<*.bat>) ;
等於
system("a.bat b.bat");
你觉得他会执行a.bat,b.bat吗？

请再多想想...你已经解决了一半的问题.....