plファイルの中で他のplファイルを実行

質問

A.plファイルとそれに付随するpmファイルがあります。

別のB.plでA.plに値を渡しながらループさせてA.plを実行し得られた値をB.plに返すことがしたいのですが、

B.plで

ループ始点
require('A.pl');
ループ終点

だと一回きりの実行結果しか得られず。

#`perl A.pl @AAA`;
だとreturnできずエラー

となってしまいます。

何か良い方法は無いでしょうか。

よろしくお願いいたします。

回答No.2

zebedeer · ベストアンサー

こんな感じでは？

$ head *
==> a.pl <==
print @ARGV;
1;

==> tmp.pl <==
$\ = "\n";
foreach (1..10) {
require ('a.pl');
delete $INC{'a.pl'};
}

$ perl tmp.pl value
value
value
value
value
value
value
value
value
value
value

お礼

delete $INC{'a.pl'};

ですね。

解決できました。
ありがとうございました。

回答No.1

omni2

###########################
#A.plの内容

#!/Perl/bin/perl

require "B.pl";
foreach(0..10){&test();}

###########################
###########################
#B.plの内容
sub test{
print "Hello\n";
}
1;

##########################
こうしてみればどうでしょう？