inter.pl のコードは次のとおりです。
use strict;
use warnings;
my $var1=`cat /gra/def/ment/ckfile.txt`; #ckfile.txt doesn't exist
print "Hello World";
exit 0;
ext.plのコード
my $rc = system ("perl inter.pl");
print "$rc is rc\n";
ここで、「perl ext.pl」を実行すると、$rc が 0 になります。
inter.pl 内のファイル (/gra/def/ment/ckfile.txt) が存在しないのに、$rc が 0 になっています。
この同じシナリオでは、 $rc を != 0 にしたいと思います (ある意味では、ファイル ckfile.txt が存在しないため、エラーになるはずです)。
注: inter.pl を変更することはできません。
どのように実装できますか？
前もって感謝します。