Perlでのファイル処理について質問です．

あるディレクトリの中に
a.pl b.pl c.pl d.pl e.pl
という５つのファイルが入っているとします．そのとき，一気にこの５つのファイルを実行するにはどうすればいいのでしょうか？
とても初歩的な質問かもしれませんがお願いします．実際は100個くらいファイルがあるのでひとつひとつ実行するのはとても面倒で．．．

No.3 ベストアンサー 回答者： sakusaker7 回答日時： 2007/11/23 13:11

>もしa_2.pl　b_2.pl　とかいうファイルもあったらプログラムも臨機応変に変えていかないといけませんよね？

この点を心配する必要はありませんが(ちゃんと動きますよ)、
スクリプトの実行は順番に、前のスクリプトが終了してから次が実行される
ということになりますよ?

お手軽にはこんなかんじでしょうか。
use strict;

my @files = grep {$_ !~ m/^$0$/} glob('*.pl');
#system qq{"perl $_ &"} for @files;
system qq{start "dummytile" "cmd /c perl $_"} for @files;

Unix環境だったらコメントアウトしている方を使ってください。

この回答への補足

このプログラムでちゃんと動きました．どうもありがとうございます．
前のスクリプトが終わってから次が動くっていうことでよかったです．

補足日時：2007/11/24 21:55

No.2 回答者： SE-1 回答日時： 2007/11/22 02:37

while(<*.pl>){

unless ($_ =~ /^batch/){
system("perl $_");
}
}

#　以上を　bacth.pl　として　a.pl b.pl ... のあるディレクトリに保存し実行。
#　で、どうでしょうか。

この回答へのお礼

ありがとうございます．
もしa_2.pl　b_2.pl　とかいうファイルもあったらプログラムも臨機応変に変えていかないといけませんよね？

お礼日時：2007/11/23 12:20

No.1 回答者： sakusaker7 回答日時： 2007/11/22 02:23

一気に実行というのは並列に実行ということですか?

一つのスクリプトの終了を待たずに次々起動して行くのではなく。

この回答への補足

並列に実行したいと思っています．

補足日時：2007/11/23 12:12