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

解決済

質問者：cluewm
質問日時：2005/07/27 19:36
回答数：2件

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

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

B.plで

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

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

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

となってしまいます。

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： zebedeer
回答日時：2005/07/28 00:59

こんな感じでは？

$ 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

- 0
- 件

通報する

この回答へのお礼

delete $INC{'a.pl'};

ですね。

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

通報する

お礼日時：2005/07/28 08:53

No.1

回答者： omni2
回答日時：2005/07/27 20:02

###########################

#A.plの内容

#!/Perl/bin/perl

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

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

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