外部ファイルを複数読み込ませて・・・

質問

複数の****.js（中身は半角数字）を読み込み
中身（数字）を足して表示させたいのですが方法が分かりません。

表示はJavaScliptとして表示させようと思っています。

ファイルが1つの場合は、下記で対応出来るのですが

open(IN,"./****.js");
while(<IN>)

AAAA.js BBBB.js CCCC.js DDDD.js EEEE.js となる、複数のファイルを読み込ませ
中身の数字を足したものを表示させる方法が分かりません。
ご存じの方のご教授をどうかお願い致します。

回答No.1

kmee

openは一つのファイルしか使えません。
なので、ファイルを変えつつ繰り返せばいいのです。

ファイルがその5つと固定なら
foreach my $filename ('AAAA.js','BBBB.js','CCCC.js','DDDD.js','EEEE.js'){
open(IN,'<',$filename) or die ;
while(<IN>){
....
} #whileの終わり
fclose(IN);
} #foreach の終わり

ファイルが不特定なら、globやopendir→readdirを利用します。

あと、集計に使う変数の初期化位置に注意。